Discussion :

[charlynux79]

Bonjour,
je cherche a lire un fichier TXT et suivant le texte a l’intérieur générer un message d'info différent
j'ai fait le code suivant mais j'ai tout le temps le message d'info 1 qui arrive pas le 2 même si mon fichier est vide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
nNumFichier		est un entier
sLigne est une chaîne
 
nNumFichier	= fOuvre("C:\temp\stratime.txt", foCréationSiInexistant+foAjout)//j'ouvre mon fichier
 
sLigne		= fLitLigne(nNumFichier)//je lis mon fichier
sMaChaîne est une chaîne = "Le service 4D Server: STRADAtime a d‚marr‚." //text a trouver dans mon fichier
SI Contient(sMaChaîne, "STRADAtime a d‚marr‚.") = Vrai ALORS //si contient alors message info
	Info("Le service a été démarré")
SINON
	Info("le Service n'as pas ete demarré ou est deja demarré") // message info si le fichier ne contient pas une partie de ma chaine
FIN
 
fFerme(nNumFichier)

[Voroltinquo]

Bonjour,
Tu cherches dans une chaîne, une sous chaîne qui, par construction, est dans la chaîne, c'est logique que la valeur renvoyée soit VRAI.

[charlynux79]

oui mais soit mon fichier txt contient cette chaine soit il est totalement vide alors pourquoi quand il est vide il me renvois Vrai aussi ?

[Voroltinquo]

Parce que nulle part tu ne fais de comparaison avec le contenu du fichier.
Par ailleurs pourquoi ne pas utiliser ServiceEtat

[charlynux79]

j'ai tester plein de truc dont ça, si je comprend bien la je lui dit bien que ma chaine est la 1er ligne de mon fichier TXT et je dit bien que si il ne contient pas ST alors mon message 1 s'affiche sinon c'est mon message 2?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
nNumFichier est un entier
sLigne est une chaîne
sMaChaîne est une chaîne = sLigne //texte a trouver dans mon fichier (lecture le de 1er ligne plus bas)
 
nNumFichier	= fOuvre("C:\temp\stratime.txt", foCréationSiInexistant+foAjout) //j'ouvre mon fichier
 
sLigne		= fLitLigne(nNumFichier)//je lis la 1er ligne mon fichier
SI Contient(sMaChaîne, "ST") = Faux ALORS //si contient pas ST sur la 1er ligne alors message info
	Info("le Service n'as pas ete demarré ou est deja demarré ")
SINON
	Info("le Service a ete démarré") // message info si le fichier  contient bien ST sur la 1er ligne de mon fichier 
FIN
 
fFerme(nNumFichier)

[Voroltinquo]

Tu affectes une chaîne vide à sMaChaine (c'est comme si tu ne faisais rien).
Ton code équivaut à

Code :

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

1
2
3
 
SI Contient("","ST") ALORS
......

A la différence de Prolog, Windev ne travaille pas par prédicat. Ce n'est pas parce que tu dis en début de programme que sChaine va avoir être égal à une autre variable que lorsque la valeur de cette variable change sChaine va changer. Ou alors, il faut travailler par adresse.

[charlynux79]

je ne comprend plus rien sMaChaine est bien égale a sLigne donc la 1er ligne de mon fichier TXT? et je demande bien de trouver ST sur cette 1er ligne? si il ne trouve pas (parce que le fichier est vide) il met le message 1 sinon si il trouve car j'ai la ligne "Le service 4D Server: STRADAtime d‚marre." le message 2 car ST est le début du mot STRADA?

[Voroltinquo]

sMaChaine est bien égale a sLigne

Non.
Un point d'arrêt au niveau de la comparaison t'en donnera la preuve.
Ton code équivaut à :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
nToto est entier
nTata est entier
 
nToto=nTata
nTata=1
 
SI nToto=1 ALORS
    Trace("Gagné")
SINON
    Trace("Perdu")
FIN

Pour gagner, il faudrait :

Code :

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

1
2
 
&nToto=&nTata

Mais bon, c'est très lours pour une comparason.
D'ailleurs, sMaChaine est inutile, une comparaison sur sLigne suffirait

[charlynux79]

merci pour tes explication je me suis debrouiller autrement je suis partie sur une recherche d'un mot dans mon fichier avec le code suivant:

Code :

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

1
2
3
4
5
6
7
unechaine est une chaîne = fChargeTexte("C:\temp\stratime.txt")
 
SI ChaîneOccurrence(unechaine,"service") ALORS
	Info("Le service a été démarré")
SINON
	Info("le Service n'as pas ete demarré ou est deja demarré ")
FIN

pourquoi faire compliqué quand on peux faire simple :p