HSPでコマンドラインを分解する | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
#runtime "hsp3cl"
#cmpopt varinit 1
#module Cmder
    #define dquot "$__DoubleQuotation__$"
    #define space "$__EscaprSpacE__$"
    #deffunc local refArgs array args
        cmd=dir_cmdline
        strrep cmd,"\\\"",dquot
        sdim dbreaks
        split cmd,"\"",dbreaks
        cmd=""
        foreach dbreaks
            if cnt\2=0 {
                while -1!=instr(dbreaks(cnt),,"  ")
                    strrep dbreaks(cnt),"  "," "
                wend
            }
            else {
                strrep dbreaks(cnt)," ",space
            }
            cmd+=dbreaks(cnt)
        loop
        split cmd," ",args
        foreach args
            strrep args(cnt),space," "
            strrep args(cnt),dquot,"\""
        loop
    return
#global
sdim args
refArgs@Cmder args
foreach args
    mes args.cnt+
loop
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX