[R] FileOpen Et _StringBetween

[Nicoloquinte]

Bonjour ,
je voudrait lire un fichier de préférences en retirant les balises XML , du coup , j'ai fait ce petit code :

[codeautoit]#include <FileConstants.au3>
Local Const $PrefFilePath = @WorkingDir & "\Default.txt"

Local $hPref = FileOpen($PrefFilePath, $FO_READ)
If $hPref = -1 Then
MsgBox(0, "", "Une erreur est survenue lors de la lecture du fichier Default.TXT")
EndIf
FileSetPos($hPref, 0, $FILE_BEGIN)

local $fileread = FileRead($hPref)
$Check = _StringBetween( $fileread, '<Controlertype>', '</Controlertype>')
MsgBox(0,"DevCentral ",$Check[0])[/codeautoit]

Évidement , FileOpen tout seul , marche (pour l'afficher entièrement dans une MsgBox ) , et _Stringbetween Marche pour une variable toute seule (même si je copie le contenu du fichier dedans )
Mais , le code ne marche pas , et retourne cette erreur :

MsgBox(0,"DevCentral ",$Check[0])
MsgBox(0,"DevCentral ",$Check^ ERROR
->23:14:34 AutoIt3.exe ended.rc:1
+>23:14:34 AutoIt3Wrapper Finished.
>Exit code: 1 Time: 0.5568



Bien sur , $Check est un Tableau , alors ,Je peut pas enlever le [0]

D’où cela pourrait venir , mon fichier n'est pas lu comme une chaîne de caractères

Merci d'avance

[orax]

Bien sur , $Check est un Tableau , alors ,Je peut pas enlever le [0]

Je ne suis pas entièrement d'accord. ^^
$Check est un tableau seulement si _StringBetween ne retourne pas une erreur.
La chaine n'est pas trouvée donc $Check n'est pas un tableau et _StringBetween retourne une erreur.

[codeautoit]$Check = _StringBetween($fileread, '<Controlertype>', '</Controlertype>')
If Not @error Then MsgBox(0, "DevCentral ", $Check[0])[/codeautoit]

[Nicoloquinte]

Merci , ça ne marque plus d'erreur mais sa ne marche toujours pas

[codeautoit]#include <String.au3>
#include <FileConstants.au3>
Local Const $PrefFilePath = @WorkingDir & "\Default.txt"

Local $hPref = FileOpen($PrefFilePath, $FO_READ)
If $hPref = -1 Then
MsgBox(0, "", "Une erreur est survenue lors de la lecture du fichier Default.Prefg")
EndIf
FileSetPos($hPref, 0, $FILE_BEGIN)

local $fileread = FileRead($hPref)
$Check = _StringBetween( $fileread, '<Controlertype>', '</Controlertype>')

If Not @error Then MsgBox(0, "DevCentral ", $Check[0])[/codeautoit]


jai une erreur 0 donc pas d'erreur

[orax]

Oui je m'en doute. Mais c'est normal si la chaine n'est pas trouvée.

jai une erreur 0 donc pas d'erreur

Non, il y a bien une erreur sinon la MsgBox s'afficherait. Après _StringBetween, @error est différent de 0.

[Nicoloquinte]

Bah , C'est trop bizarre, je t'invite a tester le code parce que là .... c'est super bizarre

On dirait que mon fichier n'est pas lu comme un chaîne de caractères classique , parce que les deux fonctions fonctionnent indépendamment , et dès que j'ajoute l'autre dans l'une , ça Marche plus

[Nicoloquinte]

Si il n'y a pas de solution , de devais me débrouiller avec StringLeft Et StringRight mais , c'est brouillon et , nope en fait ce serai super cool qu'il y ait une solution , je cherche depuis trois jours

[orax]

Bah , C'est trop bizarre, je t'invite a tester le code parce que là .... c'est super bizarre

Je l'avais testé et je n'ai pas eu de problème. Si j'ai <Controlertype>test</Controlertype> dans un fichier, ça affiche "test".
Pour moi, le code fourni est fonctionnel, mais je suis peut-être passé à côté de quelque chose.
Il y a juste la ligne FileSetPos($hPref, 0, $FILE_BEGIN) qui pourrait être supprimée. Et on pourrait aussi ajouter un FileClose.
[codeautoit]#include <String.au3>
#include <FileConstants.au3>
Local Const $PrefFilePath = @WorkingDir & "\Default.txt"

Local $hPref = FileOpen($PrefFilePath, $FO_READ)
If $hPref = -1 Then
MsgBox(0, "", "Une erreur est survenue lors de la lecture du fichier Default.Prefg")
EndIf

Local $fileread = FileRead($hPref)
FileClose($hPref)

$Check = _StringBetween($fileread, '<Controlertype>', '</Controlertype>')
If Not @error Then MsgBox(0, "DevCentral ", $Check[0])[/codeautoit]

Si le fichier à lire est toujours placé dans le dossier du script, alors @ScriptDir conviendrait mieux.
On peut aussi simplifier le script de la façon suivante.
[codeautoit]#include <String.au3>
#include <FileConstants.au3>
Local Const $PrefFilePath = @ScriptDir & "\Default.txt"

Local $fileread = FileRead($PrefFilePath)
If @error Then
MsgBox(0, "", "Une erreur est survenue lors de la lecture du fichier Default.Prefg") ; <= Default.Prefg ou Default.txt ?
EndIf

$Check = _StringBetween($fileread, '<Controlertype>', '</Controlertype>')
If Not @error Then MsgBox(0, "DevCentral ", $Check[0])[/codeautoit]

Le fichier qui est lu est Default.txt, or la MsgBox affiche "Une erreur est survenue lors de la lecture du fichier Default.Prefg". Bizarre !

[Nicoloquinte]

.Prefg , cétait un test , mais comme sa ne marchait pas , j'ai mis .TXT

Et , le problème venait du contenu du fichier lui-même , j'en pleure de rire , trois jour et une erreur a <Contrôlertype> a la place de <Controlertype> :
en tout cas , merci d'avoir simplifié mon code qui était bon depuis le début
Merci