Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

35791 / 76732

←次へ　｜　前へ→


	【46135】ソートしながら読み込むには？

華麗パン - 07/1/23(火) 21:15 -


	引用なし

	パスワード

過去ログ（42581）に類似したテキストデータ（可変長）を読み込みたいのですが
可能でしょうか？
[ID] 1111
{
ABC 11.12
ADD 12.32
ABD 11.11
FBC 55.66
ZBC 55.52
}
並び替えだけしますと・・・
{
FBC 55.66
ZBC 55.52
ADD 12.32
ABC 11.12
ABD 11.11
}

過去の例との相違点は文字　スペース　少数点2桁の数字（単位%）で{で始まり
}で終わるかたまりを大きいもの順に読み込みたいのです。
255個を超えることはまずなく、横に転記していきたいのです。

読み込み後のシート
　A　　B　 C　 D　 E　 F
1111　FBC ZBC ADD ABC ABD
2222　SDF GFT
3333　QWE　　　　　　　　　 (←上例にはありませんがこのような感じです）

こんなイメージなのですが、・・・
また、9.45以下のものは読み込みたくないです。
よろしくお願いします。

Sub Test_MyDataSort()

LR = ここがわかりません
　　ReDim Ary(1 To LR)
　　For i = 1 To LR
　　　 Ary(i) = Cダブル(Line Input #1, Buf,右の数字部分)
　　Next i
　　temp = Array_Sort(Ary())
　　For j = 1 To LR
　　　 With Cells(IDごとのカウンタ+1, j)
　　　　　St = Left$(左の文字部分)
　　　　　.Value = St
　　　 End With
　　Next j
End Sub

Private Function Array_Sort(ByVal NotSortedArry As Variant) As Variant
　　Dim i As Long, j As Long
　　Dim vElm As Variant

　　For i = LBound(NotSortedArry) To UBound(NotSortedArry)
　　　 For j = i + 1 To UBound(NotSortedArry)
　　　　　If NotSortedArry(i) < NotSortedArry(j) Then
　　　　　　 vElm = NotSortedArry(j)
　　　　　　 NotSortedArry(j) = NotSortedArry(i)
　　　　　　 NotSortedArry(i) = vElm
　　　　　End If
　　　 Next
　　Next
　　Array_Sort = NotSortedArry
End Function

1 hits

▼

【46135】ソートしながら読み込むには？ 華麗パン 07/1/23(火) 21:15

≪