Excel VBA質問箱 IV

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

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


22796 / 76732 ←次へ | 前へ→

【59313】Re:ρ(。 。、 ) イジイジ
回答  neptune  - 08/12/5(金) 18:49 -

引用なし
パスワード
   ▼りった さん:
あ〜あ・・・

せっかく書いたんでUPしときます。
ジャグ配列って配列の配列の事です。Variantを利用します。
Collectionに入れても同じことです。

Sub t()
Dim x() As String
Dim y() As Variant
Dim bytBuf() As Byte
Dim fNum As Long
Dim fLen As Long
Dim sBuf As String, sBuf2() As String
Dim i As Long, j As Long
Dim iMax As Long
Const sPath As String = "E:\Data\01HOKKAI.CSV"

  fLen = FileLen(sPath)
  ReDim bytBuf(fLen)
  
  fNum = FreeFile()
  
  Open sPath For Binary As #fNum
  Get #fNum, , bytBuf
  Close #fNum
  
  sBuf = StrConv(bytBuf, vbUnicode)

  sBuf2 = Split(sBuf, vbCrLf)
  iMax = UBound(sBuf2)
  ReDim y(iMax)
  For i = 0 To iMax - 1
    x = Split(sBuf2(i), ",")
    y(i) = x   '配列に配列を格納する
  Next i
  
  '20番目のレコードを出力してみる
  iMax = UBound(y(1))
  For i = 0 To iMax - 1
    Debug.Print y(20)(i)
  Next i
End Sub
1 hits

【59297】(難)Formulaでエラー。MS社のバグ? りった 08/12/5(金) 11:22 質問
【59299】Re:(難)Formulaでエラー。MS社のバグ? neptune 08/12/5(金) 12:39 発言
【59300】Re:(難)Formulaでエラー。MS社のバグ? neptune 08/12/5(金) 12:41 発言
【59303】Re:(難)Formulaでエラー。MS社のバグ? Yuki 08/12/5(金) 14:46 発言
【59309】(ノ_・、) グスン りった 08/12/5(金) 17:30 発言
【59312】ρ(。 。、 ) イジイジ りった 08/12/5(金) 18:35 お礼
【59313】Re:ρ(。 。、 ) イジイジ neptune 08/12/5(金) 18:49 回答
【59314】\(@^∇^@)/ りった 08/12/5(金) 20:55 お礼

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