使用SQL将文本文件拆分为Access数据库
全部, 这是我的文本文件NEW_SCANNING.txt中三行的示例:使用SQL将文本文件拆分为Access数据库,sql,vba,Sql,Vba,全部, 这是我的文本文件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;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
开头的每一行,然后选择第3行和第4行之间的内容代码>
然后它必须将第一个选择放入名为SelBarc的组合框中。如果它第一次这样做了,它就必须继续第二次,依此类推
有谁能帮我吗?打开,阅读,分成几行,然后循环
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