Keyword replacement

Module — 2 files

These files compile together (same module folder).

file_1.verse

# キーワード置換
ReplaceKeyword(Input : string, Keywords : [string]string, ?MinLength : int = 20) : string =
    # 文字数がMinLength未満の場合はそのまま返す
    if (Input.Length < MinLength):
        return Input
    
    var Result : string = Input
    
    # キーワードが含まれている場合、置換
    for (Keyword -> ShortForm : Keywords):
        set Result = Result.ReplaceAll(Keyword, ShortForm)
    
    return Result

file_2.verse

test():void=
    # キーワードマップを設定
    var Keywords : [string]string = map{}
    if:
        set Keywords["Shotgun"] = "SG"
        set Keywords["Assault Rifle"] = "AR"
        set Keywords["Submachine Gun"] = "SMG"

    # キーワードが含まれ、文字数超過しているので置換
    Print("{ReplaceKeyword("Enhanced Sentinel Pump Shotgun", Keywords)}")
    # Enhanced Sentinel Pump SG

    # キーワードが含まれ、文字数超過しているので置換
    Print("{ReplaceKeyword("Havoc Suppressed Assault Rifle", Keywords)}")
    # Havoc Suppressed AR

    # キーワードが含まれるが、文字数超過していないので置換されない
    Print("{ReplaceKeyword("Assault Rifle", Keywords)}")
    # Assault Rifle

    # キーワードが含まれてないので置換されない
    Print("{ReplaceKeyword("Test Test Test Test Test Test Test Test Test", Keywords)}")
    # Test Test Test Test Test Test Test Test Test

Copy-paste each file above is always free.

Keyword replacement

Comments