[ホーム] - [ノーツドミノプログラミングサンプル一覧] - [テキストファイルへ書き出す、テキストファイルを読み込むサンプル]

テキストファイルへ書き出す、テキストファイルを読み込むサンプル| ノーツドミノ

Lotus Script でテキストファイルを書き出すあるいはテキストファイルを読み込む基本的なサンプルコードを紹介します。

テキストファイルへ読み込むサンプルの紹介です。c:\temp\test.txt ファイルの内容を読み込み、変数である outputs へ設定しています。



Sub Click(Source As Button)

     Dim buf As String

     Dim fileNum As Integer     

     

     fileNum% = Freefile() 

     outputs=""

     Open "c:\temp\test.txt" For Input As fileNum%

     Do While Not Eof(fileNum%)

          Line Input #1, buf$ 

          outputs=outputs + buf + Chr(13)+Chr(10)

     Loop 

     

     Msgbox outputs

     Close fileNum% 

End Sub

テキストファイルへ書き込むサンプルです。c:\temp\test.txt に "abc"という文字列を書き込んでいます。



Sub Click(Source As Button)

     

     Dim fileNum As Integer     

     

     fileNum% = Freefile() 

     

     Open "c:\temp\test.txt" For Output As fileNum%

     Print #fileNum% , "abc"

     

     Close fileNum% 

End Sub

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

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