29. März 2024, 13:10
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0413
  VB6: Eine Zeile aus eingelesener Datei bearbeiten
 Von asd
 Am 24. September 2008 um 14:15:10
 Frage Hi zusammen, komme hier nicht weiter. Ich lese eine Textdatei auf einmal ein. nämlich so:
Sub przoeffnen()
'Öffnet alle Dateien und zeigt die aktuellen Werte (FinalThickness) In den Labels an
'##################################################################
'.R Datei öffnen und aktuellen Wert auslesen und In Label anzeigen
dateiname = eingabe & ".R"
Dim FNr As Long
Dim strText As String

FNr = FreeFile
Open "C:\xml\" & dateiname For Binary Access Read As #FNr
strText = Space$(LOF(FNr))
Get #FNr, , strText
Close #FNr
strText = Replace$(strText, "FinalThickness=0", "das soll hin")
'strText = Mid$(strText, InStr(1, strText, "Finalthickness", vbTextCompare) + Len("Finalthickness"))
MsgBox strText
FNr = FreeFile
Open "C:\xml\" & dateiname For Output As #FNr
Print #FNr, strText
Close #FNr
List2.AddItem "****************************************"
List2.AddItem Now
List2.AddItem dateiname & "wurde ausgelesen"
List2.AddItem "*****************************************"
'##################################################################
End Sub
Diese Datei hat ca. 100 Zeilen und in nur einer davon kommt der Wert
FinalThickness=0
vor. Wie kann ich aus dem gesamten eingelesenen jetzt nach dieser Zeile suchen und es z.B. in die Variable "Zeile" schreiben lassen.
Ansatz:
Dim zeile As String
zeile=?????????
Grüße
asd
[ VB-/VBA-Forum | Archiv 0413 | Archiv-Übersicht ]
 Antworten
VB6: Eine Zeile aus eingelesener Datei bearbeiten - asd 24. September 2008 um 14:15:10
Re: Eine Zeile aus eingelesener Datei bearbeiten - Neptun 24. September 2008 um 14:41:10
Re: Eine Zeile aus eingelesener Datei bearbeiten - asd 25. September 2008 um 07:32:48
Re: Eine Zeile aus eingelesener Datei bearbeiten - Neptun 25. September 2008 um 13:53:34
Re: Eine Zeile aus eingelesener Datei bearbeiten - asd 25. September 2008 um 14:40:40

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB-/VBA-Forum | DirectX | DirectX-Forum | VB.Net | VB.Net-Forum | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum