投稿日	： 2003/12/10(Wed) 16:50
投稿者	： VB勉強中
Ｅメール	：
ＵＲＬ	：
タイトル	： 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

そして先ほど投稿したこのコードで配列に代入しています。
上のコードでスペースを１つ分にして、その後その１つ１つを
配列に代入できないかと思いこのようなコードになりました。
↓
Open "data.dat" For Binary As #3
    Get #3, , Data
    Close #3
    Data = StrConv(Data, vbUnicode)
    AddData() = Split(Data, vbTab)

お手数ですがお願いします。

★ - 配列について - VB勉強中 12/10-15:54No.7022
• Re: 配列について - 花ちゃん 12/10-16:30 No.7023
  • Re^2: 配列について - VB勉強中 12/10-16:50 No.7025
    • Re^3: 配列について - nanashi 12/10-17:26 No.7026
      • Re^4: 配列について - VB勉強中 12/10-23:08 No.7028