VB Input#でstringを読込む時の区切り

質問

お世話になります。
VBのInput#でテキストファイルの中の単語をString型変数に読み込むときの、1項目の区切りを教えてください。
たとえば、テキストファイルsample.txtの中身が

1　aaa　bbbb

であったとします。

dim i1 as integer
dim s1(2) as string

に対して
i1=1
s1(0)="aaa"
s1(1)="bbbb"
となるようにしたいのですが、

open "sample.txt" for input as #1
input #1,i1
input #1,s1(0)
input #1,s1(1)

で読み込もうとすると、
s1(0)="aaa bbb"
のように、空白も文字列の一部とみなされて切り替えてくれません。

区切りを空白から改行にして、テキストファイルの中身を

1　aaa
bbb

のようにすれば、一応は思ったとおりに動いてくれますが、これはこれでテキストの見栄えが悪いので、最終の手段として。

上記の例は簡単にしていますが、本当は同じような読み込む内容を何行か書いており
できたら読み込むグループは1行にまとめたいのですが、
何か方法はありませんでしょうか？

回答No.1

uruz · ベストアンサー

Input#はWrite#で書き出したファイル・フォーマットに対して読込をサポートします、従ってデータの区切りはカンマ(,)と改行(crlf)が区切りとなります。

1)
1,aaa,bbbb

2)
1
aaa
bbbb

3)
1
aaa,bbbb

1)～3)いずれでも希望通りの結果がえられます。

4)
1　aaa　bbbb

4)の場合は区切り文字がInput#の扱いとは異なりますのでInput#では希望通りの結果は得られません。
Line Input#で行単位で読込処理をする必要があります。

例
Dim i1 As Integer
Dim s1(2) As String
Dim InTXT As String
Dim AA As Variant

Open "sample.txt" For Input As #1
Line Input #1, InTXT
AA = Split(InTXT, " ")
i1 = CInt(AA(0))
s1(0) = AA(1)
s1(1) = AA(2)

お礼

回答ありがとうございます。
カンマ区切りを使うか、Line　Inputを用いてやってみようと思います。