Zeilen aus Textdatei löschen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeilen aus Textdatei löschen

14.05.2006 10:27:38

Josef

Danke!!!

14.05.2006 10:38:25

andS

Noch eine Frage...

14.05.2006 10:46:25

andS

AW: Noch eine Frage...

14.05.2006 11:00:14

Josef

Genial!

14.05.2006 11:05:58

andS

Hallo Andi!
Probier mal!

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Private Sub RemoveLinesFromTextfile()
Dim strFile As String, strTempFile As String, strPath As String
Dim FF1 As Integer
Dim FF2 As Integer
Dim strLine As String
Dim bWrite As Boolean, bMark As Boolean

On Error GoTo err_Handler

strPath = "F:\Temp\" ' Pfad zur Datei - Anpassen!

strFile = "test.txt" ' Textdatei - Anpassen!

If Right(strPath, 1) <> "\" Then strPath = strPath & "\"

strTempFile = strPath & "Temp_" & strFile
strFile = strPath & strFile

FileCopy strFile, strTempFile

bWrite = True

FF1 = FreeFile()
Open strTempFile For Input As #FF1
FF2 = FreeFile()
Open strFile For Output As #FF2
Do While Not EOF(FF1)
  Line Input #FF1, strLine

  bMark = True

  If strLine = "# Write Values" Then bWrite = False

  If strLine = "# End Write" Then bWrite = True: bMark = False

  If bWrite And bMark Then Print #FF2, strLine

Loop
Close #FF2
Close #FF1

Kill strTempFile

MsgBox "Der Vorgang wurde erfolgreich abgeschlossen ;-)", _
  vbInformation, "Fertig"
Exit Sub

err_Handler:
MsgBox Err.Description, vbCritical, "Fehler"
End Sub

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Hallo Andi!
Dann so.

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Private Sub RemoveLinesFromTextfile()
Dim strFile As String, strTempFile As String, strPath As String
Dim FF1 As Integer
Dim FF2 As Integer
Dim strLine As String
Dim bWrite As Boolean, bMark As Boolean

On Error GoTo err_Handler

strPath = "F:\Temp\" ' Pfad zur Datei - Anpassen!

strFile = "test.txt" ' Textdatei - Anpassen!

If Right(strPath, 1) <> "\" Then strPath = strPath & "\"

strTempFile = strPath & "Temp_" & strFile
strFile = strPath & strFile

FileCopy strFile, strTempFile

bWrite = True
bMark = True

FF1 = FreeFile()
Open strTempFile For Input As #FF1
FF2 = FreeFile()
Open strFile For Output As #FF2
Do While Not EOF(FF1)
  Line Input #FF1, strLine

  If strLine = "# Write Values" Then bMark = False

  If strLine = "# End Write" Then bWrite = True: bMark = True

  If bWrite Then Print #FF2, strLine
  bWrite = bMark

Loop
Close #FF2
Close #FF1

Kill strTempFile

MsgBox "Der Vorgang wurde erfolgreich abgeschlossen ;-)", _
  vbInformation, "Fertig"
Exit Sub

err_Handler:
MsgBox Err.Description, vbCritical, "Fehler"
End Sub

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen aus Textdatei löschen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread