複数行あるiniファイルのデータを全て読み込むには？

yossynO 2005-06-08 05:01:20 No: 122345

iniファイルからデータを読み込む際に
改行している複数行のiniファイルのデータを最後までまるごと
テキストボックスに表示させたいのですがどのようにしたら
よいでしょうか？
現状として、一行目までしか読み込むことが出来ません。
よろしくお願いします。

通ってみた 2005-06-08 05:14:26 No: 122346

EOF()
Line Input

３−ｔ 2005-06-08 05:30:03 No: 122347

データを全て読み込むというのは例えば

[Section1]
Key1=ABCDEFG
Key2=HIJKLMN
Key3=OPQRSTU

で指定したセクションの全てのキーとその値を取得したいということでしょうか？
であればGetPrivateProfileSectionを調べてみて下さい。

それともキーの値に改行した文字列が入っている（下記のような感じ）
[Section1]
Key1=ABCDEFG
HIJKLMN
OPQRSTU

でKey1の値として

ABCDEFG
HIJKLMN
OPQRSTU

を取得したいということでしょうか？
であれば、それはiniファイルではありませんので通ってみたさんの回答を参考に
自分で取得する関数を作って下さい。

id_rsa+ 2005-06-08 05:44:29 No: 122348

>EOF()
>Line Input

「データを最後までまるごと」らしいので、Lineで読む必要は無いでしょ。
バイナリで丸ごと読み込み♪

Dim iFile As Integer
Dim FileName As String

    iFile = FreeFile
    Open FileName For Binary Access Read Lock Read As #iFile
    Text1.Text = StrConv(InputB(LOF(iFile), #iFile), vbUnicode)
    Close iFile

通ってみた 2005-06-08 06:29:31 No: 122349

>>id_rsa+
まぁ一発読み込みでもいいんでしょうが…モノがモノなので一行ずつ読み込んで判定処理なんかをカマした方がいいかと思いまして

まぁ、質問者の使い方次第ですな

通ってみた 2005-06-08 06:31:16 No: 122350

>>id_rsa+さん
申し訳ないです
敬称略してしまいますたorz