[技术讨论] 最近在学vbscripts，贡献一段CRT代码

小新好猥琐

哈哈哈，再也不用手动调整编码格式了~

1. 设置crt编码格式为GB18030

# $language = "VBScript"
# $interface = "1.0"

crt.Screen.Synchronous = True

Sub Main
    Set SConfig = crt.GetScriptTab.Session.Config
    SConfig.SetOption "Output Transformer Name", "GB18030"
        SConfig.Save
End Sub
复制代码

2. 设置crt编码格式为UTF-8

# $language = "VBScript"
# $interface = "1.0"

crt.Screen.Synchronous = True

Sub Main
    Set SConfig = crt.GetScriptTab.Session.Config
    SConfig.SetOption "Output Transformer Name", "UTF-8"

SConfig.Save
End Sub
复制代码