0

全て、

これは、テキスト ファイル NEW_SCANNING.txt の 3 行の例です。

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、 3rd と 4th の間にあるものを選択すること;です。

次に、最初の選択を SelBarc という名前のコンボボックスに配置する必要があります。最初にこれを行った場合、2番目に移動する必要があります...

誰でも私を助けることができますか？

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 に答える