Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

mehrere Dateien einlesen und ändern...
Autor: Harald
Datum: 25.03.02 06:34
Hallo, ich habe zur Zeit ein Problem mit dem Einlesen und Ändern mehrerer Dateien aus einem Verzeichnis. Ich möchte gewisse Dateien ändern (z.B. allen gefunden HTML-Dateien in einem Verzeichnis einen Satz hinzufügen...) Nur habe ich im Moment das Problem wenn in diesem Verzeichnis noch Unterverzeichnisse liegen oder die Verzeichnisstruktur anscheinend zu tief ist, dann ändert er meine Dateien nicht nur einmal sondern mehrmals. Ist kein Unterverzeichnis in diesem Ordner oder die Verzeichnisstruktur anscheinend nicht zu tief ändert er jede Datei nur einmal. An was könnte denn das liegen? Hier der Code: --------------------------------------------------------------------------------------- Private Sub cmd_Starten_Click() Dim sDat As String, ff As Integer, sBuf As String, sTmp As String, i As Integer ff = FreeFile texteingabe = txt_Eingabe pfad = dir_ordner.Path If cbo_Art.ListIndex = 0 Then dattyp = "*.asp" ElseIf cbo_Art.ListIndex = 1 Then dattyp = "*.htm*" ElseIf cbo_Art.ListIndex = 2 Then dattyp = "*.txt" End If i = 0 sDat = Dir$(pfad & "" & dattyp) Do While Len(sDat) > 0 MsgBox (sDat & " " & i) Open pfad & "" & sDat For Input As #ff 'Datei öffnen und einlesen Do While Not EOF(ff) Line Input #ff, sTmp sBuf = sBuf + Chr(13) + Chr(10) + sTmp Loop Close #ff 'Datei schließen If opt_Ende.Value = True Then sBuf = sBuf + Chr(13) + Chr(10) + texteingabe Else sBuf = texteingabe + Chr(13) + Chr(10) + sBuf End If Open pfad & "" & sDat For Output As #ff 'Datei nochmals öffnen Print #ff, sBuf 'neuen Text reinschreiben Close #ff sBuf = "" sTmp = "" sDat = Dir$ 'nächsten Dateinamen abholen i = i + 1 Loop meldung = MsgBox("Es wurden " & i & " Dateien geändert", vbOKOnly + vbInformation, "Hinweis") End Sub ----------------------------------------------------------------------------------------------- Bin für jede Hilfe dankbar... Viele Gruesse, Harald

mehrere Dateien einlesen und ändern...	59	Harald	25.03.02 06:34
Re: mehrere Dateien einlesen und ändern...	369	Dieter	25.03.02 09:29
Re: mehrere Dateien einlesen und ändern...	35	Harald	25.03.02 09:45

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen