Discussion :

[cincap]

D6 et Windows 10 64bits

Bonjour à toutes et à tous,

Avec l'utilisation de "FFMPEG", je sauve des indications dans un fichier texte.

Code pour récupérer l'information : //[ffmpeg] Destination: Audio\El Condor Pasa - Paul Simon & Garfunkel.mp3

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
 
var
UnStringList:TStringList;
 
begin
  //Création du STringList
  UnStringList:=TStringList.Create;
  try
     //Chargement du fichier texte
     UnStringList.LoadFromFile(chappli + 'Titre.txt');    
 
     Ednom.Text:=UnStringList.strings[UnStringList.Count-2];
 
  finally
 
     //Destruction du StringList
     UnStringList.Free;
  end;

J'obtiens bien la ligne complète dans mon Tedit mais j'aimerai obtenir que tout ce qui est à droite de "Audio\" soit "El Condor Pasa - Paul Simon & Garfunkel.mp3".

Ce qui est à droite varie pour chaque fichier .mp3 !

J'ai testé ceci :

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
23
24
25
26
27
28
 
function GetEveryThingAfter(AfterWhat: String; var TextFile: TStringList): String;
var
I: Integer;
Tmp: Integer;
S: String;
begin
S := '';
Tmp := Pos(AfterWhat, TextFile.Text) + Length(AfterWhat);
Result := Copy(S, Tmp, Length(TextFile.Text));
end;
 
var
Contents: TStringList;
S: String;
begin
Contents := TStringList.Create; // Tu crées ta liste
try
if FileExists(chappli + 'Titre.txt') then // Si ton fichier existe alors ...
Contents.LoadFromFile(chappli + 'Titre.txt'); // Tu ouvres la liste
S := GetEveryThingAfter('[Audio\]', Contents); // Tu isoles tout après
Memo1.Lines.Clear; // On vide avant
Memo1.Lines.Text := S; // Tu obtiens le tout sous forme de chaîne chariot
Ednom.Text := S;
finally
Contents.Free; // Tu libères ta liste
end;
end;

Je n'obtiens pas le résultat escompté.

Merci d'une aide éventuelle.

@+,

cincap

[cincap]

Avec mes tests, ceci fonctionne sans fonction :

Code :

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

1
2
 
ednom.text := (RightStr(ednom.text,Length(ednom.text)-28));

En effet tout ce qui se trouve à gauche du titre sera toujours avec le même nombre de caractères contrairement au titre du morceau soit "28".

Reste plus qu'a détecter la fin de l'exécution de mon fichier .bat afin de pouvoir lire le fichier mp3 avec le Médiaplayer de Windows.

@+,

cincap

[SergioMaster]

Bonjour
Pourquoi pas un StringReplace ?

Code :

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

 Memo1.Lines.Text:=StringReplace(Contents.Text,'Audio\','',[rfReplaceAll]);

pas besoin de fonction

[cincap]

@ SergioMaster, merci de ta réponse, en effet c'est aussi facile avec ta suggestion en utilisant le Tmemo.

Dans le projet de test, j'ai éliminé le Tmemo pour utiliser que le Tedit qui me donne aussi l'information du titre de mon fichier .mp3

Il faut savoir que j'utilise un fichier .bat pour extraire le .mp3.

Dans ce fichier .bat, j'ai mis une instruction qui crée un fichier de fin et qui se nomme "Fin.txt" dans le même répertoire que l'application peut importe le contenu.

Pour ne pas provoquer d'exception, je dois connaitre le moment de création concernant ce fichier "Fin.txt" pour rendre le Tbutton qui se nomme "Play" enabled afin de l'ouvrir avec le médiaplayer par défaut.

Quelle aventure mais je m'occupe l'esprit qui m'éloigne de mes problèmes de santé.

Je dois peut-être m'orienter vers une boucle mais mes tests ne sont pas bon.

@+,

cincap

[SergioMaster]

J'avoue n'avoir rien compris mais pas grave

autre truc

Code :

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

1
2
 
   Ednom.Text:=Copy(UnStringList.strings[UnStringList.Count-2],Pos('Audio\')+1+Length('Audio\'));

ou plus propre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
var
UnStringList:TStringList;
 
function titre(TitreDansListe,Prefixe : String) : String;
begin
  result:=Copy(TitredansListe,Pos(Prefixe)+1+Length(prefixe));
end;
 
begin
  ... 
  edtnom.text:=titre(UnStringList.strings[UnStringList.Count-2],'Audio\');
end;

[cincap]

@ SergioMaster, merci pour tes suggestions.

Dans la dernière suggestion :

Code :

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

1
2
 
Ednom.Text:=Copy(UnStringList.strings[UnStringList.Count-2],Pos('Audio\')+1+Length('Audio\'));

Erreur "Pas assez de paramètres originaux".

J'avoue n'avoir rien compris mais pas grave

En fait pour le média Player il lui faut un nom de fichier "monfichier.mp3" qui s'affichera dans le Tedit, c'est ok

Ce nom est extrait du fichier .bat qui est lancé mais qui se crée par celui-ci qu'à la fin de l'exécution de ce fichier soit il se nommera "Fin.txt" et lira le fichier "Titre.txt" pour extraire le nom.

Donc si je le lance le média Player par défaut avant la fin du traitement de mon fichier .bat j'aurai une exception car ce nom n'existe pas encore dans le Tedit.

Et seul l'existence de ce fichier "Fin.txt" m'indique que le média Player peut être appelé car le processus est terminé et le nom du fichier est dans le Tedit.

Je dois donc en permanence vérifier le dossier de l'application si le fichier "Fin.txt" existe pour le lire avec le média Player par défaut.

@+,

cincap