استخدم RegEx لقراءة البيانات هكذا
إذا لم تستفيد من هذه الطريقة، ضع رابط الموقع لفحصه وإيجاد حل مناسب معه
PHP كود :
Dim html = WebBrowser1.DocumentText
Dim coll As MatchCollection = Regex.Matches(html, "<div class=""bks-item"">.+?</div>", RegexOptions.Singleline)
Dim CheckIn, CheckOut, LengthOfStay, TotalGuests, TotalRooms As String
For Each mt As Match In coll
If mt.Value.Contains("Check-in:") Then
CheckIn = Regex.Match(mt.Value, "<div class=""bui_font_display_one"">(.+?)</div>", RegexOptions.Singleline).Groups(1).Value.Trim
End If
If mt.Value.Contains("Check-out:") Then
CheckOut = Regex.Match(mt.Value, "<div class=""bui_font_display_one"">(.+?)</div>", RegexOptions.Singleline).Groups(1).Value.Trim
End If
If mt.Value.Contains("Length of stay:") Then
LengthOfStay = Regex.Match(mt.Value, "<div class=""bui_font_body"">(.+?)</div>", RegexOptions.Singleline).Groups(1).Value.Trim
End If
If mt.Value.Contains("Total guests:") Then
TotalGuests = Regex.Match(mt.Value, "<span class=""bui_font_body"">(.+?)</span>", RegexOptions.Singleline).Groups(1).Value.Trim
End If
If mt.Value.Contains("Total rooms:") Then
TotalRooms = Regex.Match(mt.Value, "<div class=""bui_font_body"">(.+?)</div>", RegexOptions.Singleline).Groups(1).Value.Trim
End If
Next
MsgBox("Check-in: " & vbTab & CheckIn & vbNewLine & _
"Check-out: " & vbTab & CheckOut & vbNewLine & _
"Length of stay: " & vbTab & LengthOfStay & vbNewLine & _
"Total guests: " & vbTab & TotalGuests & vbNewLine & _
"Total rooms: " & vbTab & TotalRooms _
)
إذا لم تستفيد من هذه الطريقة، ضع رابط الموقع لفحصه وإيجاد حل مناسب معه
