Meilleur solution : recuperation d'une page web + """
2 réponses
Bernardo
Bonjour,
Dans mon appli je fais appel à winsock pour charger une page web,
ensuite les données doivent être traitées.
Le soucis est que la page chargée au format txt contient des "&" et
des """ (entre autres, pour les caractères accentuées). Je dois
donc convertir les chaînes.
La fonction REPLACE est t'elle la plus adaptée ?
Que me conseillez-vous pour résoudre le problème de conversion ?
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
Jean-Marc
"Bernardo" a écrit dans le message de news:
Bonjour,
Dans mon appli je fais appel à winsock pour charger une page web, ensuite les données doivent être traitées.
Le soucis est que la page chargée au format txt contient des "&" et des """ (entre autres, pour les caractères accentuées). Je dois donc convertir les chaînes.
La fonction REPLACE est t'elle la plus adaptée ? Que me conseillez-vous pour résoudre le problème de conversion ?
Hello,
Dans ce cas, la fonction Replace() est effectivement bien adaptée. Tu peux utilement construire une petite table contenant les séquences à remplacer et le caractère de remplacement, pour pouvoir traiter tous les remplacements à l'aide d'une simple boucle, comme ceci:
' 8<------------------------------------------------------------------ Option Explicit Const MAX_HTML_SIGN As Long = 128
' Remplace les caractères spéciaux HTML par le ' caractère correspondant ' voir http://www.commentcamarche.net/html/htmlcarac.php3 pour ' une table complète. ' ' Cette fonction retourne toujours True ' Function SubstSpecHtmlCar(ByVal szBufferIn As String, _ ByRef szBufferOut As String) As Boolean Dim t(MAX_HTML_SIGN, 2) As String Dim i As Long Dim nombre_signe As Long
-- Jean-marc Tester mon serveur (VB6) => http://myjmnhome.dyndns.org "There are only 10 kind of people those who understand binary and those who don't." mailto: remove '_no_spam_' ;
"Bernardo" <b@ee.fr> a écrit dans le message de
news:mn.bc677d61b682ae60.36669@ee.fr...
Bonjour,
Dans mon appli je fais appel à winsock pour charger une page web,
ensuite les données doivent être traitées.
Le soucis est que la page chargée au format txt contient des "&" et
des """ (entre autres, pour les caractères accentuées). Je dois
donc convertir les chaînes.
La fonction REPLACE est t'elle la plus adaptée ?
Que me conseillez-vous pour résoudre le problème de conversion ?
Hello,
Dans ce cas, la fonction Replace() est effectivement bien adaptée. Tu
peux utilement construire une petite table contenant les séquences à
remplacer et le caractère de remplacement, pour pouvoir traiter tous
les remplacements à l'aide d'une simple boucle, comme ceci:
' 8<------------------------------------------------------------------
Option Explicit
Const MAX_HTML_SIGN As Long = 128
' Remplace les caractères spéciaux HTML par le
' caractère correspondant
' voir http://www.commentcamarche.net/html/htmlcarac.php3 pour
' une table complète.
'
' Cette fonction retourne toujours True
'
Function SubstSpecHtmlCar(ByVal szBufferIn As String, _
ByRef szBufferOut As String) As Boolean
Dim t(MAX_HTML_SIGN, 2) As String
Dim i As Long
Dim nombre_signe As Long
--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
Dans mon appli je fais appel à winsock pour charger une page web, ensuite les données doivent être traitées.
Le soucis est que la page chargée au format txt contient des "&" et des """ (entre autres, pour les caractères accentuées). Je dois donc convertir les chaînes.
La fonction REPLACE est t'elle la plus adaptée ? Que me conseillez-vous pour résoudre le problème de conversion ?
Hello,
Dans ce cas, la fonction Replace() est effectivement bien adaptée. Tu peux utilement construire une petite table contenant les séquences à remplacer et le caractère de remplacement, pour pouvoir traiter tous les remplacements à l'aide d'une simple boucle, comme ceci:
' 8<------------------------------------------------------------------ Option Explicit Const MAX_HTML_SIGN As Long = 128
' Remplace les caractères spéciaux HTML par le ' caractère correspondant ' voir http://www.commentcamarche.net/html/htmlcarac.php3 pour ' une table complète. ' ' Cette fonction retourne toujours True ' Function SubstSpecHtmlCar(ByVal szBufferIn As String, _ ByRef szBufferOut As String) As Boolean Dim t(MAX_HTML_SIGN, 2) As String Dim i As Long Dim nombre_signe As Long
-- Jean-marc Tester mon serveur (VB6) => http://myjmnhome.dyndns.org "There are only 10 kind of people those who understand binary and those who don't." mailto: remove '_no_spam_' ;
Bernardo
> "Bernardo" a écrit dans le message de
Hello,
Dans ce cas, la fonction Replace() est effectivement bien adaptée
Ok merci. Dommage qu'il n'existe pas une fonction ou une api.
> "Bernardo" <b@ee.fr> a écrit dans le message de
Hello,
Dans ce cas, la fonction Replace() est effectivement bien adaptée
Ok merci. Dommage qu'il n'existe pas une fonction ou une api.