[XML] chercher un mot dans un XML

Version imprimable

01/02/2007, 17h31
sami_c

[XML] chercher un mot dans un XML
Salut,
J'ai mon XML suivant :
Code:

1 2 3 4 5 6 7 <?xml version="1.0" encoding="ISO-8859-1" ?> <filtre> <mot>toto</mot> <mot>titi</mot> <mot>un autre mot</mot> </filtre>
je voudrais ecrire la fonction TROUVE qui prend en paramètre un texte, si ce dernier existe dans le fichier xml elle retourne TRUE, sinon FALSE
PS : sachant que la forme de mon XML est très simple, je peux parfaitement le remplacer par un fichier texte tout simple dont le contenu est le suivant :
Code:

1 2 3 4 toto titi un autre mot
pensez-vous que la fonction TROUVE sera plus rapide avec ce fichier qu'avec un fichier XML?? si oui merci de me donner son code au lieu de celui de la version XML :)

Bonsoir

Le code suivant doit marcher avec ton xml (ou un fichier txt,html,aspx...:P ):
Code:

1 2 3 4 5 6 7 8 9 10 Dim sFichier as string="C:/mofichierquitue.xml" Dim oEncodageANSI As System.Text.Encoding = System.Text.Encoding.GetEncoding(1252) Dim oStreamReader As New IO.StreamReader(sFichier, oEncodageANSI) Dim sContenuFichier As String = "" sContenuFichier = oStreamReader.ReadToEnd() oStreamReader.Close() If sContenuFichier.contains("titi") then 'Contient titi End If
A noter que la définition d'encodage n'est pas forcément nécessaire, mais ça permet d'être sûr de récupérer les caractères comme éàè ;) ...
Un fichier texte prend moins de place qu'un xml puisqu'il ne contient pas tous les caractères de balises, vu que c'est du web, gain de place=gain de bande passante;) .

Bonne soirée

06/02/2007, 11h54
sami_c

j'ai utilisé un fichier texte, et j'ai l'erreur suivante :

Code:

Compiler Error Message: BC30456: 'contains' is not a member of 'String'.

l'erreur est à la ligne suivante :

Code:

If sContenuFichier.contains( "mot2" ) then

PS : je suis en vb et non en c#
06/02/2007, 13h15
mafyoso

Bonjour

bizarre, tu as quelle version du framework .Net:? ?

A bientôt

j'ai trouvé ça dans une page d'erreur :
Version Information: Microsoft .NET Framework Version:1.1.4322.2300; ASP.NET Version:1.1.4322.2300
j'ai testé ce bout de code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
        '-Filtre--------------------------
            Try
                Dim sr As StreamReader = New StreamReader("filtre.txt")
                Dim line As String
                Do
                    line = sr.ReadLine()
                    if line = pseudo.text then
                        lab_ok.text = line
                    end if
                Loop Until line Is Nothing
                sr.Close()
            Catch EVE As Exception
                Response.Redirect("erreur_ouverture_fichier_filtre.html")
            End Try

et bein ça va directement vers la page erreur_ouverture_fichier_filtre.html !! pourtant le fichier existe bien au meme endroit que le script !!!!

06/02/2007, 16h40
mafyoso
Re bonjour

- La fonction Contains n'existe que dans le framework .Net 2.0 :? .

-Pour ce qui est de l'erreur, tu confonds chemin physique et chemin virtuel...
-chemin physique="C:/montext.txt"
-chemin virtuel="montext.txt"

Le contructeur du Reader ne marche qu'avec un chemin physique...

Tu peux récupérer ce chemin avec la fonction suivante:
Code:

1 2 Server.MapPath(".")
Si elle existe en .Net 1.1;) , elle te renvoie le chemin physique de la racine de ton site.

Voilà:P

A bientôt
06/02/2007, 17h08
sami_c
puisque le 1er script ne fonctionne que sous le framework v2, alors je vais utiliser le 2eme, j'ai donc utilisé MapPath pour pointer sur le fichier que je voudrais ouvrir
Code:

