ＶＢＡ－読み込んだテキストファイルを並び替えて書き出したい

質問

ＶＢＡ－読み込んだテキストファイルを並び替えて書き出したい

ch１=FreeFile
Open Ａ for Input as ch１

ch２=FreeFile
Open Ｂ for Input as ch２

DO while Not EOF（ch１） Line Input #ch１,buf
Print #ch２,buf
Loop

Close #ch１,#ch２

で読み込み、書き出すことはできました。

やりたいことは、書き出す時に、項目を並べ替えたいのです。

例
にんじん りんご ねこ
だいこん バナナ いぬ

↓
りんご ねこ にんじん
バナナ いぬ だいこん

よろしくお願いいたします。
区切りはタブです。

回答No.2

bin-chan · ベストアンサー

＃１です。
例示のコードは、配列内容を完全に入れ替えますので、ご希望の順に調整してください。
forループの部分です。

お礼

ありがとうございます。

無事できました！！

並び変えの最後、「範囲がない」といわれ、
んっ？とちょっとあせったのですが、
配列は０からということを思い出しました(；一_一)

本当にありがとうございました。

回答No.1

bin-chan

１）文字型配列を２個宣言する
２）文字型配列の個数を格納する変数を２個宣言する
３）Split関数で区切り文字にvbTab or Chr(9)を指定して、読み取った文字列を分解し配列１で受け取る。
４）文字型配列を反転させる（配列１を配列２に）
５）join関数で区切り文字にvbTab or Chr(9)を指定して、反転させた配列を書き出し用文字列に連結する
６）書き出し用文字列を出力する

dim strArray1() as string
dim strArray2() as string
dim nArray1 as long
dim nArray2 as long
dim i as long

DO while Not EOF（ch１）
　Line Input #ch１,buf

　’バッファをタブで区切って配列１に格納する
　strArray1()=Split(buf, vbTab)
　’バッファをタブで区切った配列１の件数を取得する
　nArrey1=Ubound(strArray1())

'反転用配列を用意するので同じことを繰り返す
　’バッファをタブで区切って配列２に格納する
　Array2()=Split(buf, vbTab)
　’バッファをタブで区切った配列２の件数を取得する
　nArrey2=Ubound(strArray2())

　'配列１を逆転させて配列２に格納する
　for i = 0 to nArrey1
　　Array2(i) = Array1(nArray - i)
next i
　’配列２をタブで連結してバッファに格納する
　buf = join(strArray2(), vbTab)

　Print #ch２,buf
Loop