VB6-按照需求格式读取TXT文本内容

yushao19920807 · 发表于 2020-6-18 10:38

要求：

从某仪器输出一份TXT格式的数据文本；

然后用VB方式去读取该文本，并解析、拼接成所需要的数据串格式；

TXT文本数据：

782 陈立勇 CLY 2016-10-8 11:05:33 37 6.2 1 275.382 72.363 50.844 13.713 7.806 27.637 37.485 23.223 34.633 刘露男性科王晨辉淡黄 4 30 原液 5 一般手淫 37 474 343 275.382148146629 72.3628692626953 50.8438835144043 13.713080406189 7.80590724945068 27.6371307373047 241 65 37 131 21.4825000762939 24.7199993133545 37.4853286743164 23.2230834960938 34.6328811645508 4.09012699127197 17.3164405822754 17.0458908081055 1.91999995708466 148 85.9842987060547 31.2236289978027 61.9524612426758 92.390495300293 67.0550155639648 0 0 0 0 0 0 0 0 0 0 0 0 / - / / / / / / / / / / / / / / / / / / / / / / / / / / 0-2 / / 无王 1 /
783 程杰 CJ 2016-10-8 15:04:43 32 6.9 2 248.076 70.726 50.117 12.412 8.197 29.274 34.096 19.596 31.196 男性科王晨辉乳白 1.8 >60 原液 4 黏稠手淫 37 427 302 248.076323330402 70.7259979248047 50.1170959472656 12.4121780395508 8.19672107696533 29.2740039825439 214 53 35 125 17.3500003814697 21.0599994659424 34.0955009460449 19.5961170196533 31.1956233978271 4.05047655105591 15.5978107452393 19.6372852325439 1.91999995708466 99 57.5165252685547 23.1850109100342 57.4742012023926 91.4948348999023 62.8168792724609 0 0 0 0 0 0 0 0 0 0 0 0 / - / / / / / / / / / / / / / / / / / / / / / / / / / / 2-4 / / 无王 1 /

具体代码看附件

jiujiukeji · 发表于 2020-6-18 10:42

excel不是可以直接办到吗？

yushao19920807 · 发表于 2020-6-18 10:46

jiujiukeji 发表于 2020-6-18 10:42
excel不是可以直接办到吗？

看VB很少、发一点怀念下……实现的方式是有很多、我知道呢

薄荷叶1996 · 发表于 2020-6-18 10:47

感谢分享~

JuncoJet · 发表于 2020-6-18 10:57

下载还要花钱的唷，还是算了
这边给你点提示，如果文字之间是Tab隔开的话，split(str,vbTab) 可以直接转换成数组

JuncoJet · 发表于 2020-6-18 11:10

如果是大量空格，就这么处理

[Bash shell] 纯文本查看 复制代码

Private Sub Form_Load()
    a = "12      34     4"
    q = Split(a, " ")
    For i = 0 To UBound(q)
        If q(i) <> "" Then MsgBox q(i)
    Next
End Sub

苏紫方璇 · 发表于 2020-6-18 12:31

JuncoJet 发表于 2020-6-18 10:57
下载还要花钱的唷，还是算了
这边给你点提示，如果文字之间是Tab隔开的话，split(str,vbTab) 可以直接转换 ...

楼主应该是在分享代码

JuncoJet · 发表于 2020-6-18 13:04

苏紫方璇发表于 2020-6-18 12:31
楼主应该是在分享代码

看着不像啊，源码用txt么

huamu · 发表于 2020-6-19 06:23

好久不用vb了

yushao19920807 · 发表于 2020-6-19 09:39

huamu 发表于 2020-6-19 06:23
好久不用vb了

给你怀念下

帐号		自动登录	找回密码
密码			注册[Register]

[其他原创] VB6-按照需求格式读取TXT文本内容

免费评分

点评