J'ai besoin de récuperer le code sources de certaines pages HTML.
Pour ceci j'utilise le code suivant :
Dim req As WebRequest = WebRequest.Create(Url)
result = req.GetResponse
Dim ReceiveStream As Stream
ReceiveStream = result.GetResponseStream
Dim encode As Encoding = System.Text.Encoding.GetEncoding("UTF-8")
Dim sr As StreamReader = New StreamReader(ReceiveStream, encode)
contenu = sr.ReadToEnd
Tout fonctionne bien à un détail près .... tous les accents sont supprimés !
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Mathieu Francesch
Bonjour,
J'ai apporté quelques petites modifications à votre code et je pense que cela devrait vous convenir :
Dim req As WebRequest = WebRequest.Create("http://www.microsoft.com/France/apropos/default.mspx") Dim result As HttpWebResponse Dim contenu As String result = req.GetResponse Dim ReceiveStream As Stream ReceiveStream = result.GetResponseStream Dim sr As StreamReader = New StreamReader(ReceiveStream, System.Text.Encoding.Default) contenu = sr.ReadToEnd
Les accents sont encodés en html et c'est entre autre pour cette raison que l'on utilise System.Text.Encoding.Default qui retourne SBCSCodePageEncoding.
Bonne journée,
-- Cordialement,
Mathieu Francesch
"Pyroa" a écrit :
Bonjour,
J'ai besoin de récuperer le code sources de certaines pages HTML.
Pour ceci j'utilise le code suivant :
Dim req As WebRequest = WebRequest.Create(Url) result = req.GetResponse Dim ReceiveStream As Stream ReceiveStream = result.GetResponseStream Dim encode As Encoding = System.Text.Encoding.GetEncoding("UTF-8") Dim sr As StreamReader = New StreamReader(ReceiveStream, encode) contenu = sr.ReadToEnd
Tout fonctionne bien à un détail près .... tous les accents sont supprimés !
savez vous pourquoi ?
merci d'avance pour vos réponses.
Bonjour,
J'ai apporté quelques petites modifications à votre code et je pense que
cela devrait vous convenir :
Dim req As WebRequest =
WebRequest.Create("http://www.microsoft.com/France/apropos/default.mspx")
Dim result As HttpWebResponse
Dim contenu As String
result = req.GetResponse
Dim ReceiveStream As Stream
ReceiveStream = result.GetResponseStream
Dim sr As StreamReader = New StreamReader(ReceiveStream,
System.Text.Encoding.Default)
contenu = sr.ReadToEnd
Les accents sont encodés en html et c'est entre autre pour cette raison que
l'on utilise System.Text.Encoding.Default qui retourne SBCSCodePageEncoding.
Bonne journée,
--
Cordialement,
Mathieu Francesch
epsilon@neuf.fr
"Pyroa" a écrit :
Bonjour,
J'ai besoin de récuperer le code sources de certaines pages HTML.
Pour ceci j'utilise le code suivant :
Dim req As WebRequest = WebRequest.Create(Url)
result = req.GetResponse
Dim ReceiveStream As Stream
ReceiveStream = result.GetResponseStream
Dim encode As Encoding = System.Text.Encoding.GetEncoding("UTF-8")
Dim sr As StreamReader = New StreamReader(ReceiveStream, encode)
contenu = sr.ReadToEnd
Tout fonctionne bien à un détail près .... tous les accents sont supprimés !
J'ai apporté quelques petites modifications à votre code et je pense que cela devrait vous convenir :
Dim req As WebRequest = WebRequest.Create("http://www.microsoft.com/France/apropos/default.mspx") Dim result As HttpWebResponse Dim contenu As String result = req.GetResponse Dim ReceiveStream As Stream ReceiveStream = result.GetResponseStream Dim sr As StreamReader = New StreamReader(ReceiveStream, System.Text.Encoding.Default) contenu = sr.ReadToEnd
Les accents sont encodés en html et c'est entre autre pour cette raison que l'on utilise System.Text.Encoding.Default qui retourne SBCSCodePageEncoding.
Bonne journée,
-- Cordialement,
Mathieu Francesch
"Pyroa" a écrit :
Bonjour,
J'ai besoin de récuperer le code sources de certaines pages HTML.
Pour ceci j'utilise le code suivant :
Dim req As WebRequest = WebRequest.Create(Url) result = req.GetResponse Dim ReceiveStream As Stream ReceiveStream = result.GetResponseStream Dim encode As Encoding = System.Text.Encoding.GetEncoding("UTF-8") Dim sr As StreamReader = New StreamReader(ReceiveStream, encode) contenu = sr.ReadToEnd
Tout fonctionne bien à un détail près .... tous les accents sont supprimés !
savez vous pourquoi ?
merci d'avance pour vos réponses.
Pyroa
Excellent !!!
Je vous remercie beaucoup :) Je n'ai plus qu'à continuer mon programme.
Encore merci !
Pyroa
"Mathieu Francesch" a écrit dans le message de news:
Bonjour,
J'ai apporté quelques petites modifications à votre code et je pense que cela devrait vous convenir :
Dim req As WebRequest > WebRequest.Create("http://www.microsoft.com/France/apropos/default.mspx") Dim result As HttpWebResponse Dim contenu As String result = req.GetResponse Dim ReceiveStream As Stream ReceiveStream = result.GetResponseStream Dim sr As StreamReader = New StreamReader(ReceiveStream, System.Text.Encoding.Default) contenu = sr.ReadToEnd
Les accents sont encodés en html et c'est entre autre pour cette raison que l'on utilise System.Text.Encoding.Default qui retourne SBCSCodePageEncoding.
Bonne journée,
-- Cordialement,
Mathieu Francesch
"Pyroa" a écrit :
Bonjour,
J'ai besoin de récuperer le code sources de certaines pages HTML.
Pour ceci j'utilise le code suivant :
Dim req As WebRequest = WebRequest.Create(Url) result = req.GetResponse Dim ReceiveStream As Stream ReceiveStream = result.GetResponseStream Dim encode As Encoding = System.Text.Encoding.GetEncoding("UTF-8") Dim sr As StreamReader = New StreamReader(ReceiveStream, encode) contenu = sr.ReadToEnd
Tout fonctionne bien à un détail près .... tous les accents sont supprimés !
savez vous pourquoi ?
merci d'avance pour vos réponses.
Excellent !!!
Je vous remercie beaucoup :)
Je n'ai plus qu'à continuer mon programme.
Encore merci !
Pyroa
"Mathieu Francesch" <epsilon@neuf.fr> a écrit dans le message de news:
570BE0F9-0130-4674-B756-9034607FCD84@microsoft.com...
Bonjour,
J'ai apporté quelques petites modifications à votre code et je pense que
cela devrait vous convenir :
Dim req As WebRequest > WebRequest.Create("http://www.microsoft.com/France/apropos/default.mspx")
Dim result As HttpWebResponse
Dim contenu As String
result = req.GetResponse
Dim ReceiveStream As Stream
ReceiveStream = result.GetResponseStream
Dim sr As StreamReader = New StreamReader(ReceiveStream,
System.Text.Encoding.Default)
contenu = sr.ReadToEnd
Les accents sont encodés en html et c'est entre autre pour cette raison
que
l'on utilise System.Text.Encoding.Default qui retourne
SBCSCodePageEncoding.
Bonne journée,
--
Cordialement,
Mathieu Francesch
epsilon@neuf.fr
"Pyroa" a écrit :
Bonjour,
J'ai besoin de récuperer le code sources de certaines pages HTML.
Pour ceci j'utilise le code suivant :
Dim req As WebRequest = WebRequest.Create(Url)
result = req.GetResponse
Dim ReceiveStream As Stream
ReceiveStream = result.GetResponseStream
Dim encode As Encoding = System.Text.Encoding.GetEncoding("UTF-8")
Dim sr As StreamReader = New StreamReader(ReceiveStream, encode)
contenu = sr.ReadToEnd
Tout fonctionne bien à un détail près .... tous les accents sont
supprimés !
Je vous remercie beaucoup :) Je n'ai plus qu'à continuer mon programme.
Encore merci !
Pyroa
"Mathieu Francesch" a écrit dans le message de news:
Bonjour,
J'ai apporté quelques petites modifications à votre code et je pense que cela devrait vous convenir :
Dim req As WebRequest > WebRequest.Create("http://www.microsoft.com/France/apropos/default.mspx") Dim result As HttpWebResponse Dim contenu As String result = req.GetResponse Dim ReceiveStream As Stream ReceiveStream = result.GetResponseStream Dim sr As StreamReader = New StreamReader(ReceiveStream, System.Text.Encoding.Default) contenu = sr.ReadToEnd
Les accents sont encodés en html et c'est entre autre pour cette raison que l'on utilise System.Text.Encoding.Default qui retourne SBCSCodePageEncoding.
Bonne journée,
-- Cordialement,
Mathieu Francesch
"Pyroa" a écrit :
Bonjour,
J'ai besoin de récuperer le code sources de certaines pages HTML.
Pour ceci j'utilise le code suivant :
Dim req As WebRequest = WebRequest.Create(Url) result = req.GetResponse Dim ReceiveStream As Stream ReceiveStream = result.GetResponseStream Dim encode As Encoding = System.Text.Encoding.GetEncoding("UTF-8") Dim sr As StreamReader = New StreamReader(ReceiveStream, encode) contenu = sr.ReadToEnd
Tout fonctionne bien à un détail près .... tous les accents sont supprimés !