🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.visualbasic
Article #1027

Re: コマンド引数を分解する。

#1027
From: Hiroshi Kamata
Date: Sat, 22 Nov 1997 00:00
60 lines
1891 bytes



> aaa.exe a b c d e
>
> $B$r<B9T$7$^$7$?!#(B
> command$B4X?t$r;H$C$F!"%3%^%s%I0z?t$G$"$k(B
> "a b c d e"$B$r(Bstring$B7?JQ?t$K3JG<$7$^$7$?!#(B
>
> $BEvJ}$G$O<B9T;~$K;XDj$5$l$?!"$3$l$i(B5$B$D$N(B
> $B0z?t$r$=$l$>$lI>2A$7!"$=$N8e$N=hM}$r7hDj(B
> $B$9$k$h$&$K$7$h$&$H;W$C$F$$$^$9!#(B
>
> $B$D$^$j!"0J2<$N$h$&$J=hM}$r$7$?$$$N$G$9!#(B
>
>  dim Cmdline as string
>  dim Dim firstarg, secondarg, thirdarg, fourtharg, fiftharg As String
>
>  Cmdline = Command '$B%3%^%s%I0z?t<h$j9~$_(B cmdline = "a b c d e"
>
>  'Cmdline$B$+$i!"3F0z?t$r2rBNJ,N%!#(B
>  'firstarg = "a"
>  'secondarg = "b"
>  'thirdarg = "c"
>  'fourtharg = "d"
>  'fiftharg = "e"
>
>  if firstarg = "a" then
>   (I%%%%%(B
>  elseif secondarg = "b" then
>   (I%%%%%(B
>  end if
>
> $B>e5-$NNc$N2rBNJ,N%$N$d$jJ}$K$D$$$FG:$s$G$$$^$9!#(B
> $B1s2s$j$J$d$jJ}$J$i2?$+$"$k$h$&$J5$$,$7$^$9$,!"(B
> $B4JC1$KJ,2r$9$k$3$H$O$G$-$J$$$+C5$C$F$$$^$9!#(B
>
>


$B2rBNJ,N%$H$O0c$$$^$9$,?tCM$G$O$J$/J8;z$G$NJ,4t$J$i2<5-$N$h$&$J(B
$BJ}K!$,$"$j$^$9(B

$B%3%^%s%I(B $B%i%$%s(B >  abc.exe  /a test $B$G(B "/a","test"$B$G!%!%!%!%(B
                        ^^^^^^^^^^^^^^^^^^

dim Cmdline as string

Cmdline = Ucase(Command())

If Instr(Cmdline,"/A") Then ...........
if Instr(Cmdline,"TEST") Then .........



--
   Hiroshi Kamata        vXX//r
   kamata@ingnet.or.jp   (Q Q )
---------------------oOOo-(_)-oOOo----
Technical Details
Message-ID: <347613EA.3DDFFA05@ingnet.or.jp>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <34727D3B.1FE8@mxn.meshnet.or.jp>

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: 105c2e,c47bedc0e0e8aa20
X-Google-Attributes: gid105c2e,public
From: Hiroshi Kamata <kamata@ingnet.or.jp>
Subject: Re: コマンド引数を分解する。
Date: 1997/11/22
Message-ID: <347613EA.3DDFFA05@ingnet.or.jp>
X-Deja-AN: 291428172
References: <34727D3B.1FE8@mxn.meshnet.or.jp>
Organization: ING Internet User
Newsgroups: fj.lang.visualbasic