🚀 go-pugleaf

$B=i$a$^$7$F!"DGL>$H?=$7$^$9!#(B

M.Kumai wrote in message <34727D3B.1FE8@mxn.meshnet.or.jp>...
>$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
>
>$B2?$+%*%9%9%a$N4X?t$d%9%F!<%H%a%s%H$,$"$kJ}(B
>$B%l%92<$5$$!#$=$l$G$O!#(B
>


$B$:$P$j!"$=$N$b$N$NF0:n$r$9$k%9%F!<%H%a%s%H$d4X?t$O:#$N$H$3$m8+$?;v$,$J$$$G$9(B
$B$,!"#B#o#o#k#s#O#n#l#i#n#e$KF1MM$N(BCommand()$B4X?t$G<hF@$7$?%3%^%s%I%i%$%s$r(B
$B%P%j%"%s%H$NG[Ns$K@Z$jJ,$1$kF0:n$r$9$k4X?t$N%5%s%W%k$,:\$C$F$$$k$N$G!"(B
$B$=$l$r0zMQ$7$F2~NI$9$l$PNI$$$H;W$$$^$9!#(B

$B0J>e!#(B

$B?y2,!wITFs1[$H?=$7$^$9!#(B

In article <34727D3B.1FE8@mxn.meshnet.or.jp>, copoo@mxn.meshnet.or.jp says...
>
>$B$/$^$$$G$9!#$*@$OC$K$J$C$F$*$j$^$9!#(B
>$B$5$C$=$/$G$9$,<ALd$G$9!#(B
>
>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
>  $B!&!&!&!&!&(B
> elseif secondarg = "b" then
>  $B!&!&!&!&!&(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
>
>$B2?$+%*%9%9%a$N4X?t$d%9%F!<%H%a%s%H$,$"$kJ}(B
>$B%l%92<$5$$!#$=$l$G$O!#(B

$B<+J,$G:n$k$H$3$s$J46$8$G$7$g$&$+!)(B
$B4V0c$C$F$$$k8D=j$J$I$,$"$j$^$7$?$i$I$J$?$+%U%)%m!<$*4j$$$7$^$9!#(B

'--------------------------------------------------------
'   $B4X?tL>(B  : GetArgv
'   $B5!G=(B    : $B%3%^%s%I%i%$%s0z?t$rJ,3d(B
'   $B0z?t(B    : szCommand $B%3%^%s%I%i%$%s0z?t(B
'           : argv() $BJ,3d$5$l$?%3%^%s%I%i%$%s0z?t(B
'   $BLa$jCM(B  : $BJ,3d$5$l$?8D?t(B
'--------------------------------------------------------
Public Function GetArgv(szCommand As String, argv() As String) As Long
    Dim nSpcPos As Integer
    Dim i%

    If szCommand = "" Then
        GetArgv = 0
        Exit Function
    End If

    i% = 0  '$B=i4|2=(B

    Do While (InStr(szCommand, " "))
        nSpcPos = InStr(szCommand, " ")
        If nSpcPos Then
            argv(i%) = Left(szCommand, nSpcPos - 1)
            szCommand = Right(szCommand, Len(szCommand) - nSpcPos)
            i% = i% + 1
        Else
            argv(i%) = szCommand
        End If
    Loop

    GetArgv = i%    '$BLa$jCM(B

End Function

$B8F$S=P$7B&(B
Private Sub Command1_Click()
    Const MAX_ARG = 32
    Dim argv(MAX_ARG) As String
    Dim szCommand As String
    Dim num As Integer
    Dim i%

    szCommand = Command
    num = GetArgv(szCommand, argv())
    For i% = 0 To num - 1
        Debug.Print argv(i%)
    Next i%

End Sub

> 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----

In article <1997Nov19.101719.28480@fujikoshi.co.jp>, Kazumi Sugioka wrote:
>$B<+J,$G:n$k$H$3$s$J46$8$G$7$g$&$+!)(B
>$B4V0c$C$F$$$k8D=j$J$I$,$"$j$^$7$?$i$I$J$?$+%U%)%m!<$*4j$$$7$^$9!#(B
($B0J2<N,(B)

 $B$3$N>l9g!"(B

AAA.EXE "C:\My Documents"

$B$H$$$&0z?t$,$"$j$($k$J$i$P!"Cm0U$,I,MW$G$9!#(B

-- 
Computer Institute of Japan, Ltd.
$B:4F#@59((B masahiro@cij.co.jp

$B?y2,!wITFs1[$G$9!#(B

In article <65dnvt$gmk@cij-gw.ykhm.cij.co.jp>, masahiro@cij.co.jp says...
>
>In article <1997Nov19.101719.28480@fujikoshi.co.jp>, Kazumi Sugioka wrote:
>>$B<+J,$G:n$k$H$3$s$J46$8$G$7$g$&$+!)(B
>>$B4V0c$C$F$$$k8D=j$J$I$,$"$j$^$7$?$i$I$J$?$+%U%)%m!<$*4j$$$7$^$9!#(B
>($B0J2<N,(B)
>
> $B$3$N>l9g!"(B
>
>AAA.EXE "C:\My Documents"
>
>$B$H$$$&0z?t$,$"$j$($k$J$i$P!"Cm0U$,I,MW$G$9!#(B

$B$J$k$[$I!#(B
$B0z?t$K%U%!%$%kL>$rEO$9>l9g$O%7%g!<%H%U%!%$%kL>$r;H$&$h$&$K$9$l$P$h$$$G$9$M!#(B

$B$H$3$m$G!"(B Do While() $B$r(B Loop While() $B$KJQ99$7$J$$$H!"(B
$B0z?t$,#1$D$@$1$N>l9g$O$9$0$K%k!<%W$rH4$1$F$7$^$$$^$&$3$H$K5$$E$-$^$7$?!#(B