VBでCSVファイルのある行をインポート

質問

VBでCSVのインポートをしたいのです。
CSVファイルの中身で、最初の5行は読みません。そして、カンマ区切りの行の最初の文字が数字である場合だけを読みたいのです。で最後の3行も読みません。
ですので、CSVのデータを読む場合に最初の5行を飛ばすという方法か、カンマ区切りの行の最初の文字が数字の場合だけ読むという方法はありませんでしょうか。

Line Input #intFileNo, strTextLine
strTextLine = Replace(strTextLine, """", "")
str = Split(strTextLine, ",")

こんな感じのコードで考えてます。
お分かりの方いましたらお願いします。

回答No.2

ume_san · ベストアンサー

はい。

"データ作成"
"一時保存"
"受付番号"
"申請日時"
"一次承認日時"
"承認"
"大阪"
"依頼人"
"指定"
"データ"
"通番"
"1","","0000000001","","","0009","","","162"←
"2","","0000000002","","","0008","","","999"←
"入力"
"正常分"
"エラー"
"合計"

というデータなら、１１回　Line Inputを空回ししてやって
その後からデータを取り込めばいいですよね。
で、データを取り込む時にレコードの先頭を監視していて
数字以外のデータが入って来たら、データがなくなるまで空回しする
という方法をとるしかないでしょうね。きっと。

回答No.1

ume_san

はじめまして。
どちらにしても、読み込まないとデータは切り捨てられないと思うので。。。
最後から３レコードも全部で何レコードあるかがわからないと（最後まで読んでみないと）
どこから捨てていいかわからないですからねぇ

データの状態をご提示いただけますと説明しやすいのですが(^^ゞ

データはこんな感じですか？
aaa,bbb,ccc,dd,ee　　　　(取り込まない)
1ff,ggg,hhh,ii,jj　　　　(取り込まない)
2kk,lll,mmm,nn,oo　　　　(取り込まない)
ppp,qqq,rrr,ss,tt　　　　(取り込まない)
uuu,vvv,www,xx,yy　　　　(取り込まない)
aaa,bbb,ccc,dd,ee　　　　(取り込まない)
1ff,ggg,hhh,ii,jj　　　　(取り込む)
2kk,lll,mmm,nn,oo　　　　(取り込む)
ppp,qqq,rrr,ss,tt　　　　(取り込まない)
uuu,vvv,www,xx,yy　　　　(取り込まない)
aaa,bbb,ccc,dd,ee　　　　(取り込まない)
1ff,ggg,hhh,ii,jj　　　　(取り込まない)
2kk,lll,mmm,nn,oo　　　　(取り込まない)

補足

返信ありがとうございます。
CSVデータの中はこんな感じになります。

"データ作成"
"一時保存"
"受付番号"
"申請日時"
"一次承認日時"
"承認"
"大阪"
"依頼人"
"指定"
"データ"
"通番"
"1","","0000000001","","","0009","","","162"←
"2","","0000000002","","","0008","","","999"←
"入力"
"正常分"
"エラー"
"合計"

←の部分だけを読みたいと思っております。
この数字はその日でデータによって数が違います。
1から10のときもあれば1から100の場合もあります。1からというのは変わりません。そこ以外のフォーマットは確定しています。不確定なのは数字の行だけになります。
よろしくお願いいたします。