把字符串中所有数字字符前加一个#字符，例如，输入；A1B23CD45，则输出：A#1B#2#3CD#4#5

vb函数如下:
private function add_a_str(str_in as string, symb as string) as string
add_a_str=""
for i=1 to len(str_in)
if isnumeric(mid(str_in,i,1)) then
add_a_str=add_a_str & sybm & mid(str_in,i,1)
else
add_a_str=add_a_str & mid(str_in,i,1)
end if
next i
end function
说明:
str_in 待处理的字符串
symb 数字前要插入的字符
例子:
print add_a_str(A1B23CD45, "#")
即可显示: A#1B#2#3CD#4#5

首先进行字符的单个截取，但后判断ASCII值，如果是从A-Z则加一个#就可以了。