datei bearbeiten ( Unicode)
01.08.2016 10:53:05
rocketfox
eine Datei als Text file abzuspeichern im Unicode Format habe ich schon geschafft.
mit [ FileFormat:=xlUnicodeText ]
nun habe ich folgendes Problem.
ich möchte die Txt Datei bearbeiten.
Sub first_line()
Grundpfad = ActiveWorkbook.Path
Dim vntIn, strTmp As String
Dim zahler As Integer
vntIn = " Erste Zeile ersetzten "
Open Grundpfad & "\Message_" & Worksheets("einstellung").Range("B2").Value & ".ttx" 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_" & Worksheets("einstellung").Range("B2").Value & ".ttx" For _
Output As #1
Print #1, vntIn
Close #1
End Sub
wo kann ich hier den Unicode status angeben.nach dem abspeichern sind sonderzeichen verändert.