■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#8317-01行単位のファイル内容の取得についてTOM2000-03-07(火) 22:55
     #8321-0RE#8317:1行単位のファイル内容の取得について魔界の仮面弁士2000-03-07(火) 23:59
     #8323-0RE#8321:1行単位のファイル内容の取得についてTOM2000-03-08(水) 00:52
     #8327-0RE#8323:1行単位のファイル内容の取得について魔界の仮面弁士2000-03-08(水) 02:12
     #8328-0RE#8327:1行単位のファイル内容の取得についてTOM2000-03-08(水) 03:47
#8317-0
1行単位のファイル内容の取得について
はじめまして、TOMと申します。

ファイルの内容を「Line Input #」で1行ずつ取得しようとしているのですが、
取得したデータが「xxx・xxxxx・xxx」となっており、ファイル全体のデータを
取得してしまいます(たぶん、「・」が改行だと思うのですが)。

エディタで読み込むと、ちゃんと改行されています。

どうすれば、1行単位で取得できる様になるのでしょうか?
#8321-0
RE#8317:1行単位のファイル内容の取得について
> ファイルの内容を「Line Input #」で1行ずつ取得しようとしているのですが、
> 取得したデータが「xxx・xxxxx・xxx」となっており、ファイル全体のデータを
> 取得してしまいます(たぶん、「・」が改行だと思うのですが)。
「たぶん」じゃ、回答できません。(^^;)
バイナリエディタを使うなり、Asc関数を使うなりして、
その文字が何であるのか、文字コードを調べてみてください。

> エディタで読み込むと、ちゃんと改行されています。
vbCrLfじゃなくて、vbLf改行になっているとか?
#8323-0
RE#8321:1行単位のファイル内容の取得について
> > ファイルの内容を「Line Input #」で1行ずつ取得しようとしているのですが、
> > 取得したデータが「xxx・xxxxx・xxx」となっており、ファイル全体のデータを
> > 取得してしまいます(たぶん、「・」が改行だと思うのですが)。
> 「たぶん」じゃ、回答できません。(^^;)
> バイナリエディタを使うなり、Asc関数を使うなりして、
> その文字が何であるのか、文字コードを調べてみてください。
> 
> > エディタで読み込むと、ちゃんと改行されています。
> vbCrLfじゃなくて、vbLf改行になっているとか?

ご回答有り難うございます。
上記ファイルは、ホームページからダウンロードしたHTMLファイルなのですが、
このファイルをエディタで「SFT_JIS」形式で保存したところ1行単位で取得できる
様になりました。
そこで、ファイルをSFT_JIS形式に変換する方法をご教授して頂けないでしょうか。
#8327-0
RE#8323:1行単位のファイル内容の取得について
>>> エディタで読み込むと、ちゃんと改行されています。
>> vbCrLfじゃなくて、vbLf改行になっているとか?
> 上記ファイルは、ホームページからダウンロードしたHTMLファイルなのですが、
> このファイルをエディタで「SFT_JIS」形式で保存したところ1行単位で取得できる
> 様になりました。
改行コードの変換だけで良ければ、こんな感じでOKだと思います。
      Dat = 元データ
      Dat = Replace(Dat, vbCrLf, vbLf)
      Dat = Replace(Dat, vbCr, vbLf)
      Dat = Replace(Dat, vbLf, vbCrLf)
      Text1.Text = Dat 


> そこで、ファイルをSFT_JIS形式に変換する方法をご教授して頂けないでしょうか。
Shift JISへの変換と言われましても……。
元の文字コードがわからないと、変換のしようがないです。(;_;)
#8328-0
RE#8327:1行単位のファイル内容の取得について
> >>> エディタで読み込むと、ちゃんと改行されています。
> >> vbCrLfじゃなくて、vbLf改行になっているとか?
> > 上記ファイルは、ホームページからダウンロードしたHTMLファイルなのですが、
> > このファイルをエディタで「SFT_JIS」形式で保存したところ1行単位で取得できる
> > 様になりました。
> 改行コードの変換だけで良ければ、こんな感じでOKだと思います。
>       Dat = 元データ
>       Dat = Replace(Dat, vbCrLf, vbLf)
>       Dat = Replace(Dat, vbCr, vbLf)
>       Dat = Replace(Dat, vbLf, vbCrLf)
>       Text1.Text = Dat 
> 
> 
> > そこで、ファイルをSFT_JIS形式に変換する方法をご教授して頂けないでしょうか。
> Shift JISへの変換と言われましても……。
> 元の文字コードがわからないと、変換のしようがないです。(;_;)

魔界の仮面弁士さん、ご教授有り難うございます。
改行コードを変換したところ、読めるようになりました。
このページと関連する記事:
#8319-01行単位のファイル内容の取得について2000-03-07(火) 23:09
#8318-01行単位のファイル内容の取得について2000-03-07(火) 23:08
#18944-0htmlソースファイル内容読み込み2001-11-28(水) 12:37
#21351-0読み出しの時間2001-06-14(木) 07:00
#29560-0ファイルの読み込み・書き出しについて2002-06-24(月) 14:50
#20936-0テキストファイルの行数2001-05-17(木) 19:10
#38829-0Inetコントロールで取得後の処理2001-02-15(木) 00:04
#10796-0テキストファイルの読み込み2000-08-23(水) 12:03
#1506-050万行のテキストファイルオープンで固まる2005-03-28(月) 18:12
#21235-0HTML→CSV変換2002-06-21(金) 12:01
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)