'@Folder modUtf8File
Option Explicit

'==========================================================
' UTF-8 ÆÄÀÏ ÀÔÃâ·Â À¯Æ¿¸®Æ¼
'==========================================================

Public Sub SaveUtf8NoBom(ByVal filePath As String, ByVal textData As String)

    Dim stm As Object
    Dim bytes() As Byte
    
    Set stm = CreateObject("ADODB.Stream")
    
    With stm
        .Type = 2                  ' text
        .Charset = "utf-8"
        .Open
        .WriteText textData
        
        .Position = 0
        .Type = 1                  ' binary
        bytes = .Read
        .Close
    End With
    
    If UBound(bytes) >= 2 Then
        If bytes(0) = &HEF And bytes(1) = &HBB And bytes(2) = &HBF Then
            Dim i As Long
            Dim newBytes() As Byte
            
            ReDim newBytes(UBound(bytes) - 3)
            
            For i = 3 To UBound(bytes)
                newBytes(i - 3) = bytes(i)
            Next i
            
            bytes = newBytes
        End If
    End If
    
    Set stm = CreateObject("ADODB.Stream")
    
    With stm
        .Type = 1                  ' binary
        .Open
        .Write bytes
        .SaveToFile filePath, 2    ' adSaveCreateOverWrite
        .Close
    End With

End Sub

Public Function ReadUtf8Text(ByVal filePath As String) As String

    Dim stm As Object
    
    Set stm = CreateObject("ADODB.Stream")
    
    With stm
        .Type = 2
        .Charset = "utf-8"
        .Open
        .LoadFromFile filePath
        ReadUtf8Text = .ReadText
        .Close
    End With

End Function

Public Sub ConvertFileToUtf8(ByVal filePath As String)

    Dim fso As Object
    Dim ts As Object
    Dim textData As String

    Set fso = CreateObject("Scripting.FileSystemObject")

    '--- ÆÄÀÏ Á¸Àç È®ÀÎ ---
    If Not fso.FileExists(filePath) Then
        Debug.Print "ÆÄÀÏ ¾øÀ½: " & filePath
        Exit Sub
    End If

    On Error GoTo ReadErr

    '--- Àбâ ---
    Set ts = fso.OpenTextFile(filePath, 1, False)
    
    If ts.AtEndOfStream Then
        textData = ""
    Else
        textData = ts.ReadAll
    End If
    
    ts.Close

    '--- UTF-8·Î ÀúÀå ---
    Call SaveUtf8NoBom(filePath, textData)

    Exit Sub

ReadErr:
    Debug.Print "Àб⠿À·ù: " & filePath
    Debug.Print Err.Number & " : " & Err.Description

    On Error Resume Next
    If Not ts Is Nothing Then ts.Close

End Sub

Public Function RemoveAttributeLines(ByVal codeText As String) As String

    Dim lines() As String
    Dim result As String
    Dim i As Long
    Dim oneLine As String
    
    codeText = Replace(codeText, vbCrLf, vbLf)
    codeText = Replace(codeText, vbCr, vbLf)
    
    lines = Split(codeText, vbLf)
    
    For i = LBound(lines) To UBound(lines)
        oneLine = lines(i)
        
        If Left$(Trim$(oneLine), 10) <> "Attribute " Then
            result = result & oneLine & vbCrLf
        End If
    Next i
    
    RemoveAttributeLines = result

End Function

Public Function ReadTextFile(ByVal filePath As String) As String

    Dim fso As Object
    Dim ts As Object
    
    If Dir$(filePath) = vbNullString Then Exit Function
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    Set ts = fso.OpenTextFile(filePath, 1, False)
    
    If Not ts.AtEndOfStream Then
        ReadTextFile = ts.ReadAll
    End If
    
    ts.Close

End Function

Public Function RemoveVbeExportHeader(ByVal codeText As String) As String

    Dim lines() As String
    Dim result As String
    Dim i As Long
    Dim oneLine As String
    Dim inBeginBlock As Boolean
    
    codeText = Replace(codeText, vbCrLf, vbLf)
    codeText = Replace(codeText, vbCr, vbLf)
    
    lines = Split(codeText, vbLf)
    
    For i = LBound(lines) To UBound(lines)
        oneLine = lines(i)
        
        If Left$(Trim$(oneLine), 8) = "VERSION " Then
            ' skip
        ElseIf Left$(Trim$(oneLine), 10) = "Attribute " Then
            ' skip
        ElseIf Trim$(oneLine) = "BEGIN" Then
            inBeginBlock = True
        ElseIf inBeginBlock And Trim$(oneLine) = "END" Then
            inBeginBlock = False
        ElseIf inBeginBlock Then
            ' skip
        Else
            result = result & oneLine & vbCrLf
        End If
    Next i
    
    RemoveVbeExportHeader = result

End Function

'==========================================================
' ½Ã½ºÅÛ ±âº» ¹®ÀÚ ÄÚµå(Çѱ¹¾îÆÇ Windows´Â CP949)·Î ÀúÀå
'
' VBComponents.Import ´Â ÆÄÀÏÀ» ANSI·Î ÀÐÀ¸¹Ç·Î
' °¡Á®¿À±â¿ë Àӽà ÆÄÀÏÀº ÀÌ ÇÔ¼ö·Î ¸¸µç´Ù.
' ÇØ´ç ¹®ÀÚ Äڵ忡 ¾ø´Â ¹®ÀÚ´Â "?"·Î ¹Ù²ï´Ù
' (VBE ÀÚü°¡ ANSI·Î Äڵ带 º¸°üÇϹǷΠ¿ø·¡ µé¾î°¥ ¼ö ¾ø´Â ¹®ÀÚ).
'==========================================================
Public Sub SaveAnsiText(ByVal filePath As String, ByVal textData As String)

    Dim bytes() As Byte
    Dim fileNumber As Integer
    
    If Dir$(filePath) <> vbNullString Then Kill filePath
    
    fileNumber = FreeFile
    Open filePath For Binary Access Write As #fileNumber
    
    If Len(textData) > 0 Then
        bytes = StrConv(textData, vbFromUnicode)
        Put #fileNumber, , bytes
    End If
    
    Close #fileNumber

End Sub