--替换字符函数，BY飞浪--sourceStr-- 源字符， str--要替换掉的字符，newString--新字符
fn fl_replaceString sourceStr str newString =
(    --查看要替换掉的字符是否是空字符，如果不是就继续
     strlength = str.count
     if strlength != 0 then
     (    --在源字符里面寻找要替换的字符并获得其位置
         if (idx = findString sourceStr str) != undefined then
         (    --用给的新字符替换掉指定字符并赋给源字符串
             sourceStr = replace sourceStr idx strlength newString
         )
     )
     sourceStr --返回源字符
)

更详细内容请查看:  http://www.cgplusplus.com/bbs/dispbbs.asp?boardid=2&Id=115