Question

vb文本处理:按半角逗号(或半角分号、空格、全角逗号、全角分号)分割改成按行排列

vb窗体上有text1和text2两个文本框、一个按钮command1。在text1中输入以半角逗号(或半角分号、空格、全角逗号、全角分号)分割的一段文本内容，点击command1，在text2中输出分行排列的文本内容。注意，从半角逗号(或半角分号、空格、全角逗号、全角分号)处分行，并把半角逗号(或半角分号、空格、全角逗号、全角分号)去掉。文本中的其他标点符号不影响以半角逗号(或半角分号、空格、全角逗号、全角分号)分行。
可参考类似问题的解决方法：http://zhidao.baidu.com/question/317075906.html

Answer 1

private sub command1_click()
text2.text=replace(text1.text,",",vbcrlf)
end sub

追问

还有分号、空格、全角逗号、全角分号呢

追答

把其中的双引号内的半角逗号改成相应的分号、空格、全角逗号、全角分号即可。

追问

把程序设计成自己判断，不能改。

追答

private sub command1_click()
dim R as string
R=replace(text1.text,",",vbcrlf)
R=replace(R,"，",vbcrlf)
R=replace(R,";",vbcrlf)
R=replace(R,"；",vbcrlf)
R=replace(R," ",vbcrlf)
text2.text=R
end sub