コマンドライン文字列を解析して取得 | 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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
;
;   コマンドライン文字列を解析して取得するモジュール
;
;参考 ： http://www.hsp.tv/play/pforum.php?mode=pastwch&num=47162
;
;
#include "kernel32.as"
#include "shell32.as"
#ifndef __CommandLineToArgvW__
#define global __CommandLineToArgvW__
#module 
#deffunc test var v_NumArgs, array v_CmdLinesA
    ;   コマンドライン文字列（Unicode型）を取得
    ;戻り値：文字列へのポインタ
    GetCommandLineW
    lpCmdLineW = stat
    ;   コマンドライン文字列を解析
    CommandLineToArgvW lpCmdLineW, varptr(NumArgs)
    if stat=0 : v_NumArgs = 0 : return
    pCmdList = stat
    ;pCmdList : 組み立てられた引数リストへのポインタ
    ;NumArgs  : 引数の数を受け取る整数変数へのポインタ
    dupptr p, pCmdList, 4*NumArgs, vartype("int")
    repeat NumArgs
        dupptr temp_CmdLineW, p(cnt), 256, vartype("str")
        v_CmdLinesA(cnt) = cnvwtos(temp_CmdLineW)   ;Unicode -> Shift_JIS
    loop
    LocalFree pCmdList
    v_NumArgs = NumArgs
    return
#global
#endif  // __CommandLineToArgvW__
;
;   実行サンプル
;
#if 10  // 実行サンプル
    test argc, argv
    mes "引数の数 = " + argc
    repeat argc
        mes "" + cnt + " : " + argv(cnt)
    loop
#endif  // 実行サンプル
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX