VB6-按照需求格式读取TXT文本内容
要求：
从某仪器输出一份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 /
具体代码看附件
excel不是可以直接办到吗？ jiujiukeji 发表于 2020-6-18 10:42
excel不是可以直接办到吗？
看VB很少、发一点怀念下……实现的方式是有很多、我知道呢 感谢分享~ 下载还要花钱的唷，还是算了
这边给你点提示，如果文字之间是Tab隔开的话，split(str,vbTab) 可以直接转换成数组 如果是大量空格，就这么处理
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
JuncoJet 发表于 2020-6-18 10:57
下载还要花钱的唷，还是算了
这边给你点提示，如果文字之间是Tab隔开的话，split(str,vbTab) 可以直接转换 ...
楼主应该是在分享代码 苏紫方璇 发表于 2020-6-18 12:31
楼主应该是在分享代码
看着不像啊，源码用txt么 好久不用vb了 huamu 发表于 2020-6-19 06:23
好久不用vb了
给你怀念下
页:
[1]