投稿日 | : 2003/12/10(Wed) 16:50 |
投稿者 | : VB勉強中 |
Eメール | : |
URL | : |
タイトル | : Re^2: 配列について |
アドバイスありがとうございます。追加しても同じでした。
Dataの中にvbTabがないかもしれません。
まず自分が処理したいデータのスペースのサイズを
そろえて新たなファイルに書き込みをしています。
このコードです↓
Open File For Input As #1
Open "data.dat" For Output As #2
Do While Not EOF(1)
Line Input #1, Data
Data = Replace(Data, " ", " ") 'スペースのサイズ変更
Data = Replace(Data, " ", " ")
Data = Replace(Data, " ", " ")
DataCnt = DataCnt + 1
Write #2, Data
Loop
Close #1
Close #2
そして先ほど投稿したこのコードで配列に代入しています。
上のコードでスペースを1つ分にして、その後その1つ1つを
配列に代入できないかと思いこのようなコードになりました。
↓
Open "data.dat" For Binary As #3
Get #3, , Data
Close #3
Data = StrConv(Data, vbUnicode)
AddData() = Split(Data, vbTab)
お手数ですがお願いします。