1 2 3 ... Dim sr As StreamReader = New StreamReader(Server.MapPath(".") + "filtre.txt") ...
mais ça ne marche tjr pas :( :( :(
quelqu'un peut m'aider à résoudre ce script ou proposer un script qui peut tourner sur mon framework ?
06/02/2007, 19h03
mafyoso
Re Bonjour

il manque le slash à la fin de MapPath;) :
Code:

1 2 3 4 ... Dim sr As StreamReader = New StreamReader(Server.MapPath(".") + "\filtre.txt") ...
A bientôt
07/02/2007, 09h04
sami_c

MERCI :) ça marche nickel

maintenant j'ai un autre pb :(
après avoir testé le script qui est ok, j'ai voulu modifier le contenu du fichier filtre.txt afin d'ajouter d'autres mots, mais mon client FTP ne peux plus modifier ce fichier (idem pour la suppression) et m'affiche le message d'erreur suivant

Code:

550 /home/test/filtre.txt: The process cannot access the file because it is being used by another process.

pourtant mon script effectue bien un close :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Try Dim sr As StreamReader = New StreamReader(Server.MapPath(".") + "\filtre.txt") Dim line As String Do line = sr.ReadLine() if line = pseudo.text then 'detruire le ptr sur le fichier sr.Close() dim EXP1 as exception throw EXP1 end if Loop Until line Is Nothing sr.Close() Catch EXP1 As Exception 'STOP : Mot trouvé dans le filtre Response.Redirect("affiche_err.html") End Try
sachant que c'est le seul et unique script qui exploite le fichier filtre.txt !!!

Bonjour

"mon script effectue bien un close "

oui mais pas dans ton Catch ;) :

Code:

1
2
3
4
5
6
 
   Catch EXP1 As Exception
        'STOP : Mot trouvé dans le filtre
        '...............pas de sr.close()..........
        Response.Redirect("affiche_err.html")
    End Try

Bonne journée :D

07/02/2007, 11h46
sami_c

j'ai déjà testé et ça marche pas : il me dit que sr est PRIVATE et donc il ne peut pas y accéder depuis le bloc CATCH !!!
D'ailleur c'est pour ça que j'ai ajouté sr.Close() AVANT le throw exception !!

Re bonjour

Ca n'a rien a voir avec le PRIVATE. Le problème vient du fait que ton reader est déclaré dans le bloc Try, tu ne peux donc pas y acceder dans un autre bloc de même niveau d'arborescence dans la fonction(suis-je clair, pas sûr 8O).
Bref le code suivant devrait fonctionner....

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
...
Dim sr As StreamReader = New StreamReader(Server.MapPath(".") + "\filtre.txt")
 Try
        Dim line As String
        Do
            line = sr.ReadLine()
            if line = pseudo.text then
                'detruire le ptr sur le fichier 
                sr.Close()
 
                dim EXP1 as exception
                throw EXP1
            end if
        Loop Until line Is Nothing
        sr.Close()
    Catch EXP1 As Exception
        'STOP : Mot trouvé dans le filtre
sr.Close()
        Response.Redirect("affiche_err.html")
    End Try
...

A bientôt

07/02/2007, 14h27
sami_c

cool merci :) ça marche
maintenant j'ai un autre pb : la recherche ne donne rien quand il s'agit d'un mot avec des accents !! Par exemple si je tape le mot été dans mon champ "pseudo" et que ce mot existe dans le fichier filtre.txt, et bien la boucle continue !!! j'ai pourtant bien testé et ça fonctionne bien si je donne un mot sans accents !!

Re re bonjour

Essais ça

Code:

1
2
3
 
Dim oEncodageANSI As System.Text.Encoding = System.Text.Encoding.GetEncoding(1252)
Dim oStreamReader As New IO.StreamReader(sFichier, oEncodageANSI)

A Bientôt (pour la 5eme fois:P)

08/02/2007, 09h33
sami_c

merci pour le(s) coup de pouce :) en fait j'ai gardé le code, mais j'ai seulement utilisé un fichier en utf-8, et ça a marché :) cependant je comprend quand meme pas le pb : je suis sous windows, le serveur est un win, j'ai utilisé notepad2 pour éditer mon fichier filtre.txt et ça n'a pas marché, il a fallu passer par un autre éditeur qui permet de choisir le format d'encodage pour que ça fonctionne !!!! j'ai déjà eu des pb d'incompatibilité de fichiers hétérogène (mac-win-unix), mais là on est dans un système homogène !!!:aie:
08/02/2007, 12h10
mafyoso

Bonjour

Tu as tout à fait raison exception faite de Notepad2 qui sort du TXT Unicode il me semble :roll: . Enfin le principal c'est que ça tourne! ;)

A bientôt