文件名称：VB简体转繁体
文件大小：7KB
文件格式：RAR
更新时间：2018-08-15 17:54:10
文字转换
Private Sub GBToBIG5(strPath As String, strFileName As String, strFileNameEx As String) Dim Fso As Object Set Fso = CreateObject("Scripting.FileSystemObject") Dim TmpFile As String '臨時文件名 TmpFile = Format(Now, "YYYYMMDDHHMMSS") Open strPath & TmpFile & strFileNameEx For Output As #1 Print #1, StrGBToBIG5(UEFLoadTextFile(strPath & strFileName & strFileNameEx, UEF_Auto)) Close #1 Call Fso.DeleteFile(strPath & strFileName & strFileNameEx) Call Fso.MoveFile(strPath & TmpFile & strFileNameEx, strPath & strFileName & strFileNameEx) End Sub
【文件预览】：
frmMain.Frm
GB2BIG5.bas
Form1.frm
工程1.vbp
mTextUTF.bas