read openコマンド、read textコマンド、read closeコマンド (ファイル読み込み関連コマンド) - プロセルピナマクロ・コマンド (Proserpine Macro Command) - PROSERPINE (プロセルピナ)

				プロセルピナ
Top	Internet Mail	Private Proxy	Capture Device		Download	Config and Words	Online Help	Online Home

[BACK]

☞ Top > Proserpine Macro > Commands > read

read関連コマンド (ファイル読み込み関連コマンド)

Macro Top | Variables | Constants | Commands | Ex-Commands

ファイル読み込み関連コマンド

・ read openコマンド
・ read textコマンド
・ 全行を一度に読み込む (read textコマンド)
・ read binコマンド
・ read closeコマンド

read openコマンド

dir= で指定したフォルダの file= のテキストファイルを開きます。
file= にフルパスで指定した場合は、dir= の指定を省略します。

オープンするファイルのエンコードは enc= で指定します。例えばEUC-JPでファイルを書き込む場合は、
enc="EUC-JP"
となります。
指定を省略した場合は UTF-8 になります。

複数のファイルを同時にオープンする場合は id= で識別番号を指定します。 id= の指定を省略した場合は 0 が使用されます (id=0 を指定した場合と同じになります)。
id= に指定できる範囲は 0 ～ 15 です。

オープンしようとしたファイルが存在しない場合、マクロのエラーとなり、マクロの実行はそこで終了します。このエラーを無視してマクロを続行させる場合は
igError
のオプションを指定してください。
【例】 read open: dir=Dir.MyDoc file="plainText\\myFile.txt" igError;
(このオプションはversion1.06以降のサポートです)

【記述例】

read open: dir="{{GTMAIL_HOME}}" file="test.txt"

read open: id=1 dir="C:\\MyFile\\Text" file="MyText.txt" enc="EUC-JP"

read textコマンド

read textコマンド は、 id= の識別番号でオープンしたファイルから、 O:string= で指定した文字列変数に１行を読み込みます。
id= の指定を省略した場合は、id=0 が使用されます。
O:count= には読み込まれた文字数が設定されます。

ファイル末端は空文字列を返します。空白行との区別は file statusコマンドを使用してください。

Sample code:

   read text: O:string=str["tmp"];
   if (str["tmp"].Length < 1) {
     //空白行 または ファイル末端
     file status: O:status=str["status"];
     if (str["status"] == "close") { 
       //ファイル末端
       }
      else {
       //空白行
       }
     }

パラメータ index= を指定して全行を読み込む (read textコマンド)

read textコマンドで、 index= パラメータの指定を行ったときは、ファイルの全行を一度に読み込みます (O:string= の指定は行いません)。
O:count= には読み込まれた行数が設定されます。

各行はそれぞれ別の文字列変数に設定されます。例えば、 index=10 を指定したときは、ファイルの先頭行は str[10] 、２行目は str[11] 、３行目は str[12] … と設定されます。

index= には文字列プレフィクスでの指定も可能です。
例えば、 index="Line" を指定したときは、先頭行は str["Line.0"] 、２行目は str["Line.1"] 、３行目は str["Line.2"] … と設定されます。

次の例は str["file"] のテキストファイルを str["行.0"] 以降の文字列変数に設定し、最後の10行をputコマンドで出力します。

Sample code:

read open: file=str["file"]
read text: index="行" O:count=intl["行数"]
read close:
put: value="全行数: " intl["行数"] " Lines.\r\n"
 
intl[0]=0;
if (intl["行数"] > 10) {
  put: value="最後の10行を表示"
  intl[0]=intl["行数"] -10
  }
while (intl[0] < intl["行数"]) {
  strl[10]="行." intl[0]
  put: str[strl[10]]
  culc: intl[0]++
  }

strl[ ] のローカル文字列変数に設定するときは、 strl.index= で文字列プレフィクスを指定します。例えば、 strl.index="Line" を指定したときは、先頭行は strl["Line.0"] 、２行目は strl["Line.1"] 、３行目は strl["Line.2"] … に設定されます。

例：特定文字のある行を別ファイルに書き出す

ファイル F:\work\data\source.txt を開いて１行毎に読み出し、文字列あいうえおを含む行があれば、それをファイル F:\work\output\result.txt に書き出す例です。

Sample code:

   :Start {
   read open: dir="F:\\work\\data" file="source.txt";
   write open: id=1 dir="F:\\work\\output" file="result.txt";
   while (true) {
     read text: O:string=str["tmp"];
     if (str["tmp"].Length < 1) {
       file status: O:status=str["status"];
       if (str["status"] == "close") { break; }
       }
      else {
       if (str["tmp"].IndexOf{"あいうえお"} >= 0) {
         write: id=1 w=str["tmp"];
         write: id=1 w="\r\n";
         culc: int["count"]++;
         }
       }
     }
   write close: id=1;
   read close:;
   
   put: value="Wrote " int["count"] " lines.";
   end:
   }

読み出した文字列長が０の場合、ファイル終端の場合があります。その場合に、file statusコマンドで、ファイルがクローズされたかどうかをチェックし (ファイル終端まで到達した場合は自動的にクローズされます)、クローズだった場合はループを抜けます。

読み込みで id=0 を使っているので、書き込みには id=1 を使用しています。上記例のように、id=0 の場合は指定を省略できます。

[BACK]

プロセルピナ

ファイル読み込み関連コマンド

read openコマンド

read textコマンド

パラメータ index= を指定して全行を読み込む (read textコマンド)

read binコマンド

read closeコマンド

例：特定文字のある行を別ファイルに書き出す