[R] Problèmes de quotes

[jbnh]

Coucou

j'ai ceci:

Code : Tout sélectionner

<a href="daoc://91.121.134.198:10300" onmouseover="Tip('You must have DAoC Portal installed for this link to work!')">Connect</a></td><td class="">
 

et je dois le mettre entre quotes j'ai donc essayé ceci: mais je suis pas sur que ca soit bon:

Code : Tout sélectionner

'<a href="daoc://91.121.134.198:10300" onmouseover="Tip(''You must have DAoC Portal installed for this link to work!'')">Connect</a></td><td class="">'

Merci de votre aide

[SagePourpre]

Coucou

j'ai ceci:

Code : Tout sélectionner

<a href="daoc://91.121.134.198:10300" onmouseover="Tip('You must have DAoC Portal installed for this link to work!')">Connect</a></td><td class="">
 

et je dois le mettre entre quotes j'ai donc essayé ceci: mais je suis pas sur que ca soit bon:

Code : Tout sélectionner

'<a href="daoc://91.121.134.198:10300" onmouseover="Tip(''You must have DAoC Portal installed for this link to work!'')">Connect</a></td><td class="">'

Merci de votre aide

Voilà !!!

Code : Tout sélectionner

"<a href=" & chr(34) &"daoc://91.121.134.198:10300" & chr(34) &" onmouseover=" & chr(34) &"Tip('You must have DAoC Portal installed for this link to work!')" & chr(34) &">Connect</a></td><td class=" & chr(34) &"" & chr(34) &">'"

Peut-être pas la manière la plus simple mais je me suis fabriqué un petit
convertisseur pour placer n'importe quoi entre quotes lol ...

Si c'est pour être utilisé avec un send, faut pas oublier de mettre 1 comme flag.

[jbnh]

