🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.pascal
Article #82

Re: command line option

#82
From: Takahashi akira
Date: Mon, 09 Feb 1998 00:00
59 lines
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-mail
References: <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