vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Zeile in textdatei löschen 
Autor: ModeratorDieter (Moderator)
Datum: 28.10.03 12:06

Ich würde das so machen:

Dim sBuffer As String
Dim nPos As Long
Dim F As Integer
 
' Inhalt einlesen
F = FreeFile
Open "Datei" For Binary As #F
sBuffer = Space$(Lof(F))
Get #F, , sBuffer
Close #F
 
' erste Zeile löschen
nPos = InStr(sBuffer, vbCrLf)
If nPos > 0 Then 
  sBuffer = Mid$(sBuffer, nPos + 2)
 
  ' Inhalt wieder in Datei speichern
  Kill "Datei"
  F = FreeFile
  Open "Datei" For Binary As #F
  Put #F, , sBuffer
  Close #F
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Zeile in textdatei löschen450dagee28.10.03 10:58
Re: Zeile in textdatei löschen309ModeratorDieter28.10.03 12:06

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel