4月02th

使用Adodb.Stream判斷文件編碼及進行編碼轉換(Unicode,Utf-8,GB2312等

robert web 技術 說兩句! 0
Sub FileZM(sFile As String, sCode As String, dFile As String, dCode As String)
'參數:源文件,源文件編碼,目標文件,目標文件編碼。編碼舉例----"gb2312"、"UTF-8"等
Dim ObjStream As Object
Set ObjStream = CreateObject("Adodb.Stream")
With ObjStream
    .Mode = 3         'adModeReadWrite = 3 ' 指示讀/寫權限。
    .Type = 1         'adTypeBinary = 1
    .Open
    .LoadFromFile sFile   '源文件
    .Position = 0
    .Type = 2         'adTypeText = 2
    .Charset = sCode
    sCode = .ReadText '讀取文本到sCode
    
    .Position = 0     ' 這只是定位到文件頭,保留
    .SetEOS           ' 完全重寫不要漏了這個,通過使當前 Position 成為流的結尾來更新 EOS 屬性的值。當前位置後面的所有字節或字符都將被截斷
    .Type = 2         'adTypeText = 2
    .Charset = dCode       '指定輸出編碼
    .WriteText sCode       '寫入指定的文本數據到Adodb.Stream
     .SaveToFile dFile, 2
    .Close
End With
Set ObjStream = Nothing
End Sub

ADODB.Stream組件Charset屬性值

ADODB.Stream  VB6  ASP  

2月23th

Class ASP: 第三地 server 之 ASP 利用 ServerXmlhttp 與 Adodb.Stream 中轉看圖

油拉林 web 技術 說兩句! 2

imgtrex.com 是個圖床網站,它不讓港澳台及大陸地區網友進入看圖,實在很小氣。


Class ASP: 第三地 server 之 ASP 利用 ServerXmlhttp 與 Adodb.Stream 中轉看圖

ASP  XMLHTTP  ADODB.Stream  imgtrex.com