No.3ベストアンサー
- 回答日時:
メモ帳を開き、例えば、あかし、うえだ、えのもと、おおた、かんだ、きのした、くろだ、こぐれ、さとう、いいだ、おおた」を縦に入力してください。
すなわち「あかし」を入力しエンタを押して改行し、「うえだ」と入力し、エンタを押すのを続けてください。そして「テスト1.txt」と「名前をつけて保存してください。VBEのコードの画面にPrivate Sub Form_Click()
Dim d(100) As String
Open "c:\My Documents\テスト1.txt" For Input As #1
i = 0
'-----ファイルを読んで配列にセットする
p01:
If EOF(1) Then GoTo p02
Input #1, a
i = i + 1
d(i) = a
' MsgBox a
GoTo p01
p02:
Close #1
'-----ソート開始
For j = 1 To i - 1
For k = j To i
If d(j) > d(k) Then
w = d(j)
d(j) = d(k)
d(k) = w
End If
Next k
Next j
'------結果をForm1に表示して確認
For s = 1 To i
Form1.Print d(s)
Next s
End Sub
配列d(1)からd(i)を数直線的に置いて考えて,最小のものを一番
左の配列に持ってくるやり方です。視点を左から右へ1つづつ
ずらしていきます。これはモデル的な簡略化した一例であり、
本当はソートは面倒くさいプログラムになります。しかし沢山の
アルゴリズムがあり、わたし個人では、コンピュターのプログラム
のなかで一番面白い分野と思いました。ぜひ関心を持たれることを
お勧めします。この質問をみて、エクセルからコンピュターに入る
人にはソートは「既にあるもの」なのですが、昔はパソコンにはソート
のプログラムはついてなくて、我流でロータス123に読ませてソート
し、テキスト保存したり、下手なプログラムを組んだことを思い出します。
識者が見ればお恥ずかしいものですが、またコーディング
ミスのないことをいのりつつ。
No.2
- 回答日時:
方法はいろいろあるのでしょうが.
リストボックスのSortedプロパティを使うのが
簡単だと思いますよ.
AddItemでテキストを格納.
リスト配列の添え字を0からListCount - 1 まで変えて
Listプロパティを使って読み出せばよいでしょう.
2バイト文字のソートに関するプロパティがあるかもしれませんので
プロパティは一通り見てください
VBは2年前にやったきりなので,このくらいで.
(後の回答によっては大恥かくかも..)
No.1
- 回答日時:
データは「ひらがな」だけですか?
だったらリストボックスかコンボボックスにデータを放り込んで、
SortedプロパティをTrueにして件数分の取り出しループを作るのが簡単でしょう。
漢字を含む場合はこの方法は使えません(コード順にソートされてしまうから)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- Ruby 初心者プログラミング 3 2022/10/12 11:31
- JavaScript 読み込んだQRコードをフォームに受け渡したい 1 2023/05/18 11:18
- その他(プログラミング・Web制作) 2つのテキストファイルを比べて文字列を特定する方法を教えて下さい 5 2022/05/01 15:22
- 飲食店・レストラン バイキング店での無法行為(割込み、人気料理だけ独り占めする客) どうしたらいい? 7 2023/03/22 18:41
- Excel(エクセル) オフィスをLibreOfficeからmicrosoft 2013に変えました。 1 2022/05/09 00:28
- その他(悩み相談・人生相談) 今日、ファストフード店で割り込みをしてしまいました。 まずショッピングモールに遊びにきて、お昼を食べ 4 2022/09/07 15:34
- FC2ブログ テキスト版からURLも表示できるように設定できないのでしょうか。 ブログにURLを載せようとしたら文 2 2023/02/12 11:20
- C言語・C++・C# pythonのファイルの並びでの読み込みとリストについて 4 2022/04/13 03:52
- Excel(エクセル) Excel 郵便番号順に並び変えたい 同じ番号が複数あるとき 4 2022/04/28 18:35
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelですべての組合せ(重複組...
-
Excel VBAで並べ替えをしたい
-
C# DataTableの行をソートしてD...
-
System.IO.Directory.GetFiles...
-
VB.NETでファイル名順にファイ...
-
Fortran77で多次元配列を並び替...
-
excel VBA リストビューの行...
-
配列の問題
-
マクロのコードを知りたい。値...
-
小さい順
-
新しい順のリスト取得
-
ヒープソートについて
-
SQL-SELECT文でのソート
-
VC++6.0 MFC ダイアログバーを...
-
ExcelVBAで質問です。離れた二...
-
c言語
-
C言語 配列の長さの上限
-
パイソンの
-
_tcscpy_s(wcscpy_s)の第二引数...
-
mallocについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
System.IO.Directory.GetFiles...
-
VB.NETでファイル名順にファイ...
-
ファイル名「1.jpg ~10.jpg~...
-
excel VBA の条件をつけての列...
-
リスト構造のソートで悩んでま...
-
C# DataGridView のヘッダーセ...
-
DataGridViewの複数列を連動し...
-
文字列をソートする方法
-
C# DataTableの行をソートしてD...
-
C言語・要素除去
-
Excelですべての組合せ(重複組...
-
VBA基本構文の作り方 2列の...
-
列のどこをクリックしてもソー...
-
excel VBA リストビューの行...
-
あるディレクトリ内のファイル...
-
コレクションの数値をSortで並...
-
数字文字列のソート方法
-
VBScriptで重複レコードを削除...
-
2次元配列を複数項目でソートし...
-
10個の整数を入力して小さい順...
おすすめ情報