Discussion :

[amsterdam]

Salut.
Voilà je lit un fichier texte pour en extraire 2 chaines séparées par un ';'.
J'utilise pos pour trouver le ';' mais ensuite je souhaite séparer les deux chaines.
La première continuera à alimenter mon menu.
La deuxième sera stockée dans un tableau.

Donc ma question est:
Une fois que j'ai récupéré ma ligne comment séparer les deux chaines.

Dans l'aide je n'ai trouvé que des exemples pour le mode protégé.

Merci d'avance.

[denokan]

salut

avec la commande copy tu pourra extraire une partie d'un string :
ex :

Code :

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

1
2
3
4
5
 
chainelue:=readln(fichier);
posi:=pos(';', chainelue);
chaine1:=copy(1, posi - 1, chainelue);
chaine2:=copy(posi + 1, Length(chainelue) - posi);

[M.Dlb]

Euh la syntaxe est pas tout à fait correcte dans l'exemple de Denokan :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var S:string;
var chaine1,chaine2:string;
var f:text;
begin
...
assign(f,'machin');
rewrite(f);
readln(F,s);
chaine1:=Copy(S,1,pos(S,';')-1);
chaine2:=Copy(S,pos(S,';')+1,length(S));
end;

Le fait de mettre length(S) dans le Copy du chaine2 copie la chaîne jusqu'au dernier caractère : pas besoin de calculer la longueur restante, il suffit de spécifier une valeur connue supérieure et le reste de la chaîne sera obligatoirement copiée !
a+

[amsterdam]

Ok, je teste ça et je revient.

[amsterdam]

Bon si j'ai bien compris le premier copy devrait me récupérer du premier caractère de s jusqu'au dernier avant le ';'.
Sauf que ça m'affiche du vide.

[amsterdam]

Si je fait avec -1 ça ne me donne rien, par contre si je le remplace par +1 ça affiche la première lettre de ma chaine.
Donc c'est au niveau du pos que ça coince.

[amsterdam]

J'ai trouvé c'est pos(';',s) et non pas
pos(s,';').

[M.Dlb]

Autant pour moi !

[amsterdam]

Bon maintenant que j'ai récupéré mes deux chaines, une affichée et l'autre dans un tableau.
Je voudrait pouvoir lancer celle qui se trouve dans mon tableau.
Dans mon tableau il y a: c:\windows\notepad.exe.
J'ai testé ceci:

exec tabch[x]

tabch étant mon tableau et x mon compteur.
Sauf que TP ne veut pas de exec.

[M.Dlb]

Bon ca saoule l'histoire de exec : utilisez la fonction rechercher ici :
http://www.developpez.net/forums/search.php

Code :

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

1
2
3
4
5
 
uses dos;
begin
exec('programme','ligne de commande');
end.

Une bonne fois pour toute ! Pascail tu pourrais peut-être mettre la solution définitive dans un post-it ??
a+

[amsterdam]

Pour info j'ai utilisé la fonction recherche.

[amsterdam]

Voilà je vient de tester:
#13
exec('','tabch[1]');
Ca ne met plus d'erreur mais ça ne fait rien.
Ou alors je me suis trompé pour le #13 qui n'est pas pour la touche entrée.
Je vais quand même vérifier.

[amsterdam]

Apparement ce serait plutôt:
exec('tabch[1]','');
Mais ça ne marche toujour pas.

[MCoder]

Pourquoi tu ne le fais pas tout simplement cela dans une boucle For par exemple ?

Code :

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

1
2
3
 
FOR x := debut_tabch TO fin_tabch DO
WRITELN(tabch[x];

debut_tabch étant l'indice de début de ton tableau et
fin_tabch étant l'indice de fin de ton tableau

[amsterdam]

Parce que ce qui est dans le tableau n'y est pas pour être affiché.
Pour l'affichage de mon menu j'ai déjà une boucle qui fonctionne bien.

J'ai aussi une boucle repeat pour la gestion du clavier qui fonctionne avec mes touches #72,#80.
Donc reste le problème du exec.
Par ex mon tabch[1] contient c:\windows\command\edit.com,
donc en faisant exec ('tabch[1],'') ça devrait être bon nan ???

[Alcatîz]

Salut !

Si tu exécutes

Code :

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

Exec('tabch[1]','');

ton programme va essayer de trouver (en vain) un programme tabch[1] pour l'exécuter.

Par contre,

Code :

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

Exec(tabch[1],'');

ne passera la compilation que si ton tableau est bien composé de chaînes.

[M.Dlb]

Quand tu utilises des quotes '...', l'expression à l'intérieur des quotes est interprétée comme une chaîne de caractère. Or ici tu veux une variable pas une chaîne.
Comme l'a dit Alcatîz, ton code va tenter d'exécuter le programme nommé tabch[1] ( il recherchera le programme dans le répertoire courant ). Si tu remplaces par exec(tabch[1],''); ton programme exécutera le programme dont le nom est contenu dans la variable tabch[1].
a+

[amsterdam]

Sachant que tabch[1] contient c:\windows\command\edit.com.(J'ai vérifié)
Que j'ai modifié mon code en exec(tabch[1],'');
Pourquoi ça ne marche pas.

La touche enter est bien prise en compte, j'ai vérifié.

[M.Dlb]

Il faut penser à réduire la taille de la mémoire avec la directive {$M} ( pour plus d'explications, regarde l'aide très très bien faite de TP )...
Si ca marche toujours pas, utilise la variable DosError pour connaître le code d'erreur relatif à la dernière procédure.

a+

[amsterdam]

Bon pour commencer si je lui met {$m $4000,0,0}
le run ne m'affiche plus rien et ensuite il me dit que graph n'est pas initialisée.
Il faut que je réouvre le fichier source pour revenir à la normale.

Pour le doserror, je le déclare comme integer mais ensuite... ?