Aller au contenu


Photo

Caractères spéciaux dans code source internet


  • Please log in to reply
2 replies to this topic

#1 patyom

patyom

    Grand(e) bavard(e)

  • Membres
  • PipPipPip
  • 372 Messages :
  • Sexe:Masculin
  • Localisation:Livernon (Lot)

Posté 18 septembre 2019 - 14:21

Bonjour,

 

j'ai quelques souc d'affichage de données dans mon prog du genre :

 

Ajax Amsterdam - Lille                             3-0�Borussia Dortmund - FC Barcelone                             0-0�Benfica - RB Leipzig                             1-2�Naples - Liverpool                             2-0�Red Bull Salzbourg - RC Genk                             6-2�Chelsea - Valencia                             0-1�Club Bruges - Galatasaray 

Etant assez FOOT j'essaie de récupérer des données pour mon compte personnel sur tout ce qui concerne le ballon rond (une passion).

 

Là, comme vous pouvez le constater, après avoir pris le code source et que je le manipule pour en extraire ce dont j'ai besoin, il m'affiche plein de point d'interrogations.

 

Là, c'est mon résultat dans un textarea, à la place des "�" il devrait y avoir des chr(13).

 

voilà mon code de récupération source de la page internet avec le CleURL : "https://www.pronosof...19-grille-255/"par exemple.

		'Extraction data d'une URL
		Dim secureSite As New HTTPSecureSocket
		Dim data As String
		
		secureSite.Secure = True
		secureSite.ConnectionType = SSLSocket.TLSv12
		
		data = secureSite.Get(CleUrl, 30)
		
		
		data = data.ReplaceAll(" "," ")
		data = data.ReplaceAll("é","é")
		data = data.ReplaceAll("ê","ê")
		data = data.ReplaceAll("€","€")
		data = data.ReplaceAll("&","&")
		data = data.ReplaceAll("è","è")
		
		Return data

Peut-être que ma commande Socket n'est pas adaptée.

:zz-big-mefiant:

Merci pour vos futures réponses

 

a+


MacBook Pro - 13" - 6Go - 1 To
Emac 1GHz - 640 MB - 40 Go


#2 BorakLeRouge

BorakLeRouge

    Hamster d'or (dort ?)

  • Membres
  • PipPipPipPipPipPipPip
  • 3 987 Messages :
  • Configuration:Mac Mini Core i7 2019 - 16Go - 2x1To SSD
  • Sexe:Masculin
  • Localisation:Cormeilles en Parisis.rb
  • Passions:Macintosh, Photo, Haute-fidélité, Ski, Roller, Call of Duty, Tactical Ops, Counter Strike, Worms 1

Posté 18 septembre 2019 - 19:38

Problème classique d'encodage.
Quand tu as des losanges noirs, ton affichage est réglée en UTF-8 mais tu essayes d'afficher du Latin-1.

 

Il faut donc que tu indiques à xojo que ton texte est en Latin-1 :

                'Extraction data d'une URL
		Dim secureSite As New HTTPSecureSocket
		Dim data As String
		
		secureSite.Secure = True
		secureSite.ConnectionType = SSLSocket.TLSv12
		
		data = secureSite.Get(CleUrl, 30)
		
		data.DefineEncoding(Encodings.WindowsLatin1)

		data = data.ReplaceAll(" "," ")
		data = data.ReplaceAll("é","é")
		data = data.ReplaceAll("ê","ê")
		data = data.ReplaceAll("€","€")
		data = data.ReplaceAll("&","&")
		data = data.ReplaceAll("è","è")
		
		Return data

Si le pb d'affichage persiste, toujours derrière le GET, complète en :

data.DefineEncoding(Encodings.WindowsLatin1)
data = ConvertEncoding(data, Encodings.UTF8)

Ce message a été modifié par BorakLeRouge - 18 septembre 2019 - 23:00 .

Je fais mes sauvegardes sur NSA-Cloud !

Au bout de 10 ans, le vieux MacPro vient de laisser sa place à un MacMini i7...


#3 patyom

patyom

    Grand(e) bavard(e)

  • Membres
  • PipPipPip
  • 372 Messages :
  • Sexe:Masculin
  • Localisation:Livernon (Lot)

Posté 18 septembre 2019 - 21:05

Merci Borak, la première ligne de code à suffit.

 

C'est toujours un plaisir, j'ai perdu un certain temps à chercher mais bon çà permet de se replonger un peu dans Xojo que j'avais un peu délaissé (beaucoup de méga bricolage).

 

Tu es toujours présent, c'est sympa

 

Bonne soirée :yahoo:


MacBook Pro - 13" - 6Go - 1 To
Emac 1GHz - 640 MB - 40 Go





0 utilisateur(s) en train de lire ce sujet

0 membre(s), 0 invité(s), 0 utilisateur(s) anonyme(s)