asp字符串分解如何把“下列哪个国家是现代足球运动的发源地?（A）”这个字符串分解为：“下列哪个国家是现代足球运动的发源地?（）”和A就是说把问题和答案分解开来

Question

asp 字符串分解
如何把“下列哪个国家是现代足球运动的发源地?（A）”这个字符串分解为：
“下列哪个国家是现代足球运动的发源地?（）” 和 A
就是说把问题和答案分解开来

Answer 1

用instr查找左括号"("的位置,用mid提取下一个位置的字符,用replace将答案替换为空格.
str="下列哪个国家是现代足球运动的发源地?（A）"
pos=instr(str,"（")
answer=mid(str,pos+1,1)
str=replace(str,answer," ")