Discussion :

[amine6441]

Je travaille sur un programme qui cherche tous les fichiers text. Le problème c'est que ce programme m'affiche le nom du fichier text avec .txt

Voici le programme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure liste;
var fichier:searchrec;
    t:string;
begin
     clrscr;
 
     findfirst('d:\tp\*.txt',archive,fichier);
     while doserror=0do
           begin
                writeln(fichier.name);
                findnext(fichier);
           end;
     readln;
     end;

que dois je faire pour ne pas afficher les nom sans .txt et merci
et merci

[M.Dlb]

Dans fichier.name, il faut recherches la dernière occurrence du caractère '.' et supprimer à partir de ce caractère jusqu'à la fin. Regarde les fonctions pos, delete et copy.

[amine6441]

Ca veut dire que je dois créer une fonction qui cherche la position de .
puis une autre qui copie juste le nom sans le .txt.
Et pour chercher le point, je dois travailler avec son code ascii.
Ok je vais essayer
merci MR
merci

[amine6441]

Code :

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

1
2
3
4
 
delete(fichier.name,l-4,4);
write(fichier.name);;
end.

ca marche probleme resolu
merci MR le moderateur

[amine6441]

Et si je veux que les noms de texts soient en ordre, dois-je les décaler dans un tableau ?

[M.Dlb]

Oué, et ensuite appliquer un algo de tri