GetTextStringLine

GetTextStringLine

名称の英語はテキトウです

これはツールではなくプロシージャです。
txtデータを読み込む時に使います。

内容
指定したテキスト形式のファイルを１行単位で配列に格納

入力
string パスとファイル名

戻り値
string[]

global proc string[] GetTextStringLine(string $mcl)
{
string $nextLine,$StringLine[];
int $fileNumber;
int $cnt = 0;

$fileNumber = `fopen $mcl "r"`;
$nextLine = `fgetline $fileNumber`;
while ( size( $nextLine ) > 0 )
{
  $nextLine = `fgetline $fileNumber`;
$StringLine[$cnt] = $nextLine;
$cnt++;
  }
fclose $fileNumber;
return $StringLine;
}