mystring=replace(mystring,chr(39),"") '替換單引號
mystring=replace(mystring,chr(34),"") '替換雙引號
mystring=replace(mystring,"<","") '替換<
mystring=replace(mystring,">","") '替換>
mystring=replace(mystring,chr(13),"") '替換回車符
mystring=replace(mystring,chr(32),"") '替換空格符
mystring=replace(mystring,chr(9),"") '替換tab符