Discussion :

[cincap]

Bonjour à toutes et à tous,

Je crée un fichier texte (Titre.txt) afin de vérifier le déroulement de l'extraction d'un fichier audio et j'aimerai bien récupérer le nom du fichier audio dans mon TEdit (Ednom.text).

Contenu du fichier "Titre.txt" :

[youtube] Extracting URL: https://www.youtube.com/watch?v=54hoKbTWon4
[youtube] 54hoKbTWon4: Downloading webpage
[youtube] 54hoKbTWon4: Downloading android player API JSON
[info] 54hoKbTWon4: Downloading 1 format(s): 251
[info] Downloading video thumbnail 45 ...
[info] Writing video thumbnail 45 to: Audio\jm2023.webp
[download] Audio\jm2023.mp3 has already been downloaded
[ExtractAudio] Not converting audio Audio\jm2023.mp3; file is already in target format mp3
[Metadata] Adding metadata to "Audio\jm2023.mp3"
[ThumbnailsConvertor] Converting thumbnail "Audio\jm2023.webp" to png
[EmbedThumbnail] ffmpeg: Adding thumbnail to "Audio\jm2023.mp3"

Voici le code de mon test :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
var
Contents:TStringList;
sl: TStringList;
find:boolean;
i:integer;
 
chaine, s, fini : string;
begin
  Chaine := '[Metadata] Adding metadata to ''Audio\' ;
 
  chemin := chappli +'Audio\';
 
  sl:= TStringList.Create;
 
  find:=false;
 
  Contents:=TStringList.Create;
  try
    Contents.LoadFromFile(chappli + 'Titre.txt');
    i:=0;
    repeat
 
    If (Pos(Chaine, Contents[i]) > 0) then //begin ShowMessage('Chaine ; '+Chaine+ ' trouvée') ;
       find:=true
 
     else
       i:=i+1;
    until ((find) or (i=Contents.Count));
 
    if find then
 
    ednom.text := (RightStr(Contents[i],Length(Contents[i])-24));
 
    s :=ednom.text;
    delete(s,length(s),1);
    ednom.text:=s;
 
    fini := pchar(chemin + ednom.text);
    //ednom.text :=  AnsiReplaceStr(Ednom.text, '''', '');
    sl.Add(fini);
 
  CopyFilesToClipboard(sl);
 
  finally
    Contents.free;
    sl.Free;
  end;

Le fichier "Titre.txt" peut-être + ou - long suivant la vidéo !

Je pense que la balise [Metadata] Adding metadata to "Audio\jm2023.mp3" est la plus appropiée ?

Merci d'avance,

@+,

cincap

[Charly910]

Bonjour Cincap,

Pourquoi tu ne traites pas la dernière ligne du fichier en supprimant les 46 premiers caractères (ou bien en recherchant la position de la double Quote) + Suppression du dernier caractère.

A+
Charly

[Charly910]

Il me semble que dans ta chaine tu confonds la double quote " avec 2 simples quotes de suite ' '

A+
Charly

[cincap]

@ Charly910, merci de ta suggestion, j'ai corrigé le double cote et vérifié la longueur (37).

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
var
Contents:TStringList;
sl: TStringList;
find:boolean;
i:integer;
 
chaine, s, fini : string;
begin
  Chaine := '[Metadata] Adding metadata to "Audio\' ;
 
  chemin := chappli +'Audio\';
 
  sl:= TStringList.Create;
 
  find:=false;
 
  Contents:=TStringList.Create;
  try
    Contents.LoadFromFile(chappli + 'Titre.txt');
    i:=0;
    repeat
 
    If (Pos(Chaine, Contents[i]) > 0) then //begin ShowMessage('Chaine ; '+Chaine+ ' trouvée') ;
       find:=true
 
     else
       i:=i+1;
    until ((find) or (i=Contents.Count));
 
    if find then
 
    ednom.text := (RightStr(Contents[i],Length(Contents[i])-37));   //24
 
    s :=ednom.text;
    delete(s,length(s),1);
    ednom.text:=s;
 
   fini := pchar(chemin + ednom.text);
    //ednom.text :=  AnsiReplaceStr(Ednom.text, '''', '');
    sl.Add(fini);
 
  CopyFilesToClipboard(sl);
 
  finally
    Contents.free;
    sl.Free;
  end;

Je ferme le topic.

Pour ton info "youtube-dl.exe" n'est plus suivi malgré que tu le met à jour il faut utiliser "yt-dlp.exe" qui le remplace avantageusement et qui a les même fonctions de code.

@+,

cincap