Visual Basicで数字を並べ替えるプログラム

質問

Visual Basic でメモ帳などに入力されている数字（大量の数字）データを読み込んで、それを小さい順に並べ替えて、データとして保存する方法がわかりません。

回答No.2

usokoku

＞大量の数字）
ではなく、最大値からみて倍精度整数(Dim lngSortData() as Long, マイクロソフトの提唱している書き方)の単なる普通の整列ですね。
「OpenFiledialogとSaveFiledialog」ですと、VB2008かな。このバージョンが動く環境にないので、変なことを書いている可能性があります。

＞(1)変数の定義や初期設定を行う。
「変数の定義」は、整列だけならば、
「DIM なんたら」という文字で始まる文です。
「初期設定」は、「Const (なんたら) = (なんたら)　」という文です。
これを、どこに書くかと言うのは、プログラムのデザインの問題で、仕様書か著者本人の好みのいずれかで決定します。
「データを入力する」変数とか、「入力したデータ」の数とか、最大入力可能なデータ数を決定するのがこの内容です。
「ReDim なんたらこうたら」「Set なんたらこうたら」という文も初期設定に入るでしょう。これは、「宣言した変数を初期化せよ」という意味が含まれます。
＞(2)こ
＞Input(1,・・・・)を使う。
このInput命令を使ったことがない(私はVB6)ので回答不能。

＞(3)この間に並び替えをするプログラムを書く。
＞「小さい順」の定義。
の内容が補足されないので回答不能。

＞(4)この間に結果を出力するプログラムを書く。
＞結果を出力するためにはPrintline(1,・・・・)を使う。
このPrintline命令の使用経験がない(私はVB6)ので回答不能。

私の場合、VBというよりも、GWの頃の資源を引きついているのでVB専用命令を原則として使っていません(インターフェースを除く)。「OpenFiledialogとSaveFiledialog」ですが、使い方が適合しないので、自前で類似のルーチンをつくってやっていますので、答えられません。検索した範囲では、入出力ファイル名の決定ルーチンのようです。

http://www.atmarkit.co.jp/fdotnet/vb6tonet/vb6tonet07/vb6tonet07_01.html
の後半がファイル入出力の使い方ですので、こちらか、このサイトで使われている命令語で検索するとある程度見当つくでしょう。

文字として整列する場合
http://oshiete1.goo.ne.jp/qa810261.html
この質問の直後に、数値型で整列する方法の質問があったはずですが、こちらのアドレスは消失。

回答No.1

usokoku

「モ帳などに入力されている数字」のコード。JIS, s-JIS, Uni-code,....。
「小さい順」の定義。
00,1,10,11,2,21,...と並べる場合と
00,1,2,...,10,11,...,21,...と並べる場合。
後者の場合には、文字→内部表現変数への変換方法を指定してください。
漢数字等の取り扱いの有無についてもお知らせください。
あるいは、文字型で数値のようにならべるのか。
「大量の数字」より、100桁とか300桁とかが予想されるからです。

Win98の時代ですと、メモ帳の最大編集可能容量が64KBだったので、それほど神経は使いませんでしたが、近年この制限が外れたような話を聞きますので。

補足

Visual　Basic2008で以下の様な乱数を外部から読み込んで、並べ替えたデータを保存先を選択して、保存する方法がわかりません。

例)乱数の例
1283
9983
9021
882
839
91
22
375
1128
763
2887
1922
773
6
738
11
982
563
7332
89732
98
83
27
8663
673
7382
887
9361
82873
7
上の数は、30個ありますが、個数が増えても(例えば1000個)並び変えられるようなプログラムにしたいです。

プログラムは、以下のようにしたいのですが。
『FormにツールボックスからOpenFiledialogとSaveFiledialogを張り付ける。

Private Sub・・・・・・
　(1)変数の定義や初期設定を行う。

OpenFileDialog1.ShowDialog()
FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)

　(2)この間にデータを入力するプログラムを書く。
　データを入力すためにはInput(1,・・・・)を使う。
FileClose(1)

　(3)この間に並び替えをするプログラムを書く。

SaveFileDialog1.ShowDialog()
FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)

　(4)この間に結果を出力するプログラムを書く。
結果を出力するためにはPrintline(1,・・・・)を使う。

FileClose(1)

End Sub」

(1)～(4)にどんなプログラムにすればよいかがわかりません。