% Functioncutbadchar(str) badstr=不|文|明|字|符|列|表|格|式此处填写不文明的词语，用|分开 badword=split(badstr,|) Fori=0toUbound(badword) Ifinstr(str,badword(i))0then str=Replace(str,badword(i),***) EndIf Next cutbadchar=str EndFunction %