title image


Smiley TIPP: Erste n Zeilen einer Textdatei weglöschen
Ich würde die Variante 3 wählen und etwas abwandeln:



Public Sub IgnoriereDieErstenZeilen(FName As String, OFName As String, Optional ZeilenZahl As Long = 3)

' FName: Name der Ausgangsdatei

' OFName: Name der resultierenden Textdatei

' ZeilenZahl: Zahl der zu ignorierenden Zeilen



Dim I As Long, Lin As String, IChan As Long, OChan As Long

IChan = FreeFile

Open FName For Input As #IChan

OChan = FreeFile

Open OFName For Output As #OChan

For I = 1 To ZeilenZahl

If EOF(IChan) Then Exit For

Line Input #IChan, Lin

Next I

Do Until EOF(IChan)

Line Input #IChan, Lin

Print #OChan, Lin

Loop

Close IChan: Close OChan

End Sub



... ist eigentlich ganz einfach...





Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: