nach VBA bearbeitung Unicode verloren.
22.08.2016 21:39:24
rocketfox
und möchte eine externe Text Datei bearbeiten.
In diesem Beispiel die erste zeile ersetzen.
das Script funkioniert soweit auch.
https://www.herber.de/bbs/user/107781.txt
Anbei die Beispiel datei sie sollte in "Message_.txt" umbenannt werden
in dieser sind ca 100 Sonderzeichen.
nach Bearbeitung der Datei mit dem Script verliert die Datei aber das Unicode Format.
also die Frage: Gibt es eine Möglichkeit das zu verhindern?
Sub first_line()
Grundpfad = ActiveWorkbook.Path
Dim vntIn, strTmp As String
Dim zahler As Integer
vntIn = "Erste Zeile geändert"
Open Grundpfad & "\Message_" & ".txt" For Input As #1
Do While Not EOF(1)
Line Input #1, strTmp
n = n + 1
Select Case n
Case 1: vntIn = vntIn
Case Else: vntIn = vntIn & vbCrLf & strTmp
End Select
Loop
Close #1
Open Grundpfad & "\Message_" & ".txt" For Output As #1
Print #1, vntIn
Close #1
End Sub
Anzeige