1樓：匿名使用者
public function deletechars(text as string) as string)
dim s as string : s=`~!@#$%^&*()_-+=[\|;:' & chr(34) & ",<.>?/"
dim result as string :result=text
dim i as long
for i =1 to len(s)
result=replace(result,mid(s,i,1),"")
next
deletechars= result
end function
a="`~!@#$%^&*()_-+=[\|;:'",<.>?/"
for i=1 to len(a)
b=asc(mid(a,i,1))
if b>32 and b<48 then else '過濾ascii 33-47的字元
if b>57 and b<65 then else '過濾ascii 58-64的字元
c=c & mid(a,i,1)
end if
end if
2樓：徐哲羽
不懂！！！！！！！！！！！！
vb特殊字元過濾
3樓：匿名使用者
原字串 = replace(原字串,"特殊字元1")原字串 = replace(原字串,"特殊字元2")……原字串 = replace(原字串,"特殊字元n")
4樓：匿名使用者
public function deletechars(text as string) as string) dim s as string : s=`~!@#$%^&*()_-+=[\|;:
' & chr(34) & ",<.>?/" dim result as string :
result=text dim i as long for i =1 to len(s) result=replace(result,mid(s,i,1),"") next deletechars= resultend function
vb中一些特殊字元都怎麼表示
5樓：匿名使用者
先查ascii表
然後chr（ascnumber）
就是你要的字元
人們常用一些動物的名稱來比喻某種特殊的人，如 「變色龍」比喻
1.替罪羊 2.笑面虎 3.應聲蟲 4.井底蛙 5.千里馬 替罪羊 笑面虎 跟屁蟲 井底蛙 千里馬 替罪羊，笑面虎，應聲蟲，孤寒？1替罪羊2 笑面虎 呵呵 目前只想到這些 用紙老虎比喻外強中乾的人 人們常用動物的名稱來比喻某種特定的人,請照樣子填空。謝謝大家！2 寄生蟲 3 白眼狼 4 馬大哈 5 ...
主角有特殊能力的動漫,介紹一些主角有異能或是所有人都有異能的動漫
神的記事本 推理，女主有超能力之類的特點another 女主有一隻玩偶之眼，屬於恐怖專的動漫家庭教師 熱血屬，但人物很美型，20集之後所有人都有一種能力黑執事 男主的眼睛有著契約 屍鬼 死後之人的變異 黑之契約者 男主後天得到的能力 地獄少女 地獄的牽線人 死亡筆記 藉助筆記本能夠殺死討厭的人 空之...
交往有月了，感覺都不錯，因為一些特殊的原因，想相互見一下家長，大家感覺合適嗎
十個月了也差不多了。你還是先和另一半溝通一下哈，看看對方的想法是什麼。十個月 時間也不算短了 只是見家長一下 合適 有人說，結婚之前一起旅遊一次，就知道彼此是否適合了 當然合適啊，對方父母應該也能儘快見到你，10個月的試婚差不多啦 當然，如果以結婚為目的就得必須見家長，見家長是你避免不了的過程！我們...