AW: Möglich, aber dann solltest du uns auch ...
17.07.2013 08:57:09
Martin
Hallo Ralf,
hast du dir so etwas vorgestellt? Ich hoffe, dass ich keine wichtigen Zeichen vergessen habe zu konvertieren, in deiner Beispieldatei waren nur ein "ö" und ein "ä" enthalten. Ich habe noch das "ß", "ü", und "é" ergänzt.
Sub UTF_to_ANSI()
Dim strFileUTF As String, strFileANSI As String
Dim strTXTLine As String
Dim arrUmlaute(), iUmlaut As Integer
'Pfad der UFT-Datei
strFileUTF = "c:\MM_20130711.csv"
'Zieldatei
strFileANSI = "c:\test\MM_20130711.csv"
Open strFileUTF For Input As #1
Open strFileANSI For Output As #2
While Not EOF(1)
Line Input #1, strTXTLine
arrUmlaute = Array("Ã", "Ü", "ü", "ü", "Ã", "Ö", "ö", "ö", "Ã", "Ä", "ä", "ä", "à _
", "ß", "é", "é")
For iUmlaut = LBound(arrUmlaute) To UBound(arrUmlaute) Step 2
strTXTLine = Replace(strTXTLine, arrUmlaute(iUmlaut), arrUmlaute(iUmlaut + 1))
Next iUmlaut
Print #2, strTXTLine
Wend
Close #1
Close #2
End Sub
Viele Grüße
Martin