[RESOLU] Incrémentation texte

Incrémentation texte [RESOLU] - Divers - Programmation

Marsh Posté le 20-11-2011 à 11:39:08    

Je poste dans la partie programmation car je pense que c'est là que y'a le plus gens susceptible de me répondre ^^
 
Je voudrais changer une partie seulement d'une ligne texte destiné à du DOS en incrémentant une valeur à chaque ligne.
Ex:
"d:\mp4box.exe" -add "F:\video\stream\a00.aac" -add "F:\video\stream\v00.h264:fps=25.000" -new "F:\video\stream\ok00.mp4"
Et je voudrais que mes autres lignes augmente les valeurs 00 (donc pour a00 v00 et ok00) de +1 à chaque fois, donc je voudrais une 2ème ligne du genre:
"d:\mp4box.exe" -add "F:\video\stream\a01.aac" -add "F:\video\stream\v01.h264:fps=25.000" -new "F:\video\stream\ok01.mp4"
 
Comment faire?
J'en ai une bonne cinquantaine, avec donc 3 occurrences par lignes. Je nai pas la motive de faire tout ça à la main...
Une solution?
Merci de votre aide!


Message édité par drainlife le 20-11-2011 à 12:18:28

---------------
Placez votre main sur un poêle une minute et ça vous semble durer une heure. Asseyez vous auprès d'une jolie fille une heure et ça vous semble durer une minute. C'est ça la relativité.
Reply

Marsh Posté le 20-11-2011 à 11:39:08   

Reply

Marsh Posté le 20-11-2011 à 11:57:36    

J'ai fait un petit éxé qui va peut-être bien, mais j'ai besoin de savoir combien tu en as au max ?

Reply

Marsh Posté le 20-11-2011 à 12:15:54    

Bon alors, je le fixe à 50 tu fera le reste à ma place.... Dans ma signature une adresse, dans bin tu a l'exé et voici la source :
Avec Ada, ma foi...

Code :
  1. with Text_Io;
  2. use Text_Io;
  3. with Interfaces.C;
  4. use Interfaces;
  5.  
  6. procedure Main is
  7.  
  8.  
  9.   function System(Cmd : in C.Char_Array) return C.Int;
  10.   pragma Import (C, System, "system" );
  11.  
  12.   Errno : C.Int;
  13.   Cmd : access String;
  14. begin
  15.   for I in 1..50 loop
  16.      
  17.      if I < 10 then
  18.      Cmd := new String ' ("mp4box.exe -add F:\video\stream\a0" & Integer'Image(I)(2..2) & ".aac -add F:\video\stream\v0" & Integer'Image(I)(2..2) & ".h264:fps=25.000 -new F:\video\stream\ok0" & Integer'Image(I)(2..2) & ".mp4" );
  19.      else
  20.      Cmd := new String ' ("mp4box.exe -add F:\video\stream\a" & Integer'Image(I)(2..3) & ".aac -add F:\video\stream\v" & Integer'Image(I)(2..3) & ".h264:fps=25.000 -new F:\video\stream\ok" & Integer'Image(I)(2..3) & ".mp4" );
  21.      end if;
  22.     
  23.     
  24.      Errno := System(C.To_C(Cmd.all));
  25.      exit when C."/="(Errno, 0);
  26.   end loop;
  27. end Main;


Message édité par Profil supprimé le 20-11-2011 à 12:16:23
Reply

Marsh Posté le 20-11-2011 à 12:17:20    

J'ai trouver la solution depuis, j'ai découper en morceau ma ligne, puis incrémenter avec excel, 10s de manip au final ^^
Merci quand même.


---------------
Placez votre main sur un poêle une minute et ça vous semble durer une heure. Asseyez vous auprès d'une jolie fille une heure et ça vous semble durer une minute. C'est ça la relativité.
Reply

Marsh Posté le 20-11-2011 à 12:18:49    

Excel supperior !  :heink:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed