お世話になります。
今日仕事でcsvファイルをLine Inputで読み込んだとき
一回目のLine Inputで最後まで読んでしまうファイルがありました。
形式としては 下記のような感じだったのですが(外には出せないデータですのでこんな感じだというイメージです。)
家でこれを読ませると普通に1行ずつ読んでくれます。
読めないデータは1行目を削除すると一行ずつ読んでくれました。
したがって改行コードもあり認識しているはずなのですが・・・
一行すべて読んでしまうパターンがあるのでしょうか?
ご存知の人おられましたらよろしくお願いいたします。
,,,,,2006/12/28,2006/12/28,2006/12/28,2006/12/28,2006/12/28,2006/12/28
,,,,,10:10,10:10,10:10,10:10,10:10,10:10
2,,,,,ほげ,ぴよ,7,ぺぺぺぺ,0,2
2,,,,,ほげ,ぴよ,7,ぺぺぺぺ,255,3
2,,,,,ほげ,ぴよぷ,7,ぺぺ,1,4
3,,,,,ほげ,ぴよ,3,ぺ,23,5
4,,,,,ほげ,ぴよ,3,ぺぺぺぺ,3,7
5,,,,,ほげ,ぴよぷ,7,ぺぺぺぺ,5,6
6,,,,,ほげ,ぴよ,4,ぺぺ,-23.06666667,8
7,,,,,ほげ,ぴよ,7,ぺ,-43.32380952,9
7,,,,,ほげ,ぴよぷ,5,ぺぺぺぺ,-63.58095238,0
7,,,,,ほげ,ぴよ,7,ぺぺぺぺ,-83.83809524,5
7,,,,,ほげ,ぴよ,7,ぺぺ,-104.0952381,6
No.2ベストアンサー
- 回答日時:
かっての経験を元に状況を再現してみました。
示されている例文をメモ帳にコピペして、それを読み込んで改ざんして保存。
その後に、再読込みをしました。
Private Sub コマンド0_Click()
Dim I As Integer
Dim N As Integer
Dim Datas() As String
Dim NewData As String
Datas() = FileReadArray("D:TEMP\TEXT.TXT")
N = UBound(Datas())
NewData = Datas(0) & Chr(10)
For I = 1 To N
NewData = NewData & Datas(I) & Chr(10)
Next I
FileWrite "D:\Temp\TEXT_NEW.TXT", NewData
End Sub
Private Sub コマンド19_Click()
Dim strData As String
Open "D:\Temp\TEXT_NEW.TXT" For Input As #1
Do While Not EOF(1)
Line Input #1, strData
Debug.Print strData
Exit Do
Loop
Close #1
End Sub
結果、全行がイミディエイトウインドウに表示されました。
もう、20年も前にもなりますが、GGTの技術者が書いたアプリケーションにこの手の誤りがありました。
米国で最初に製図機を開発した老舗の優秀なプログラマでもミスをするということです。
Chr(10)=>vbCRLF
に修正すると1行目だけが表示されましたので、まず、この手のミスだと思います。
No.3
- 回答日時:
NewData = Datas(0) & Chr(10)
For I = 1 To N
NewData = NewData & Datas(I) & Chr(10)
Next I
は、別に意味ありません。
For I = 0 To N
NewData = NewData & Datas(I) & Chr(10)
Next I
これでOK。
まあ、1行目だけ Chr(10)、2行目から vbCRLF 等も試して残滓です。
No.1
- 回答日時:
>したがって改行コードもあり認識しているはずなのですが・・・
改行コードが有るか否かは、バイナリダンプツール等を
使ってちゃんと確認しましょう。
>外には出せないデータですので
>家でこれを読ませると
外には出せないデータは通常、家にも持ち帰ったりして
はいけないはずですが?
この回答への補足
お返事有難うございます。
>改行コードが有るか否かは、バイナリダンプツール等を
>使ってちゃんと確認しましょう。
了解です。
>外には出せないデータは通常、家にも持ち帰ったりして
>はいけないはずですが?
伝わっていないようでしたが
外にはだしていません。あくまでイメージです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
あるあるbotに投稿したけど採用されなかったあるある募集
あるあるbotに投稿したけど採用されなかったあるあるをこちらに投稿してください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
【VBA】テキストファイルを指定行数からの読み込み
Visual Basic(VBA)
-
VB6.0 ファイルの一括読込み
Visual Basic(VBA)
-
Access終了時にマクロまたはVBAの実行したい
その他(Microsoft Office)
-
-
4
EXCELのVBAでEOFを誤認識
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
CGIを勉強しています。¥n(改...
-
Excel VBA メール作成について ...
-
連想するもの教えてください
-
Win、Mac混在環境で、subversio...
-
Rstudioによるテキストマイニン...
-
エクセルシート名の制限を変更...
-
10Mバイトて文字数に すると何...
-
ListView重複データ削除
-
Javaで日本語1文字のバイト数
-
UTF-8で5~6バイトになる文字コ...
-
int型(2バイト)データの分割
-
PICNICのVB制御プログラム
-
VB.NET LeftBの代用
-
【VB2005】テキストボックス内...
-
バイト列とバイナリ列の違いが...
-
VB6でのファイルサイズ取得につ...
-
pythonにCでのexternはありますか
-
char str[256]の256の意味は?
-
memcmp バイナリデータの比較方法
-
stable diffusionのエラー
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBA メール作成について ...
-
Rstudioによるテキストマイニン...
-
CGIを勉強しています。¥n(改...
-
Line Inputにて改行があっても...
-
perlで、[ \\r\\n , \\n ]の意...
-
ホームページビルダーで行間を...
-
テキストボックスに入力された...
-
KENT-WEBのClipMailでのチェッ...
-
メモ帳での改行
-
【HELP!!】Excelから保存したtx...
-
連想するもの教えてください
-
number 改行が追加できない
-
エクセルで「改行コード」を「...
-
改行コードがそのまま表示され...
-
if文中で@***(配列変数)って...
-
大至急!! メモ帳でホームペ...
-
textareaのデータのcgiでの受け...
-
MACの改行コード変更について教...
-
改行コードについて
-
アクセスした日付より前の記事...
おすすめ情報