0

全部,

这是我的文本文件 NEW_SCANNING.txt 中的三行示例:

I;05/29/2013;06:55:37;3124480071200;1;801;1;;1
I;05/29/2013;06:56:05;0049004004827;1;801;1;;1
I;05/29/2013;06:56:09;54491069;1;801;1;;1

我希望能够选择第三个和第四个“;”之间的内容,在这种情况下是

3124480071200
0049004004827
54491069

所以我需要程序做的是搜索以字母开头的每一行I并选择 3rd 和 4th 之间的内容;

然后它必须将第一个选择放在名为 SelBrc 的组合框中。如果它第一次这样做了,它必须继续进行第二次,依此类推……

谁能帮助我?

4

1 回答 1

0

打开、读取、拆分为行然后循环;

dim lines() as string,i as long
Open "c:\xxx\NEW_SCANNING.txt" for input as #1
    lines = split(Input$(lof(1), #1), vbcrlf)
close #1

For i = 0 to ubound(lines)
    if Left$(lines(i), 1) = "I" then combobox.additem split(lines(i), ";")(3)
Next
于 2013-06-26T10:10:35.027 回答