Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Textfile kopieren Einschübe gehen verloren
 27.07.2010 10:22:44 bayflip
NotSolved

Ansicht des Beitrags:
Von:
bayflip		 Datum:
27.07.2010 10:22:44		 Views:
1616		 Rating:
     
Antwort:
  Ja
Thema:
VBA Textfile kopieren Einschübe gehen verloren
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Textfile kopieren Einschübe gehen verloren
 27.07.2010 10:22:44 bayflip
NotSolved