Article View: fj.lang.pascal
Article #82Re: command line option
From: Takahashi akira
Date: Mon, 09 Feb 1998 00:00
Date: Mon, 09 Feb 1998 00:00
59 lines
2464 bytes
2464 bytes
生命研の高橋です.
<6aruna$890$1@ripspost.aist.go.jp>の記事において
私は書きました。
>> TurboPascal6.0でMS-DOS(98)でデータ処理のプログラムを書いて
>> いますが,コマンドラインから処理対象のファイル名を指定する
>> ための方法がわかりません.
に対して,メールで有馬様,ニュースでおざき様,OGAWA様よりご回答を
いただきました.大変ありがとうございました.
paramStr(),paramCount()で作成することがわかりました.
とりあえず,こんなプログラムで,-i,-oのフラグを読んで入出力
のファイルを指定することに成功しています.
%cmdline -i inputfilename -o outputfilename
という感じのコマンドラインで,入出力のファイルを指定します.
////////////////////////////////////////////////////////////
program cmdline_pas;{入出力のファイルを-i,-oのフラグで指定する}
var I:word;
input_filename,output_filename:string[127];
begin
for I=1 to paramCount do
begin
if paramStr(I)='-i' then
begin
writeLn('Input file is ',paramStr(I+1));
input_filaneme:=paramStr(I+1);
end;
if paramStr(I)='-o' then
begin
writeLn('output file is ',paramStr(I+1));
output_filaneme:=paramStr(I+1);
end;
end;
writeLn(input_filaneme);
writeLn(output_filename);
{この後はinputとoutputの変数に対して適当にassign処理をすれば吉}
end.
//////////////////////////////////////////////////////////////////
オプションがないときのエラーの処理をしていませんが,一応
これで使えているようです.
みなさまどうもありがとうございました.
///////////////////////////// // ///////
akilaTakahasi NEDOco-researcher in nibh
akirtaka@nibh.go.jp :memory congnition
Technical Details
Message-ID:
<6bmrv4$cq1$1@ripspost.aist.go.jp>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailReferences:
<6aruna$890$1@ripspost.aist.go.jp>Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS X-Google-Thread: ff90a,71a25239cf617868 X-Google-Attributes: gidff90a,public From: akirtaka@nibh.go.jp (Takahashi akira) Subject: Re: command line option Date: 1998/02/09 Message-ID: <6bmrv4$cq1$1@ripspost.aist.go.jp> X-Deja-AN: 323400625 References: <6aruna$890$1@ripspost.aist.go.jp> Mime-Version: 1.0 (generated by MimeKit/1.7) X-Forwarded: by - (DeleGate/4.3.0) Content-Type: text/plain; charset=ISO-2022-JP Organization: Agency of Industrial Science and Technology, Tsukuba Newsgroups: fj.lang.pascal