home *** CD-ROM | disk | FTP | other *** search
/ Freelog 51 / Freelog051.iso / Dossier / Scripts / MyHTPC2.ifs < prev   
Text File  |  2003-05-18  |  636b  |  21 lines
  1. // GETINFO SCRIPTING
  2. // Remplacement _ par ","
  3.  
  4. (***************************************************
  5. *  Script permettant de remplacer les _ dans le   *
  6. *  champ "Acteurs"   par la suite de signe ","    *
  7. *  ce qui permet la crΘation d'un fichier .my     *
  8. *  avec la gestion des acteurs faite correctement *
  9. *  Script rΘalisΘ par le concepteur de Ant Movie  *
  10. *  Catalog α la demande de C-moi                  *
  11. ***************************************************)
  12.  
  13. program NewScript; 
  14. var 
  15.   s: string; 
  16. begin 
  17.   s := GetField(fieldActors); 
  18.   s := StringReplace(s, '_', '", "') ;
  19.   SetField(fieldActors, s);
  20. end.
  21.