PB中如何判断标点符号

你具体点啊,是判断一段文字里面的标点符号还是程序代码里的标点符号?
如果是问题就当字符处理就可以了,代码里的..这个.好像我头里暂时没答案.

这是我写的一个函数，你自己改改：
//函数的参数为需要检测是否含特殊符号的 string 形的 as_str , 返回值为 string 形，如果存在特殊符号则返回特殊符号，没有，则返回""
long ll_pos,ll_len
int i
ll_len = len(trim(as_str))
if ll_len < 1 then return ""
for i =1 to ll_len
ll_pos = pos(as_str,"~~")
if ll_pos > 0 then
return "~~"
end if
ll_pos = pos(as_str,"!")
if ll_pos > 0 then
return "!"
end if
ll_pos = pos(as_str,"@")
if ll_pos > 0 then
return "@"
end if
ll_pos = pos(as_str,"#")
if ll_pos > 0 then
return "#"
end if
ll_pos = pos(as_str,"$")
if ll_pos > 0 then
return "$"
end if
ll_pos = pos(as_str,"%")
if ll_pos > 0 then
return "%"
end if