Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: zeichenkette aus datei finden und auslesen
Autor: GDP_Victoria
Datum: 08.08.06 14:27
Private Sub Command1_Click() Dim F As Integer Dim Beginn As String Dim Schluss As String Dim sInhalt As String Beginn = Text3.Text Schluss = Text4.Text Dim sFileName As String sFileName = Text1.Text ' Pfad zur Index.htm Datei ' Datei "Index.htm" in Variable "sInhalt" einlesen If Dir$(sFileName, vbNormal) <> "" Then F = FreeFile Open sFileName For Binary As #F sInhalt = Space$(LOF(F)) Get #F, , sInhalt Close #F End If RichTextBox1.FileName = sFileName ' Die Postition von "IP[1]'" ermitteln Dim lngStartPos As Long lngStartPos = InStr(1, sInhalt, Beginn) + 8 ' Die Position von "';" ermitteln (WICHTIG: in den Startparameter von InStr natürlich die Position von "IP[1]'" übergeben ' Wenn man bei Zeichen1 anfangen würde könnte man auch ein anderes '; finden... Dim lngLength As Long lngLength = InStr(lngStartPos, sInhalt, Schluss) - lngStartPos ' Die Textstelle mit Mid rausschreiben aber nur wenn lngStartPos und lngLength größer als Null sind Dim strIP As String If lngStartPos > 0 And lngLength > 0 Then strIP = Mid(sInhalt, lngStartPos, lngLength) Text2.Text = strIP End Sub zuerst vielen dank, jetzt hab ich zumindest den ansatzpunkt... ich hab dann auch gleich an deiner vorlage herum gebastelt mfg Michael alis GDP_Victoria

zeichenkette aus datei finden und auslesen	581	GDP_Victoria	08.08.06 00:41
Re: zeichenkette aus datei finden und auslesen	355	AndyOG	08.08.06 08:34
Re: zeichenkette aus datei finden und auslesen	347	GDP_Victoria	08.08.06 14:27

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