home *** CD-ROM | disk | FTP | other *** search
/ Freelog 51 / Freelog051.iso / Dossier / Scripts / MyHTPC1.ifs next >
Text File  |  2003-05-18  |  578b  |  20 lines
  1. // GETINFO SCRIPTING
  2. // Remplacement , par _
  3.  
  4. (***************************************************
  5. *  Script permettant de remplacer les , dans le   *
  6. *  champ "Acteurs"   par le  _  puis il faudra    *
  7. *  ΘxΘcuter le script MyHTPC2                     *
  8. *  Script rΘalisΘ par le concepteur de Ant Movie  *
  9. *  Catalog α la demande de C-moi                  *
  10. ***************************************************)
  11.  
  12. program NewScript; 
  13. var 
  14.   s: string; 
  15. begin 
  16.   s := GetField(fieldActors); 
  17.   s := StringReplace(s, ',', '_') ;
  18.   SetField(fieldActors, s);
  19. end.
  20.