分类 按键精灵 下的文章

1. 保存文件为GB2312编码

Function 保存文件(文件,内容)
    Set Fs = CreateObject("Scripting.FileSystemObject")    '仅支持GB2312 
    Set File = Fs.OpenTextFile(文件,2,True)    '2覆盖，8追加; True文件不存在则自动创建.Flase不自动创建 
    File.writeline 内容    'file.writeline 会写入换行符,file.write 不会写入换行符 
    File.Close 
End Function

2. 自定义保存文件编码

Function 保存附件(文件,内容,编码)
    dim fxt,txt
    set Astream=CreateObject("Adodb.Stream")
    fxt=mid(文件,InStrRev(文件,".")+1)
    txt=false
    if fxt="asp" or fxt="xml" or fxt="aspx" or fxt="php" or fxt="txt" or fxt="jsp" or fxt="htm" or fxt="html" or fxt="js" then
        txt=true
    end if
    if txt then
        Astream.type=2  '1 bin,2 txt
    else
        Astream.type=1  '1 bin,2 txt
    end if
    Astream.Mode = 3'     adModeRead　=1 
    '　　adModeReadWrite =3 
    '　　adModeRecursive =4194304 
    '　　adModeShareDenyNone =16 
    '　　adModeShareDenyRead =4 
    '　　adModeShareDenyWrite =8 
    '　　adModeShareExclusive =12 
    '　　adModeUnknown　=0 
    '　　adModeWrite　=2 
    Astream.open
    'Astream.CharSet = "GB2312"
    'Astream.LoadFromFile(文件) '装载文件
    'Assp=Astream.size
    Astream.Position =0 '装载文件时设置为Assp
    'Astream.Writetext 内容,1
    if txt then
        '内容=BytesToStr(内容)
        Astream.CharSet =编码 '  "GB2312"，"UTF-8"
        Astream.Writetext 内容,1
        'Astream.CharSet = "GB2312"
    else
        Astream.Write 内容
    end if
    'msgbox 文件
    Astream.SaveToFile 文件,2
    ' "F:\temp\a.jpg",2 
    Astream.close
    set Astream=Nothing
End Funcion

相关文章：
https://blog.csdn.net/jessezappy/article/details/102578022