[ホーム] - [ノーツドミノ プログラミングサンプル一覧] - [テキストファイルをスペースも含めて１行ごと読み込むサンプルコード]




テキストファイルをスペースも含めて１行ごと読み込むサンプルコード| ノーツドミノ


問題


Lotus Script でテキストファイルを読み込もうとしてます。しかしファイルを読み込むことは成功しますが、スペース区切りで読み込まれてしまいます。
スペースも含めて1行ごとに読み込みたいと面ます。どのようなコードが必要ですか。

fileNum% = Freefile()
ret=""
Open "c:\temp\test.txt" For Input As #fileNum% 

     

Do While Not Eof( fileNum% )

   Input #fileNum% , tempstr

   ret=ret+tempstr+Chr(13)+Chr(10)

Loop

Close #fileNumnew%


解決


Input ではなく line INPUT を使用するとスペースを含む1行として読み込まれます。以下のように修正してください。

【訂正前】 


Input #fileNum% , tempstr


【訂正後】 


Line Input #fileNum% , tempstr

(補足)Lotus Script を使用しています。(VBを Notesに拡張した言語です。)





本ページは IBM Lotus Notes Domino (ロータスノーツドミノ)を対象としています。 基本的には Notes 4,5,及び6以後を対象としていますが、バージョンによっては対応していない場合があります。 lotus scriptや @関数 (@コマンド)を対象としていて、VB Scriptには対応していません。 本サイト内掲載されている情報は、著作権法により保護されています。いかなる場合でも権利者の許可なくコピー、配布することはできません。 このページはリンクフリーです。(このページへの直接リンクも可能です。)

[ホーム] - [ノーツドミノ プログラミングサンプル一覧]