En soi, et pas en coton, (bon ok j'arrête les blagues débiles) ça à l'air de marcher.

Mais voila je veut le 346:

Code : Tout sélectionner

<a href="daoc://91.121.134.198:10300" onmouseover="Tip('You must have DAoC Portal installed for this link to work!')">Connect</a></td><td class="">346</td>

Je fais donc :

Code : Tout sélectionner

$String = FileRead($file)

player1 = _StringBetween($String, "<a href=" & chr(34) &"daoc://91.121.134.198:10300" & chr(34) &" onmouseover=" & chr(34) &"Tip('You must have DAoC Portal installed for this link to work!')" & chr(34) &">Connect</a></td><td class=" & chr(34) &"" & chr(34) &">'", '</td>')
 
Msgbox(0,"Chiffre",$player1)

Mais ma messagbox affiche le nombre 0.

Une idée?

[SagePourpre]

Code : Tout sélectionner

<a href="daoc://91.121.134.198:10300" onmouseover="Tip('You must have DAoC Portal installed for this link to work!')">Connect</a></td><td class="">346</td>

Code : Tout sélectionner

$string = clipget()
$string = StringReplace($string,"<","|")
$string=stringsplit($string,"<")
$string=StringSplit($string[5],">")
MsgBox(0,"",$string[2])

ça a fonctionné pendant que j'avais le code dans mon presse-papier mais quand j'ai voulu
changer clipget pour fileread ça s'est mis à ne plus m'écouter


et avec la fatigue qui se fait sentir, j'suis pas certain de comprendre ce qui arrive...

[jbnh]

keskako ? chez moi ca marche pas. Puis c'est pas normal que le _StringBetween marche pas.

Je suis obligé d'avoir tout ca :

Code : Tout sélectionner

<a href="daoc://91.121.134.198:10300" onmouseover="Tip('You must have DAoC Portal installed for this link to work!')">Connect</a></td><td class="">346</td>

pcq sinon il trouve d'autres chiffres dans la page.

[ani]

problème ?

quel est la classe du td ?

quel explorateur web posséde tu ? ie, firefox, ....

pour la soluce j'attend la suite :p, car j'ai pas trop suivit a part que désire récupérer le 346

[jbnh]

Bon gros récapitulatif clair et précis.

Je prend le fichier d'un serveur

Code : Tout sélectionner

If GUICtrlRead($server) = "Dawn of Light: Eden" Then
InetGet("http://www.xxxxxx.net/?page=serverlist", "page", 1)
filemove("page", "page.txt")

Je l'ouvre:

Code : Tout sélectionner

$file = FileOpen("page.txt", 0)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf

A titre d'exemple ce fichier comprend:

Code : Tout sélectionner

<a href="daoc://91.121.134.198:10300" onmouseover="Tip('You must have DAoC Portal installed for this link to work!')">Connect</a></td><td class="">346</td>

<td class="">International</td>

<a href="daoc://88.88.88.149:2485" onmouseover="Tip('You must have DAoC Portal installed for this link to work!')">Connect</a></td><td class="">618</td>

Je dois enfait récupérer le 346 (et plus tard le 618).

Je fais donc:

Code : Tout sélectionner

$String = FileRead($file)
$player1 = _StringBetween($String, "<a href=" & chr(34) &"daoc://91.121.134.198:10300" & chr(34) &" onmouseover=" & chr(34) &"Tip('You must have DAoC Portal installed for this link to work!')" & chr(34) &">Connect</a></td><td class=" & chr(34) &"" & chr(34) &">'", '</td>')

Seulement la msgbox retourne 0.

Sagepourpre m'aide encore une nouvelle fois mais je n'ai pas compris.

J'en suis là

[Tlem]

Ceci peut-il aider ?

Code : Tout sélectionner

#Include <String.au3>

$Chaine1 = '<a href="daoc://91.121.134.198:10300" onmouseover="Tip(''You must have DAoC Portal installed for this link to work!'')">Connect</a></td><td class="">346</td>'

$Chaine2 = '<a href="daoc://88.88.88.149:2485" onmouseover="Tip(''You must have DAoC Portal installed for this link to work!'')">Connect</a></td><td class="">618</td>'

$Res = _StringBetween($Chaine1, 'class="">', '</td>')
If IsArray ($Res) Then
    MsgBox(0,"",$Res[0])
Else
    MsgBox(16,"","Aucune chaîne trouvée")
EndIf

$Res = _StringBetween($Chaine2, 'class="">', '</td>')
If IsArray ($Res) Then
    MsgBox(0,"",$Res[0])
Else
    MsgBox(16,"","Aucune chaîne trouvée")
EndIf

Pour mettre n'importe quelle chaine entre quote, la solution consiste à récupérer la chaine, de doubler tous les quotes simple, et de mettre l'intégralité de la chaine entre quote simple.

[jbnh]

Le problème c'est que je connais pas le chiffre ! car c'est un chiffre au hasard, enfin c'est le nombre de joueur sur un serveur donc il est toujours changeant.

Ce que je sais c'est que ce chiffre est compris entre

Code : Tout sélectionner

<a href="daoc://71.164.188.115:10300" onmouseover="Tip('You must have DAoC Portal installed for this link to work!')">Connect</a></td><td class="">

et

Code : Tout sélectionner

</td>

Je fais donc :

Code : Tout sélectionner

$player1 = _StringBetween($String, '<a href="daoc://71.164.188.115:10300" onmouseover="Tip(''You must have DAoC Portal installed for this link to work!'')">Connect</a></td><td class="">', '</td>')

MsgBox(0,"",$player1)

Comme avec le systeme de quote comme a dit tlem mais ca ne marche paaaaaas pourquoiiiiii?

[Tlem]

Bizarre ce que tu dit, car chez moi ceci fonctionne :

Code : Tout sélectionner

#Include <String.au3>

$Chaine1 = '<a href="daoc://91.121.134.198:10300" onmouseover="Tip(''You must have DAoC Portal installed for this link to work!'')">Connect</a></td><td class="">346</td>'

$Res = _StringBetween($Chaine1, 'onmouseover="Tip(''You must have DAoC Portal installed for this link to work!'')">Connect</a></td><td class="">', '</td>')
If IsArray ($Res) Then
    MsgBox(0,"",$Res[0])
Else
    MsgBox(16,"","Aucune chaîne trouvée")
EndIf

Edit :
Je viens de voir ton message sur le fofo Anglais.
Ils vont ce moquer de toi ... car _StringBetween renvois un tableau et nom une chaine.

[jbnh]

J'ai complètement oublié que ca retournait une array alors que je le l'avais fait pour mon multi trad -_-' distrait.

[Tlem]

Oui, c'est pour ça que j'ai chargé la ligne dans $Chaine1.
Les points dont tu est sur, c'est bien :
</td> en fin de ligne.
et
onmouseover="Tip('You must have DAoC Portal installed for this link to work!')">Connect</a></td><td class=""> avant le nombre à récupérer ...
donc le code que je t'ai donné doit correspondre à tous les cas de figure.

[SagePourpre]

Pour mettre n'importe quelle chaine entre quote, la solution consiste à récupérer la chaine, de doubler tous les quotes simple, et de mettre l'intégralité de la chaine entre quote simple.

Intéressant à savoir...





sinon voilà comment j'étais parvenu à cette fin puisque
je n'arrivais à rien avec le _stringbetween .

Même si ta solution reste plus élégante ( pas mal moins longue)

► Afficher le texte

Code : Tout sélectionner

#include<string.au3>
$file = "test.html"
$a=FileRead($file)


$a = StringTrimLeft($a,147)
$a1 = StringLeft($a,1)
$a2 = StringLeft($a,2)
$a3 = StringLeft($a,3)
$a4 = StringLeft($a,4)

If StringIsDigit($a4) Then
    $a3 = ""
    $a2 = ""
    $a1 = ""
    $r = $a4
ElseIf StringIsDigit($a3) Then
    $a2 = ""
    $a1 = ""
    $r = $a3
ElseIf StringIsDigit($a2) Then
    $a1 = ""
    $r = $a2
ElseIf StringIsDigit($a1) Then
    $r = $a1
Else
    $r = "erreur"
EndIf

MsgBox(0,"",$r)