AW: charset=UTF-8 in ANSII-Codierung umwandeln ?
05.01.2009 09:24:00
Oberschlumpf
Hi
Versuch mal so (ungetestet):
Sub test()
dim lstrfile as string, lstrinhalt as string
Open thisworkbook.path & "\" & lstrfile for input as #1
Open thisworkbook.path & "\dummy.txt" for output as #2
lstrfile = dir(thisworkbook.path & "\*.*")
do until dir(lstrfile)=""
do until lstrfile thisworkbook.Name
lstrfile = dir
loop
if lstrfile = "" then exit sub
line input #1, lstrinhalt
replace(lstrinhalt,"","s")
replace(lstrinhalt,"đ","dj")
replace(lstrinhalt,"č","c")
'....usw...musste ab hier noch die anderen zeichen entsprechend ersetzen
print #2, lstrinhalt
lstrfile = dir
loop
close
Eine Datei mit obigem Code muss im selben Verzeichnis, wie deine zu ändernden Dateien gespeichert werden.
Hilfts?
Wenn nicht, könntest du ja mal eine Bsp-Datei zur Verfügung stellen.
Ciao
Thorsten