1 2 3 4 5 6 7 8 9 10 11 12 13
| PatternDescription = "<td colspan=""3""><div align=""justify""><BR>([\s\S]*?)</div></td>\s*</tr></table>"
Dim rxDescription As New Text.RegularExpressions.Regex(PatternDescription, RegexOptions.IgnoreCase)
Dim matchDescription As Match = rxDescription.Match(HtmlData)
Dim MaRegexDescription As New System.Text.RegularExpressions.Regex("")
Dim ValueDescription As String
Dim guillemet As String = """"
ValueDescription = System.Text.RegularExpressions.Regex.Replace(matchDescription.Value, "(<[^>]+>)", "")
' ValueDescription = ValueDescription.Replace(""", guillemet)
If ValueDescription = "" Then
Me.TbDescription.Text = "Aucune donnée disponible...."
Else
Me.TbDescription.Text = ValueDescription
End If |
Partager