Re: Anzahl der Zeichen in Textdatei zählen
07.12.2002 17:28:26
Stephan
Hallo,so richtig klappt es noch nicht! ich versuche mal zu erläutern, was ich machen will:
ich möchte Textdateien einlesen, Wörter ersetzen und neue Textdateien schreiben!
Die folgenden Makros müßten mir theorethisch eine Kopie meiner Textdatei erstellen, aber es fehlen mir die letzten Zeichen:
Public ZeichenZahl As Integer 'Anzahl der Zeichen in Textdatei
Public Text As String 'Text aus Textdatei
Sub ZeichenInTextdatei() 'Anzahl der Zeichen in Textdatei
Dim Textzeilel As Integer
ZeichenZahl = 0
Open "c:\textdatei.txt" For Input As #1
Do Until EOF(1)
Line Input #1, Textzeile
ZeichenZahl = ZeichenZahl + Len(Textzeile)
Loop
Close #1
'MsgBox ZeichenZahl
Text_auslesen
End Sub
Sub Text_auslesen()
Dim Zeichen1
Text = ""
Open "c:\Textdatei.txt" For Input As #1 ' Datei öffnen.
'Do While Not EOF(1) ' Schleife bis Dateiende.
Zeichen1 = Input(ZeichenZahl, #1) ' Zeichen lesen.
Debug.Print Zeichen1 ' Ausgabe im Direktfenster.
Text = Text & Zeichen1
'MsgBox "Das Zeichen " & Zeichen1 & " Chr(" & Asc(Zeichen1) & ")"
'Loop
Close #1 ' Datei schließen.
'MsgBox Text
Text_schreiben
End Sub
Sub Text_schreiben()
Open "c:\textdatei2.txt" For Output As #1 ' Datei zur Ausgabe öffnen.
Print #1, Text ' Text in Datei schreiben.
Close #1 ' Datei schließen.
End Sub