guice11
Messages postés52Date d'inscriptionsamedi 25 novembre 2006StatutMembreDernière intervention17 décembre 2009
-
19 sept. 2009 à 18:16
guice11
Messages postés52Date d'inscriptionsamedi 25 novembre 2006StatutMembreDernière intervention17 décembre 2009
-
20 sept. 2009 à 16:02
Alors voilà j'ai un problème d'affichae d'apostrophe. Des fois la regex marche et donc affiche les apostrohe, et d'autre elle ne les affiche pas. Voilà les 2 types d'apostrohe : ?' , que le site utilise. Celle qui marche est " ' ".
Mon code pr récupérer ceci est :
Dim PatternDescription As String
PatternDescription = "<td colspan=""3"">
([\s\S]*?)
</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
guice11
Messages postés52Date d'inscriptionsamedi 25 novembre 2006StatutMembreDernière intervention17 décembre 2009 19 sept. 2009 à 18:45
Je sais pas poourquoi quand j'ai voulu mettre les 2 apostrophe ds le msg, ca à enlever une des 2. Donc voilà un lien qui montre toutes les apostrohes : http://www.cl.cam.ac.uk/~mgk25/ucs/quotes.html
Celle que j'arrive à afficher est l'unicode U+0027, et l'autre est U+2019(que je n'arrive pas a afficher)
guice11
Messages postés52Date d'inscriptionsamedi 25 novembre 2006StatutMembreDernière intervention17 décembre 2009 20 sept. 2009 à 16:02
Je sais pas si c'est un pb d'encodage ou peut etre qu'il y a des caractères spéciaux et faut faire qques choses pr cela.
Alors voilà mon code de l'encodage :
Try
Dim url As String = "http://www.bedetheque.com/" & match.Value.ToString
Dim request As WebRequest = WebRequest.Create(url)
Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
Dim dataStream As Stream = response.GetResponseStream()
Dim respEncoding As Encoding = Encoding.GetEncoding(response.CharacterSet)
Dim reader As New StreamReader(dataStream, respEncoding)
Dim HtmlData As String = reader.ReadToEnd()
Me.RtHtmlData2.Text = HtmlData
reader.Close()
dataStream.Close()
response.Close()
Me.LbUrl.Visible = True
Me.LbUrl.Text = url