Question

全部，

这是我文本文件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

我希望能够选择第3和第4之间的内容“;”，在这种情况下它将是

3124480071200
0049004004827
54491069

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

然后它必须将第一个选择放在名为SelBarc的组合框中。如果它已经为第一个做了这个，它必须继续到第二个，依此类推等等......

任何可以帮助我的人？

Answer 1

打开，读取，分割成行然后循环;

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

使用SQL将文本文件拆分为Access DB

1 个答案: