Article View: fj.lang.visualbasic
Article #1027Re: コマンド引数を分解する。
From: Hiroshi Kamata
Date: Sat, 22 Nov 1997 00:00
Date: Sat, 22 Nov 1997 00:00
60 lines
1891 bytes
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-mailReferences:
<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