auf dem Desktop befindet sich die Textdatei "test", die aus HTML jeweils einen Quellcode enthält. Wie kann ich den folgenden Code, den ich unter Recherche fand, abändern, so dass die Textdatei auf Desktop angesprochen wird. Weiterhin würde ich gerne für die jeweiligen Suchbegriffe, wie z.B. im Code unter b und d beschrieben (vorderen und hinteren Teil suchen) erreichen, dass die Suchbegriffe aus jeweils einer Zelle entnommen werden. b = InStr(txteingelesen, "href=") z.B. aus Tabelle Daten C5 und d = InStr(c, ">") z.B. aus Tabelle Daten E5 und der gefundene Suchbegriff dann in D5 eingefügt wird. Könnte so etwas denkbar/realisierbar sein? - Was bedeutet genau b = b + 6 oder d = d - 2 in dem Code bzw. was bewirkt der Teil? - Danke schon jetzt für die Rückmeldungen.
Herzliche Grüße - Wolfgang
Dim a As Long
Dim b As Long
Dim c As String
Dim d As Long
Dim e As String
Dim datei As String
Dim zeilen As String
Dim linkvar As String
Dim titelvar As String
Private Sub cmdstart_click()
datei = "test.txt"
Open datei For Input As 2
Do Until EOF(2) = True
Line Input #2, zeilen
txteingelesen.Text = txteingelesen.Text & zeilen & vbCrLf
Loop
Close 2
'****** Erstes Textstück suchen
a = Len(txteingelesen)
b = InStr(txteingelesen, "href=") 'den vorderen Teil suchen
b = b + 6 'höhe kommt auf den Suchstring an
c = Mid(txteingelesen, b, a - b)
d = InStr(c, ">") 'den hinteren Teil suchen
d = d - 2 'höhe kommt auf den Suchstring an
e = Left(c, d)
'von hier aus kann "txteingelesen" die Daten von "c" übergeben bekommen
'also
txteingelesen.Text = c
'und das suchergebnis "e" an eine variable übergeben
linkvar = e
'dann wird ab der Stelle "c" weitergesucht
'zum Beispiel mit diesem weiterführenden Code
'****** Nächstes Textstück suchen
a = Len(txteingelesen)
b = InStr(txteingelesen, ">") 'den vorderen Teil suchen
b = b + 1 'höhe kommt auf den Suchstring an
c = Mid(txteingelesen, b, a - b)
d = InStr(c, "