H hasexxl1988 Active Member Licensed User Longtime User Nov 9, 2017 #1 Hallo, ich bin schon langsam am Verzweifeln, und zwar habe ich folgendes Problem: Ich habe einen Code der Korrekt in ein String zwischengespeichert wird. Jetzt möchte ich den Kompletten Code (String) durchsuchen nach z.B. "<img src= Er sollte dann jeweils die Index Position des Eintrages in einer Liste eingetragen werden damit ich weiß wo sich die gesuchten Werte im Code überall befinden und dementsprechend weiter verarbeiten kann. Hat jemand vielleicht eine Idee? Community und Google konnten mir nicht wirklich weiterhelfen Schönen Abend
Hallo, ich bin schon langsam am Verzweifeln, und zwar habe ich folgendes Problem: Ich habe einen Code der Korrekt in ein String zwischengespeichert wird. Jetzt möchte ich den Kompletten Code (String) durchsuchen nach z.B. "<img src= Er sollte dann jeweils die Index Position des Eintrages in einer Liste eingetragen werden damit ich weiß wo sich die gesuchten Werte im Code überall befinden und dementsprechend weiter verarbeiten kann. Hat jemand vielleicht eine Idee? Community und Google konnten mir nicht wirklich weiterhelfen Schönen Abend
MaFu Well-Known Member Licensed User Longtime User Nov 10, 2017 #2 Die Suchfunktion: Code: Copy Sub CountOccurrence(S As String, SearchFor As String) As List Dim res As List res.Initialize Dim idx As Int = -1 Do While True idx = S.IndexOf2(SearchFor, idx + 1) If idx >= 0 Then res.Add(idx) Else Exit End If Loop Return res End Sub Anwendung: Code: Copy Dim s As String = "Das ist ein String mit ein paar Leerzeichen" Dim blanks As List = CountOccurrence(s, " ") Log(blanks)
Die Suchfunktion: Code: Copy Sub CountOccurrence(S As String, SearchFor As String) As List Dim res As List res.Initialize Dim idx As Int = -1 Do While True idx = S.IndexOf2(SearchFor, idx + 1) If idx >= 0 Then res.Add(idx) Else Exit End If Loop Return res End Sub Anwendung: Code: Copy Dim s As String = "Das ist ein String mit ein paar Leerzeichen" Dim blanks As List = CountOccurrence(s, " ") Log(blanks)
H hasexxl1988 Active Member Licensed User Longtime User Nov 10, 2017 #3 Super vielen Dank für deine Hilfe. Werde ich später gleich mal angehen Lg
H hasexxl1988 Active Member Licensed User Longtime User Nov 12, 2017 #4 MaFu said: Die Suchfunktion: Code: Copy Sub CountOccurrence(S As String, SearchFor As String) As List Dim res As List res.Initialize Dim idx As Int = -1 Do While True idx = S.IndexOf2(SearchFor, idx + 1) If idx >= 0 Then res.Add(idx) Else Exit End If Loop Return res End Sub Anwendung: Code: Copy Dim s As String = "Das ist ein String mit ein paar Leerzeichen" Dim blanks As List = CountOccurrence(s, " ") Log(blanks) Click to expand... Der Code funktioniert solang es sich um ein einen einzelnen String mit einem Zeichen handelt, sobald ich nach einem Wort suche findet er nichts mehr. Hast da vielleicht eine idee? Edit: Habs nun gefunden, der Code der in B4A ausgelesen wird ist nicht zu 100% identisch mit dem HTML von Google Chrome, daher hab ich einfach nur nach dem falschen Parameter gesucht Last edited: Nov 12, 2017
MaFu said: Die Suchfunktion: Code: Copy Sub CountOccurrence(S As String, SearchFor As String) As List Dim res As List res.Initialize Dim idx As Int = -1 Do While True idx = S.IndexOf2(SearchFor, idx + 1) If idx >= 0 Then res.Add(idx) Else Exit End If Loop Return res End Sub Anwendung: Code: Copy Dim s As String = "Das ist ein String mit ein paar Leerzeichen" Dim blanks As List = CountOccurrence(s, " ") Log(blanks) Click to expand... Der Code funktioniert solang es sich um ein einen einzelnen String mit einem Zeichen handelt, sobald ich nach einem Wort suche findet er nichts mehr. Hast da vielleicht eine idee? Edit: Habs nun gefunden, der Code der in B4A ausgelesen wird ist nicht zu 100% identisch mit dem HTML von Google Chrome, daher hab ich einfach nur nach dem falschen Parameter gesucht