|
Hallo Zusammen
Ich möchte die Codierung einer TextDatei ändern.
Folgenden Code habe ich, der generiert mit aber eine UTF16LE Codierung
Sub ConvertToUTF8BOM() '(FILENAME)
Dim fso As Object
Dim file As Object
Dim str As String
FILENAME = "C:\118.csv"
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile(FILENAME, 1, False, -1)
str = file.ReadAll
file.Close
If Dir(Left(FILENAME, Len(FILENAME) - 4) & "_UTF8BOM.csv") <> "" Then Kill Left(FILENAME, Len(FILENAME) - 4) & "_UTF8BOM.csv"
Set file = fso.CreateTextFile(Left(FILENAME, Len(FILENAME) - 4) & "_UTF8BOM.csv", True, True)
file.Write StrConv(str, vbUnicode) 'vbUnicode) 'Chr(239) & Chr(187) & Chr(191) &
file.Close
Set fso = Nothing
Set file = Nothing
End Sub
Weiss jemand, wie ich diesen Code abändern kann?
Liebe Grüße und besten Dank vorab
|