[技术讨论] vbs如何创建一个utf-8无签名格式文本？（已解决）

窄口牛

搜到的例子是utf-8有签名格式的。

窄口牛

打开方式左右不了哇，Linux下建的sh，肯定是utf8哇，空的确实是会没有区别？
事实证明空的缺数哟有问题
新建必须有内容才能确定。

窄口牛

gangzi="1.txt"
gangzi2="www.gangzi.org"
Set Stm1 = CreateObject("ADODB.Stream")
Stm1.Type = 2
Stm1.Open
Stm1.Charset = "UTF-8"
Stm1.Position = Stm1.Size
Stm1.WriteText gangzi2
Stm1.SaveToFile gangzi,2
Stm1.Close
set Stm1 = nothing
复制代码

窄口牛

Option Explicit

Dim sTEXT,sFILE

sFILE = "TEST_UTF8_NOBOM.TXT"
sTEXT = "Сампле тест"

Call WriteFileUTF8_NOBOM(sFILE,sTEXT)

WScript.Echo(sTEXT)

Private Sub WriteFileUTF8_NOBOM(sFILE,sTEXT)
    Const adSaveCreateNotExist = 1
    Const adSaveCreateOverWrite = 2
    Const adTypeBinary = 1
    Const adTypeText = 2
    Const adModeReadWrite = 3

    Dim oUTF8Stream,oBinaryStream
    Set oUTF8Stream = CreateObject("ADODB.Stream")
    Set oBinaryStream = CreateObject("ADODB.Stream")

    oUTF8Stream.Type = adTypeText
    oUTF8Stream.Charset = "utf-8"
    oUTF8Stream.Open
    oUTF8Stream.WriteText sTEXT
    oUTF8Stream.Position = 3 ' Skip BOM

    oBinaryStream.Type = adTypeBinary
    oBinaryStream.Mode = adModeReadWrite
    oBinaryStream.Open

    oUTF8Stream.CopyTo oBinaryStream
    oUTF8Stream.Flush
    oUTF8Stream.Close

    oBinaryStream.SaveToFile sFILE, adSaveCreateOverWrite
    oBinaryStream.Flush
    oBinaryStream.Close

    Set oUTF8Stream = Nothing
    Set oBinaryStream = Nothing
End Sub
复制代码