ENUMMACRO系¶

関数名	引数	戻り値
`ENUMMACROBEGINSWITH`	`string`	`int`
`ENUMMACROENDSWITH`	`string`	`int`
`ENUMMACROWITH`	`string`	`int`

API

int ENUMMACROBEGINSWITH keyword
int ENUMMACROENDSWITH keyword
int ENUMMACROWITH keyword

定義されたマクロ名でkeywordを含んでいるマクロの総数を返す
また、keywordを含むマクロ名をRESULTSの配列に代入する

ENUMMACROBEGINSWITHは，keywordで始まるマクロ名を返します。
ENUMMACROENDSWITHは，keywordで終わるマクロ名を返します。
ENUMMACROWITHは，keywordを含んだマクロ名を返します。

ヒント

命令、式中関数両方対応しています。

例

DEFINE.ERH

#DIMS CONST Foo1 = "1"
#DEFINE Foo2 "Test"
#DEFINE Foo3
#DEFINE MyFoo 1 + 1
#DEFINE YourFoo 1 + 1
#DEFINE AFooInTheMiddle

MAIN.ERB

@SYSTEM_TITLE

    PRINTFORML "Foo"で始まるマクロ名の数:{ENUMMACROBEGINSWITH("Foo")}
    ENUMMACROENDSWITH "Foo"
    PRINTFORML "Foo"で終わるマクロ名の数:{RESULT}
    CALL PrintFoo
    ENUMMACROWITH "Foo"
    PRINTFORML "Foo"を含んだマクロ名の数:{RESULT}
    CALL PrintFoo

    ONEINPUT

@PrintFoo
    #DIM i
    FOR i, 0, RESULT
        SIF i>0
            PRINT , 
        PRINTS RESULTS:i
    NEXT
    PRINTL

結果

"Foo"で始まるマクロ名の数:2
"Foo"で終わるマクロ名の数:2
MyFoo, YourFoo
"Foo"を含んだマクロ名の数:5
Foo2, Foo3, MyFoo, YourFoo, AFooInTheMiddle