|
Sub test()
Dim fs As Object, f As Object, path As String, a As Integer, sortData() As String
path = "C:\Documents and Settings\デスクトップ\test.txt"
On Error GoTo Err_Proc
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(path, 1) 'ファイルのオープン
If f.AtEndOfLine = False Then 'ファイルが空であるかの判定
a = 0
Do While f.AtEndOfStream <> True
ReDim Preserve sortData(a) As String
sortData(a) = f.ReadLine
a = a + 1
Loop
End If
Exit Sub
Err_Proc: 'エラー後処理
MsgBox Err.Description
Exit Sub
これで配列に一行分のデータをいれています。
loop後で配列の時間部だけでソートを行してきれいにしたいのですが?
|
|