home *** CD-ROM | disk | FTP | other *** search
/ Encyklopedia Omnia / Planeta.iso / data / 0_wclub.dir / 00012_Script_cambiaVirgolette < prev    next >
Text File  |  2000-11-16  |  229b  |  11 lines
  1. on cambiaVirgolette pString
  2.   set retval = pString
  3.   
  4.   set ofs = offset(QUOTE, retval)
  5.   repeat while ofs <> 0
  6.     put "'" into char ofs of retval
  7.     set ofs = offset(QUOTE, retval)
  8.   end repeat
  9.   
  10.   return retval
  11. end