Thema Datum  Von Nutzer Rating
Antwort
13.09.2007 14:37:42 Dustin Ployd
NotSolved
Blau Aw:Auslesen von Daten aus Textdatei und Rückgabe
17.09.2007 20:24:35 jh
NotSolved

Ansicht des Beitrags:
Von:
jh		 Datum:
17.09.2007 20:24:35		 Views:
1190		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Auslesen von Daten aus Textdatei und Rückgabe
Hallo,

hier mal ein Beispiel, wie man so was machen könnte:

Public Function strGetInfo(strDateiname As String, _
strSuchwort As String) As String
Dim intDateinr As Integer, strEingabe As String, _
strSplit() As String
strGetInfo = "Suchwort nicht gefunden"
Err.Clear
intDateinr = FreeFile
On Error Resume Next
Open strDateiname For Input As intDateinr
If Err.Number <> 0 Then
strGetInfo = Err.Description
Exit Function
End If
Do
Line Input #intDateinr, strEingabe
If Len(strEingabe) > 0 Then
strSplit = Split(strEingabe, ":")
If UCase$(strSplit(LBound(strSplit))) = UCase$(strSuchwort) Then
If UBound(strSplit) > 0 Then
strGetInfo = strSplit(1)
Exit Do
End If
End If
End If
Loop Until EOF(intDateinr) = True
Close intDateinr
End Function

Je nach dem Ergebnis der Suche gibt die Function entweder die gesuchte Info zurück, wenn sie gefunden wird, oder einen Leerstring, wenn das Suchwort mit keinem Text belegt ist (keine Ahnung, ob dieser Fall vorkommen kann), oder den Text "Suchwort nicht gefunden", wenn das übergebene Suchwort in der Textdatei vor dem Doppelpunkt nicht vorkommt, oder dem Text der Fehlermeldung, falls das Öffnen der Textdatei fehlschlägt. Je nach deinen Vorstellungen kannst du das hier oder da natürlich entsprechend abwandeln.

Gruß

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
13.09.2007 14:37:42 Dustin Ployd
NotSolved
Blau Aw:Auslesen von Daten aus Textdatei und Rückgabe
17.09.2007 20:24:35 jh
NotSolved