Textdatei von Unicode nach ASCII umwandeln
Unicode
mit nachfolgendem Code habe ich bisher immer die Leerzeilen aus einer SAP heruntergeladene Textdatei gelöscht.
Das Format der Textdatei war bisher immer ASCII. Nun liegt die Textdatei aber im Unicode Format vor und der Code funktioniert so nicht mehr. Es werden nur noch merkwürdige Zeichen geschrieben.
Ich habe schon im Archiv gesucht aber noch keinen vernünftigen Lösungsansatz gefunden.
Ist es möglich die Textdatei per VBA von Unicode nach ASCII umzuwandeln ohne die Datei in Excel selbst zu öffnen da mehr als 65536 Zeilen vorhanden sind?
So könnte dann der nachfolgende Code wieder funktionieren.
Gruß
Joe
Sub Leerzeilen_Löschen()
XFile = Verz_DLSAP & DatNam_Kalk1 & ".txt"
XTemp = Verz_DLSAP & DatNam_Kalk1 & "Temp" & ".txt"
Name XFile As XTemp
Fif = FreeFile
Open XTemp For Input As Fif
Fof = FreeFile
Open XFile For Output As Fof
While Not EOF(Fif)
Line Input #Fif, textline
If textline "" Then
Print #Fof, textline
End If
Wend
Close Fif
Close Fof
Kill XTemp
End Sub