- ベストアンサー
ファイルが1行づつ読み込めない
おせわになります よろしくお願いします VB6.0 OS：XP を使用しています VBからHTMLファイルを読み込んでいるのですが 1行づつ読み込めたりよみこめなかったりします ファイルの中は ---------------------------- <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=shift_jis" /> <title></title> </head> <body> <!-- $$$TAS:スタート$$$ --> <table width="560" border="0" cellspacing="15" cellpadding="0" summary="メニュー構成の為のテーブル"> <tr> <td class="space" valign="top"><img src="img/photo01.jpg" width="150" height="100" alt="" /></td> <td valign="top"> <table width="375" border="0" cellspacing="0" cellpadding="0" summary="メニュー構成の為のテーブル"> <tr> <td class="s_title"><span class="s_title01">○○</span></td> </tr> <tr> <td class="txt02">○○○</td> </tr> </table> </td> </tr> </table> <!-- $$$TAE --> </body> </html> ------------------------------- です。 ファイルの中が ----------- 1 2 3 ----------- とかなら正常に動作します ソースは Dim intFileNo As Integer Open strNowPage For Input As #intFileNo Do While (Not FileSystem.EOF(intFileNo)) Dim stBuffer As String Line Input #intFileNo, stBuffer debug.print stbuffer Loop Close #intFileNo です 何か間違っているところがあればご指摘お願いします 以上よろしくお願いします。
- SAY_MAN
- お礼率61% (74/121)
- Visual Basic
- 回答数3
- ありがとう数2
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
このHTMLファイルで現象は再現するのでしょうか？ 当方で確認してみましたが行単位で読めているようですが … ちなみに25行であればいいんですよね <html> から </HTML>までのカウントですが
その他の回答 (2)
- redfox63
- ベストアンサー率71% (1325/1856)
補足の内容からすると #2氏も回答しているように改行コードの問題のような気がします メモ帳で開いた際にそのHTMLファイルが上矢印みたいな物が各行末に表示されるなら改行コードがLFのみに成っているのでしょう コマンドプロンプトで Type ファイル名[enter]でHTMLファイルを表示した際に各行が斜めに段違いになるなら改行コードがCRだけなのでしょう メモ帳で改行コードがCRになっているファイルは高さが半分の黒い四角で表示されると思います
お礼
ありがとうございます。 無事解決できました。 やはり改行コードだったようです。
- K-Sogacchi
- ベストアンサー率53% (50/93)
あくまで推測ですが、 もしかして読もうとしてるHTMLファイルがUNIX系で作られてて 改行コードが違う、なんて事はありませんか？ Windows(DOS)系はCrLf、UNIX系は確かLfのみのはず。
お礼
ありがとうございます。 HTMLファイル自体はWindowsPCで作成したものです。 文字コードはShift_jisで書かれています。 IE上で問題なく表示はできます。 ですが、念のためテキストエディターで読み直ししてみたら 直りました。 結局のところ改行コードの違いだったみたいなのですが なぜこんなことになったのかは不明です ですが、解決しましたので良しとしようと思います。 ありがとうございました。
補足
ありがとうございます ループのときに 最初の1回は何もなし(改行のみ？)で来るのですが その次に来たときに残り全部が取得されます redfox63さんがうまくいくということは ファイルの方になにか問題があるのでしょうか・・・