亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 編程 > VBScript > 正文

用VBS實現的批量gb2312轉utf-8,支持拖動

2019-10-26 18:00:11
字體：大 中 小
來源：轉載
供稿：網友
復制代碼 代碼如下:

'/*=========================================================================
' * Intro       拖動所有要轉換的gb2312編碼文件到這個文件上，程序會將它們自動轉換為utf-8編碼文件
' * FileName    GB2312.To.UTF-8.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com 
' * LastModify  2007-10-04 10:42:53
' *==========================================================================*/

Set objArgs = WScript.Arguments
If objArgs.Count>0 Then
    If MsgBox("本程序僅支持GB2312到UTF-8的轉換"&vbCrLf&"如果您所拖動的文件里有別的格式的文件請點“取消”", vbOKCancel + vbExclamation + vbDefaultButton2, "鄭重提醒!!!") = vbOK Then
        For I = 0 To objArgs.Count - 1
            FileUrl = objArgs(I)
            Call WriteToFile(FileUrl, ReadFile(FileUrl, "gb2312"), "utf-8")
        Next
    End If
Else
    MsgBox "請將您要轉換的“gb2312文件”拖到這個文件上"&vbCrLf&"程序會將它們自動轉換為utf-8文件", vbInformation, "柳永法溫馨提示："
End If

'-------------------------------------------------
'函數名稱:ReadFile
'作用:利用AdoDb.Stream對象來讀取各種格式的文本文件
'----------------------------------------------------

Function ReadFile(FileUrl, CharSet)
    Dim Str
    Set stm = CreateObject("Adodb.Stream")
    stm.Type = 2
    stm.mode = 3
    stm.charset = CharSet
    stm.Open
    stm.loadfromfile FileUrl
    Str = stm.readtext
    stm.Close
    Set stm = Nothing
    ReadFile = Str
End Function

'-------------------------------------------------
'函數名稱:WriteToFile
'作用:利用AdoDb.Stream對象來寫入各種格式的文本文件
'參數:FileUrl-文件相對路徑;Str-文件內容;CharSet-編碼格式(utf-8,gb2312.....)
'----------------------------------------------------

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
亚洲综合第一页| 亚洲日韩第一页| 亚洲国产精品久久久久秋霞蜜臀| 国语自产精品视频在线看抢先版图片| 国产精品第3页| 久久久av免费| 久久99热精品这里久久精品| 91av在线播放| 日韩av免费看| 国产精品日韩欧美| 91精品国产色综合久久不卡98| 97福利一区二区| 国产性猛交xxxx免费看久久| 欧美精品激情blacked18| 国产精品精品久久久| 久久99视频免费| 欧美激情亚洲综合一区| 性色av一区二区三区红粉影视| 久久99热这里只有精品国产| 欧美精品激情视频| 久久久国产视频91| 欧美激情免费视频| 欧美极品xxxx| 日韩国产欧美精品在线| 亚洲人成网在线播放| 超碰精品一区二区三区乱码| 亚洲国产欧美一区二区丝袜黑人| 国产精品一区二区三| 国产91|九色| 日韩专区中文字幕| 中文字幕精品视频| 日本欧美爱爱爱| 九九热最新视频//这里只有精品| 国产日韩欧美一二三区| 欧美日韩在线影院| 欧美日韩中文在线| 一区二区三区四区在线观看视频| 国产美女精品视频免费观看| 日韩精品视频在线观看网址| 欧美精品亚州精品| 最近2019年手机中文字幕| 7m第一福利500精品视频| 中文综合在线观看| 海角国产乱辈乱精品视频| 国产成人精品电影久久久| 精品欧美国产一区二区三区| 国产精品高潮粉嫩av| 久久久噜噜噜久久| 亚洲女性裸体视频| 欧美在线视频观看免费网站| 国产69精品久久久久9| 日韩成人中文字幕| 91亚洲精品久久久久久久久久久久| 日韩中文字幕精品| 91精品国产九九九久久久亚洲| 成人免费观看49www在线观看| 日韩在线播放一区| 国产在线久久久| 性夜试看影院91社区| 亚洲欧洲成视频免费观看| 亚洲xxx自由成熟| 黑人狂躁日本妞一区二区三区| 亚洲a级在线观看| 亚洲欧美日韩成人| 久久久免费高清电视剧观看| 亚洲欧洲自拍偷拍| 国产精品色视频| zzijzzij亚洲日本成熟少妇| 国产午夜精品免费一区二区三区| 日本免费久久高清视频| 日本一区二区在线免费播放| 日韩中文字幕视频| 日韩亚洲精品视频| 久久久久久亚洲精品中文字幕| 8050国产精品久久久久久| 国产精品久久久久免费a∨大胸| 91在线视频一区| 91中文字幕一区| 最新69国产成人精品视频免费| 欧美成人小视频| 久久久久久成人精品| 欧美日韩激情美女| 国产欧美精品日韩| 亚洲国产中文字幕在线观看| 国产成人在线视频| 欧美成年人在线观看| 热re91久久精品国99热蜜臀| 国产福利精品视频| 成人精品视频在线| 在线看片第一页欧美| 欧美人与物videos| 国产一区二区黄| 亚洲欧美国产日韩中文字幕| 亚洲天堂视频在线观看| 欧美激情三级免费| 色偷偷888欧美精品久久久| 欧美福利小视频| 夜夜嗨av一区二区三区四区| 国产精品2018| 久久久久北条麻妃免费看| 欧美精品第一页在线播放| 欧美激情免费观看| 亚洲黄色av女优在线观看| 亚洲精品永久免费精品| 一区二区三区www| wwwwwwww亚洲| 在线播放亚洲激情| 欧美黄色成人网| 国产精品成人免费视频| 欧美激情精品久久久久久| 欧美高清视频免费观看| 欧美日韩国产综合新一区| 国产自产女人91一区在线观看| 欧美日韩在线视频观看| 欧美在线一级va免费观看| 色久欧美在线视频观看| 精品女同一区二区三区在线播放| 欧美在线观看www| 成人免费淫片aa视频免费| 国产精品久久久久久久久久久久| 日韩av一区二区在线| 精品国产自在精品国产浪潮| 亚洲欧美在线免费观看| 自拍偷拍亚洲在线| 久久久久久国产精品三级玉女聊斋| 日韩精品在线免费播放| 国产精品久久久久久av| 91精品在线播放| 国产亚洲精品综合一区91| 在线播放国产精品| 色综合久久88| 日本久久中文字幕| 亚洲精品日韩激情在线电影| 欧美性xxxxxxxxx| 91久久久久久久久| 国产精品福利网站| 国产精品久久久| 欧美成人剧情片在线观看| 国产精品第一页在线| 中日韩美女免费视频网站在线观看| 亚洲高清av在线| 国产欧美日韩中文| 精品国产一区二区在线| 久久人人爽人人| 亚洲一级黄色av| 国产精品香蕉国产| 最新日韩中文字幕| 欧美亚洲视频在线看网址| 91精品视频免费看| 亚洲精品国产综合区久久久久久久| 精品视频一区在线视频| 国产精品久久久久aaaa九色| 一区二区三区视频观看| 色青青草原桃花久久综合| 2019亚洲男人天堂| 中文字幕久精品免费视频| 日本一区二区三区四区视频| 这里只有精品久久| 午夜精品99久久免费| 少妇精69xxtheporn| 精品国产自在精品国产浪潮| 国产视频久久网| 国产精品久久久久久影视| 国产精品入口免费视频一|