• 쇼핑몰
  • 커뮤니티
  • 북마크

vb6.0/vba




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

하나를하더라도최선을
2020.07.14 16:50 190 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

등록된 댓글이 없습니다.