|
' =================================================== ' 以下為文件操作函數(shù) ' =================================================== Sub InitNotepad(MyfileName) ' '初始化文件，判斷文件MyfileName存在不，不存在則創(chuàng)建，存在則清空； ' Dim fso, fil '創(chuàng)建fso對象 Set fso = CreateObject("Scripting.FileSystemObject") If (fso.fileexists(MyfileName)) Then '打開文件，參數(shù)1為forreading，2為forwriting，8為appending '如果存在文件則刪除該文件 fso.DeleteFile (MyfileName) End If Set fil = fso.CreateTextFile(MyfileName, True) '釋放文件 Set fso = Nothing End Sub Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso, fil '創(chuàng)建fso對象 Set fso = CreateObject("Scripting.FileSystemObject")
'TristateUseDefault –2 使用系統(tǒng)缺省打開文件。 '注意這里要與創(chuàng)建文件時的編碼一致 Set fil = fso.OpenTextFile(MyfileName, 8, True, 0)fil.writeline (MyStr) '關(guān)閉文件 fil.Close '釋放文件 Set fil = Nothing Set fso = Nothing End Sub Sub WriteNotepad(MyfileName, MyStr) Dim fso, fil '創(chuàng)建fso對象 Set fso = CreateObject("Scripting.FileSystemObject") '初始化并寫文件 Call InitNotepad(MyfileName) Set fil = fso.OpenTextFile(MyfileName, 2) fil.Write (MyStr) '關(guān)閉文件 fil.Close '釋放文件 Set fil = Nothing Set fso = Nothing End Sub '從寬字節(jié)到多字節(jié) Public Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long Public Const CP_UTF8 = 65001 Sub WriteOut(strPath, str) Dim lBufSize As Long Dim lRest As Long Dim bUTF8() As Byte Dim TLen As Long TLen = Len(str) lBufSize = TLen * 3 + 1 ReDim bUTF8(lBufSize - 1) lRest = WideCharToMultiByte(CP_UTF8, 0, StrPtr(str), TLen, bUTF8(0), lBufSize, vbNullString, 0) If lRest Then lRest = lRest - 1 ReDim Preserve bUTF8(lRest) Open strPath For Binary As #1 Put #1, , bUTF8 Close #1 End If End Sub '寫的格式為UTF8 Sub createUFT8(strPath, str) '換行建議使用vbcrlf，否則robotFramwork無法解析 Dim objStream As Object Set objStream = CreateObject("ADODB.Stream") With objStream .Type = 2 'adTypeText .Charset = "UTF-8" .Open .WriteText str .SaveToFile strPath, 2 'adSaveCreateOverWrite End With Set objStream = Nothing End Sub ' =================================================== |
|
|
