データの読み出しと書き込み

質問

初めて質問します。最近独学でVBを勉強中ですが、VB6.0でCドライブ内にあるテキストデータＡ（１０行程度で１行あたり８文字前後のひらがな）を読み込み、それを昇順（あいうえお順）に並べ替え、テキストデータＢにその並べ替えたデータを反映させたいのです。現在、

RF（リードファイルの略として）="C:\aaa\テキストデータA.txt"
Open RF For Input As #1
Do While Not EOF(1)

Line Input #1. x
y = y + x
Loop
Close 1
これで、yには１０行のひらがなデータをつなげた１行のデータが入っていたのですが、そのあとのソートプログラムへのつなげ方や、もう１度OpenさせてテキストデータＢに反映させてCloseするまでがわからなく困っています。よろしくお願いします。

回答No.1

n-jun · ベストアンサー

Dim　tmp　As　String
　　　　Dim　v()　As　String,　i　As　Integer
　　　　Dim　m　As　Integer,　n　As　Integer,　st　As　String

　　　　ReDim　v(1　To　1):　i　=　1
　　　　Open　"R:\aaa.txt"　For　Input　As　#1
　　　　　　　　　Do　While　Not　EOF(1)
　　　　　　　　　　　　Line　Input　#1,　tmp
　　　　　　　　　　　　v(i)　=　tmp
　　　　　　　　　　　　i　=　i　+　1
　　　　　　　　　　　　ReDim　Preserve　v(1　To　i)
　　　　　　　　　Loop
　　　　Close　#1

　　　　ReDim　Preserve　v(1　To　i　-　1)

　　　　For　m　=　1　To　UBound(v)　-　1
　　　　　　　　For　n　=　m　To　UBound(v)
　　　　　　　　　　　　If　v(m)　>　v(n)　Then
　　　　　　　　　　　　　　　st　=　v(m)
　　　　　　　　　　　　　　　v(m)　=　v(n)
　　　　　　　　　　　　　　　v(n)　=　st
　　　　　　　　　　　　End　If
　　　　　　　　Next
　　　　Next

　　　　Open　"R:\bbb.txt"　For　Output　As　#2
　　　　　　　　　For　m　=　1　To　UBound(v)
　　　　　　　　　　　　　Print　#2,　v(m)
　　　　　　　　　Next
　　　　Close　#2

ファイル名はこちらでテストしたものです。
適宜修正願います。（初めて作ったので自身はないっす）
「配列　並び替え」の方法はいくつかありますので、勉強されることを
お薦めします。

お礼

初めてですか？自分より全然すごいですね。上記のプログラムを試したところ、うまくソートされたデータが別のtxtに反映されました。UBoundを使って、というのは知らなかったので勉強になりました。早速の回答、ありがとうございました。

回答No.2

n-jun

ＶＢでは初めてですね。
ExcelVBAだとSortがありますので。。。