Schönen guten Tag verehrte Forenleser
Zu dem Folgenden thema habe ich mich bereits informiert und die Forensuche (auch in anderen Foren) bereits zur genüge zu rate gezogen, jedoch keine gute lösung gefunden.
Problem ist Folgendes.
Aus einer 100KB bis 250KB großen Textdatei möchte ich eine bezeichnung auslesen, die mit den zeichen "s00" beginnt. und alle 10 zeichen die dahinter vorkommen ebenfalls mit ausgeben.
Das Programm hat bereits funktioniert, das heisst, insofern die Datei nicht zu groß ist und der gesamte Text in eine einzelne String Variable passt.
hier der Quellcode soweit:
Hier die Funktion txtReadStr:
Viele der Funktionen die ich verwendet habe waren mir selbst zu beginn des Codens noch nicht bewusst, habe mich wie gesagt schon damit befasst und würde gerne um detaillierte hilfe bitten.
Danke im Vorraus.
Zu dem Folgenden thema habe ich mich bereits informiert und die Forensuche (auch in anderen Foren) bereits zur genüge zu rate gezogen, jedoch keine gute lösung gefunden.
Problem ist Folgendes.
Aus einer 100KB bis 250KB großen Textdatei möchte ich eine bezeichnung auslesen, die mit den zeichen "s00" beginnt. und alle 10 zeichen die dahinter vorkommen ebenfalls mit ausgeben.
Das Programm hat bereits funktioniert, das heisst, insofern die Datei nicht zu groß ist und der gesamte Text in eine einzelne String Variable passt.
hier der Quellcode soweit:
Hier die Funktion txtReadStr:
Visual Basic-Quellcode
- Public Function txtReadStr(ByVal sFilename As String) _
- As String
- Dim F As Integer
- Dim sInhalt As String
- ' Datei existent?
- If Dir$(sFilename, vbNormal) <> "" Then
- ' Text binär öffnen und gesamt auslesen
- F = FreeFile
- Open sFilename For Binary As #F
- sInhalt = Space$(LOF(F))
- Get #F, , sInhalt
- Close #F
- End If
- txtReadStr = sInhalt
- End Function
Viele der Funktionen die ich verwendet habe waren mir selbst zu beginn des Codens noch nicht bewusst, habe mich wie gesagt schon damit befasst und würde gerne um detaillierte hilfe bitten.
Danke im Vorraus.