Hallo liebe Gemeinde:
Ich habe folgendes Problem:
Ich möchte in einem Textfile einen Text hinzufügen. Das geht meines Wissens nur mit kopieren zwischenspeichern und wieder einfügen, oder? Direkt funktioniert das mit VBA nicht, oder?
Es funktioniert soweit alles bestens, ich kann auch eine Zeile im Textfile hinzufügen. Nun ist es aber so das in der Ursprungsdatei eben Einschübe/Tabulatoren sind. (ist eine XML Datei). Diese gehen aber nach dem Kopiervorgang verloren. Wie kann ich denn dieses Problem lösen?
Ich habe folgenden Code:
Sub add_text()
Dim strArray() As String
Dim intZeile As Integer
Dim intCnt As Integer
intCnt = 0
intZeile = 0
Open "C:\temp\test.xml" For Input As #1
While Not EOF(1)
ReDim Preserve strArray(0 To intZeile)
Input #1, strArray(intZeile)
intZeile = intZeile + 1
Wend
Close #1 ' Datei schließen.
strArray(1) = "Hallo es könnte durchaus funktionieren"
Open "C:\temp\test.xml" For Output As #1
For intCnt = 0 To intZeile - 1
Print #1, strArray(intCnt)
Next intCnt
Close #1
End Sub
Ich Bitte um eure Hilfe, viele Grüße & Danke
|