Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: nochmal Löschen von Zeilen im Text
Autor: Miki
Datum: 10.08.02 09:13
Private Sub bitteschoen() Dim inFile As String Dim outFile As String Dim FileNr0 As Variant Dim i As Integer Dim j As Integer Dim aktSatz As String Dim aSaetze() As Variant Dim bSaetze() As Variant Dim foundFlag As Boolean aktSatz = "" aSaetze = Array(0) bSaetze = Array(0) aSaetze(0) = 0 bSaetze(0) = 0 FileNr0 = FreeFile inFile = "c:test.txt" FileNr0 = FreeFile Open inFile For Input As #FileNr0 While Not EOF(FileNr0) Line Input #FileNr0, aktSatz If elementOfSatz(1, aktSatz) = "a" Then aSaetze(0) = aSaetze(0) + 1 ReDim Preserve aSaetze(aSaetze(0)) aSaetze(aSaetze(0)) = aktSatz Else bSaetze(0) = bSaetze(0) + 1 ReDim Preserve bSaetze(bSaetze(0)) bSaetze(bSaetze(0)) = aktSatz End If Wend Close #FileNr0 FileNr0 = FreeFile outFile = inFile & ".tmp" Open outFile For Output As #FileNr0 For i = 1 To aSaetze(0) foundFlag = False For j = 1 To bSaetze(0) If elementOfSatz(2, aSaetze(i)) = elementOfSatz(2, bSaetze(j)) And _ elementOfSatz(3, aSaetze(i)) = elementOfSatz(3, bSaetze(j)) Then foundFlag = True Exit For End If Next j If foundFlag = False Then Print #FileNr0, aSaetze(i) End If Next i For i = 1 To bSaetze(0) Print #FileNr0, bSaetze(i) Next i Close #FileNr0 Kill inFile Name outFile As inFile End Sub Private Function elementOfSatz(ByRef n As Integer, ByVal aktSatz As String) As String Dim tmpSatz As String Dim i As Integer tmpSatz = aktSatz For i = 1 To n - 1 tmpSatz = Right(tmpSatz, Len(tmpSatz) - InStr(tmpSatz, ",")) Next i If InStr(tmpSatz, ",") > 0 Then tmpSatz = Left(tmpSatz, InStr(tmpSatz, ",") - 1) elementOfSatz = Trim(tmpSatz) End Function

nochmal Löschen von Zeilen im Text	52	micha	08.08.02 11:50
Re: nochmal Löschen von Zeilen im Text	36	Miki	10.08.02 09:13
Re: nochmal Löschen von Zeilen im Text	33	micha	12.08.02 11:57

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