[vb6.0/vba] Convert UTF-8 to ANSI > vb6.0/vba

본문 바로가기

vb6.0/vba

[vb6.0/vba] [vb6.0/vba] Convert UTF-8 to ANSI

회원사진
하나를하더라도최선을
2020-07-14 16:50 3,215 0

본문



Public Function ReadFile(path As String, Optional CharSet As String = "utf-8")
    Static obj As Object
    If obj Is Nothing Then Set obj = VBA.CreateObject("ADODB.Stream")
    obj.CharSet = CharSet
    obj.Open
    obj.LoadFromFile path
    ReadFile = obj.ReadText()
    obj.Close
End Function
 
Public Sub WriteFile(path As String, text As String, Optional CharSet As String = "utf-8")
    Static obj As Object
    If obj Is Nothing Then Set obj = VBA.CreateObject("ADODB.Stream")
    obj.CharSet = CharSet
    obj.Open
    obj.WriteText text
    obj.SaveToFile path
    obj.Close
End Sub

댓글목록0

등록된 댓글이 없습니다.
게시판 전체검색