从同路径提取一个txt，后续的数据处理很麻烦，谢谢fzxba老师！

lhj323323 · 发表于 2024-3-24 11:15

本帖最后由 lhj323323 于 2024-3-24 16:41 编辑

老师：

我想从同路径提取一个txt，后续的数据处理很麻烦
完全写不出来。
老师如有空，请帮忙看看，
先谢谢了

求助.rar (18.65 KB, 下载次数: 6)

图一（是图三的简化版，仅是为了便于介绍其逻辑关系）
不同的id，依次导入到结果表的第2列起，向右的不同列
快照4.png

图二
仅有类型13，才存在缺失那一整行（即蓝框或蓝底）的情况
而其余的两种类型（即类型26和5）的关键词，均存在。
快照3.png

图三（最终的效果图）
快照5.png

perfect131 · 发表于 2024-3-24 11:18

不麻烦，不麻烦

lhj323323 · 发表于 2024-3-24 11:20

perfect131 发表于 2024-3-24 11:18
不麻烦，不麻烦

麻烦，光是这段文字说明，就构思了两个多小时
仍担心没有讲明白。

wanghan519 · 发表于 2024-3-24 11:59

本帖最后由 wanghan519 于 2024-3-24 12:11 编辑

要不就先用xmlstarlet之类的东西解析一下xml，如图中：
第一句是说列出type="26"的cell容器里的stk的code
第二局是说匹配type="13"里的stk，然后打印出code indate intime inprice属性，用逗号分隔
每一句后面的head是说只显示结果的前10行。。。

再想一下，vba里用直接MSXML2.DOMDocument解析似乎更方便后面

perfect131 · 发表于 2024-3-24 12:52

lhj323323 发表于 2024-3-24 11:20
麻烦，光是这段文字说明，就构思了两个多小时
仍担心没有讲明白。

4 楼分析的对 xml解析一下就出来了

fzxba · 发表于 2024-3-24 14:09

本帖最后由 fzxba 于 2024-3-24 16:25 编辑

split测试_更新一下.zip (30.84 KB, 下载次数: 10)

lhj323323 · 发表于 2024-3-24 16:40

fzxba 发表于 2024-3-24 14:09

太感谢老师了！
测试完全对上。

lhj323323 · 发表于 2024-3-24 19:37

fzxba 发表于 2024-3-24 14:09

老师：

我把
Open strFile For Input As #123
改为
Open strFile For Binary As #123

复制代码

这里的#123，与#1，是不是有不同？
它是不是包括#1、#2、#3？

lhj323323 · 发表于 2024-3-24 19:42

本帖最后由 lhj323323 于 2024-3-24 19:43 编辑

fzxba 发表于 2024-3-24 14:09

还有，如下句

pos = Array(2, 3, 16, 17, 18, 31)

复制代码

我个人浅见，这一句不妥
因为
ID号与type的对应并不是固定的
也即是
cell id="2" type="13"
ID2与type13，并不是固定的
--------------------------------------------------------------------------
不过，老师已帮了大忙了，后续，我自行调整。
再次谢谢老师！

fzxba · 发表于 2024-3-24 19:45

#1 ------ #511 是一个可用的文件号，可用函数 freefile 生成
比如 byt=freefile 则是 #byt byt 一定在1~511
这里，我用123，是告诉你，除了1，还有2到511

		自动登录	找回密码
密码			免费注册

[已解决] 从同路径提取一个txt，后续的数据处理很麻烦，谢谢fzxba老师！

评分

评分

评分

评分

评分