Excel VBA質問箱 IV

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

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


47062 / 76732 ←次へ | 前へ→

【34633】Re:メモリ上のデータの整列について
質問  VBAビギナー  - 06/2/8(水) 16:37 -

引用なし
パスワード
   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後で配列の時間部だけでソートを行してきれいにしたいのですが?

0 hits

【34612】メモリ上のデータの整列について VBAビギナー 06/2/8(水) 10:06 質問
【34613】Re:メモリ上のデータの整列について MARBIN 06/2/8(水) 10:17 発言
【34633】Re:メモリ上のデータの整列について VBAビギナー 06/2/8(水) 16:37 質問
【34811】Re:メモリ上のデータの整列について だるま 06/2/13(月) 15:23 回答
【34638】Re:メモリ上のデータの整列について ichinose 06/2/8(水) 18:42 発言
【34776】Re:メモリ上のデータの整列について Hirofumi 06/2/12(日) 11:12 回答

47062 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free