Discussion :

[sami_c]

Salut,
J'ai mon XML suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mafyoso]

Bonsoir

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sami_c]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

l'erreur est à la ligne suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If sContenuFichier.contains( "mot2" ) then

PS : je suis en vb et non en c#

[mafyoso]

Bonjour

bizarre, tu as quelle version du framework .Net ?

A bientôt

[sami_c]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!!!

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Server.MapPath(".")

Si elle existe en .Net 1.1 , elle te renvoie le chemin physique de la racine de ton site.

Voilà

A bientôt

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[mafyoso]

Re Bonjour


il manque le slash à la fin de MapPath :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
...
Dim sr As StreamReader = New StreamReader(Server.MapPath(".") + "\filtre.txt")
...

A bientôt

[sami_c]

MERCI ça marche nickel

[sami_c]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!!

[mafyoso]

Bonjour

"mon script effectue bien un close "

oui mais pas dans ton Catch :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 !!

[mafyoso]

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 ).
Bref le code suivant devrait fonctionner....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 !!

[mafyoso]

Re re bonjour

Essais ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[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 !!!

[mafyoso]

Bonjour

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

A bientôt