🚀 go-pugleaf

おざきです．

>>>>> "akirtaka" == Takahashi akira <akirtaka@nibh.go.jp> writes:

akirtaka> 　TurboPascal6.0でMS-DOS(98)でデータ処理のプログラムを書いて
akirtaka> いますが，コマンドラインから処理対象のファイル名を指定する
akirtaka> ための方法がわかりません．

function ParamStr(Index: Integer): string;
function ParamCount: Integer;

がお望みのものと思います．
--
Satoshi OZAKI
Mail: ozaki@jade.dti.ne.jp (Home), Fe@isl.rdc.toshiba.co.jp (Office)

In article <6aruna$890$1@ripspost.aist.go.jp> akirtaka@nibh.go.jp (Takahashi akira) writes:
>>
>>  $B!!(BTurboPascal6.0$B$G(BMS-DOS(98)$B$G%G!<%?=hM}$N%W%m%0%i%`$r=q$$$F(B
>>   $B$$$^$9$,!$%3%^%s%I%i%$%s$+$i=hM}BP>]$N%U%!%$%kL>$r;XDj$9$k(B
>>   $B$?$a$NJ}K!$,$o$+$j$^$;$s!%(B
>>
C$B$G$$$&(B getopt()$BAjEv$N4X?t$O(B TurboPascal 6.0$B$N%i%$%V%i%j$K$O(B
$B$"$j$^$;$s$N$G!"(BParamStr()$B$H(BParamCount$B$r;H$C$F<+:n$9$kI,MW$,$"$j$^$9!#(B

$BC1$J$k%U%#%k%?$@$C$?$i(B stdin$B$H(Binput, stdout$B$H(B output$B$O$[$C$H$$$F$b(B
$B7k9g$5$l$F$$$^$9$N$G!"%j%@%$%l%/%H$G$b=hM}$G$-$^$9!#(B

--
OGAWA, Hiroshi(santa@kangaku-u.ac.jp)
Associate Professor(Labour Economics)
Department of Economics, Kanto-Gakuen Univ. Gunnma, Japan

　生命研の高橋です．

<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