[..] XML et AutoIT

[shiirosan]

Bonjour/Bonsoirs, nouveau problème sur AutoIT pour ma part. Cette fois-ci, j'essaye de faire pour que mon script AutoIT lise les lignes d'un XML et qu'il choisissent de manière aléatoire une réponse sur toute celle donnée. (Création d'un bot pour IRC, considérer comme autre bot ou pas ? Si oui, alors je chercherais ailleurs.)

► Afficher le textefichier xml

Code : Tout sélectionner

<?xml version="1.0" encoding="ISO-8859-1"?>

    <category>
        <pattern>CONNECT</pattern>
        <template>
            <random>
            <li>Salut, </li>
            <li>Bonjour, </li>
            <li>Hello, </li>
            </random>
        </template>
    </category>

► Afficher le textecode autoit

Code : Tout sélectionner

#include <XML.au3>

Global $contents = _XMLLoad("essai.aiml")
Global $categories_num = __StringNumOccur($contents, "<category>")

Global $patterns[$categories_num + 1]
Global $templates[$categories_num + 1]
Global $Li[$categories_num + 1]

For $i=1 To $categories_num

$cat_contents = _XMLGet ($contents, "category", $i)
$cat_pattern = _XMLGet ($cat_contents, "pattern")
__StringStripPunct ($cat_pattern)
If @error Then Exit MsgBox (48, "AIML Bot", "AIML Syntax Error:"&@CRLF&@CRLF&"Category number "&$i&" does not have a <pattern> tag. Please check your code and try again.")
If $cat_pattern = "" Then Exit MsgBox (48, "AIML Bot", "AIML Syntax Error:"&@CRLF&@CRLF&"The <pattern> tag in category number "&$i+1&" is empty. Please check your code and try again.")
$patterns[$i] = $cat_pattern
$cat_template = _XMLGet ($cat_contents, "template")
If @error Then Exit MsgBox (48, "AIML Bot", "AIML Syntax Error:"&@CRLF&@CRLF&"Category number "&$i&" does not have a <template> tag. Please check your code and try again.")
If $cat_template = "" Then Exit MsgBox (48, "AIML Bot", "AIML Syntax Error:"&@CRLF&@CRLF&"The <template> tag in category number "&$i+1&" is empty. Please check your code and try again.")
$templates[$i] = $cat_template
$cat_random = _XMLGet ($cat_template, "random")
$Li = _XMLGet ($cat_random, "li")
Next

MsgBox(0,"", $Li)

Comme on peut le voir d’après mon code, (en partie repris d'un autre bot pour IRC), j'essaye de faire pour que la balise <Li> soit lu de manière aléatoire... Le principal probleme, c'est qu'il ne renvoit que le premier message.

Merci de me signaler si se genre de problèmes est interdit sur le forum, et, si ce n'est pas le cas, de bien vouloir m'aider.

---EDIT---

J'ai ajouté le fichier XML.au3 qui peut-être utile.

[TopXm]

Hello

J'ai fait dans la simplicité, j'ai enregistré ton fichier XML en tant que _RanDom.txt avec une boucle sur 5

Du coup en passant par un tableau puis un Random ça pourrait donner un truc du style :

Code : Tout sélectionner

#include <array.au3>

Local $Buf = FileRead("_Random.txt")
local $Arr = StringRegExp($Buf,  '(?s)<li>(.*?)</li>', 3)

_ArrayDisplay($Arr)

Local $I, $Ind

For $I = 1 To 5
    $Ind = Random(0, UBound($Arr)-1, 1)
    ConsoleWrite('Retour = ' & $Arr[$Ind] & @CRLF)
Next
 

[shiirosan]

fonctionne seul, mais une fois que je le met dans mon script, ne fonctionne plus... Je fait quelque essais et si mon problème n'est pas réglé je reviens vous voir. Merci beaucoup de l'aide déjà fourni

[mikell]

@TopXm
C'est le genre de code où il vaut mieux systématiquement faire une bonne gestion d'erreur

Code : Tout sélectionner

Msgbox(64, "", _salut() )

Func _salut()
  Local $Buf = FileRead("_Random.txt")
  local $Arr = StringRegExp($Buf,  '(?s)<li>(.*?)</li>', 3)
  If IsArray($Arr) Then
      Return $Arr[Random(0, UBound($Arr)-1, 1)]
  Else
     Return SetError(1, 0, "salut par défaut")
  EndIf
EndFunc

[shiirosan]

Mikell, vous êtes un miracle ! Le programme fonctionne correctement et le message est bien écrit !

---EDIT---

Encore un problème T.T Pourrais-je avoir une discutions privés avec vous Mikell ? Je ne préfère pas mettre mes sources sur internet pour le moment...

[mikell]

le message est bien écrit !

Attention, si le message qui s'écrit est "salut par défaut", c'est qu'il y a toujours une cagade !
Sinon ok pour le mp