Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Bestimmte Textzeile aus datei einlesen
Autor: Big Smoke
Datum: 01.06.07 22:51
Hi ich hab mir vor kurzem einen code gedownloadet der so geht Public Function ZeileLesen(ZeilenNr As Long, DateiPfad As String) As String Dim DateiNr As Integer Dim Zeile As String Dim ZeilenNr2 As Long DateiNr = FreeFile Open DateiPfad For Input As #DateiNr Do Until EOF(DateiNr) Line Input #DateiNr, Zeile ZeilenNr2 = ZeilenNr2 + 1 If ZeilenNr2 = ZeilenNr Then ZeileLesen = Zeile Exit Function End If Loop Close #DateiNr End Function Public Sub ZeileEditieren(ZeilenNr As Long, NeuerZeilenText As String, _ DateiPfad As String) Dim Zeilen() As String ReDim Zeilen(0) As String Dim Zeile As String Dim DateiNr As Integer Dim i As Long DateiNr = FreeFile Open DateiPfad For Input As #DateiNr While Not EOF(DateiNr) Line Input #DateiNr, Zeile Zeilen(UBound(Zeilen)) = Zeile ReDim Preserve Zeilen(UBound(Zeilen) + 1) As String Wend Close #DateiNr Zeilen(ZeilenNr - 1) = NeuerZeilenText DateiNr = FreeFile Open DateiPfad For Output As #DateiNr For i = 0 To UBound(Zeilen) - 1 Print #DateiNr, Zeilen(i) Next i Close #DateiNr End Sub und dann mit den befehlen: Text1.Text = ZeileLesen(Text2.Text, App.Path + "\TEXT.txt") Call ZeileEditieren(Text2.Text, "NeuerText", App.Path + "\TEXT.txt") abrufbahr das problem ist folgendes: [u] wenn ich die datei einlese und dann ürgen eine zeile bearbeiten will, dann sagt erATEI BEREITS GEÖFFNET ____________________ Mit freundlichen Gr??en Big Smoke

Bestimmte Textzeile aus datei einlesen	813	Big Smoke	01.06.07 22:51
Re: Bestimmte Textzeile aus datei einlesen	528	mst547	02.06.07 02:35
es geht	487	Big Smoke	02.06.07 09:10
Re: Bestimmte Textzeile aus datei einlesen	517	VBMichi	02.06.07 11:47

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