6 svar · 443 visningar · startad av budg1e
Finns det någon som kan hjälpa mig med följande bekymmer?
Jag vill hämta det som finns i mitten...
class="mbb">[I]någon text som jag vill spara[/I]</td>
och
class='mbb' align='left'>[I]någon text som jag vill spara[/I]</td>
löste det själv
Hur då?
Om din fråga var i grunden: Hämta ut all information som finns mellan en td med klassen mbb så kan koden se ut:
Dim MyMatches
With New RegExp
.IgnoreCase = True
.MultiLine = True
.Global = True
.Pattern = "<td[\w\W]*?class=(""|')mbb\1[\w\W]*?>([\w\W]*?)</td>"
MyMatches = .Execute(SubjectString)
End With
Men som oskars skriver så hjälper du inte bara dig själv om du kommer på lösningen, utan du kan hjälpa andra i framtiden om du postar din lösning på ditt problem.
Tänk om hela webben hade varit välformad XML :(
Modifierade en lösning i en annan tråd som jag kör 2 ggr.
set re = new regexp
re.ignorecase = true
re.Global = True
re.pattern = "class=""mbb"">(.*?)</td>"
set m = re.execute(strHTML)
set re = nothing
och på andra
set re2 = new regexp
re2.ignorecase = true
re2.Global = True
re2.pattern = "align='left'>(.*?)</td>"
set m2 = re2.execute(strHTML)
set re2 = nothing
kan säkert lösas bättre men det fungerar för mig.