批处理之家 - Powered by Discuz! Board

标题: [技术讨论] 最近在学vbscripts，贡献一段CRT代码 [打印本页]

作者: 小新好猥琐 时间: 2023-6-20 15:29 标题: 最近在学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
复制代码

欢迎光临批处理之家 (http://www.bathome.net/)