Question

vb文本处理: 按符号分割 按行排列

请高手指教！





Answer 1

VB中的split函数，可以按指定的符号将字符串分解为字符串数组，返回分割后的数组。

用法: split( 字符串，分割符 )

例子：

dim a() as String
dim s as String

s = "曲折的荷塘上面,弥望的是叶子,叶子出水"
a = split( s, "," )

msgbox( a(0) )
msgbox( a(1) )

至于逗号和句号混杂的问题，可以用replace函数先进行一遍替换，也可以多次使用split

追问

这么改一下就对了，就是符号没了。

 

谢谢两位的解答！

Answer 2

把TExt2的MultiLine 设置为 True
Private Sub Command1_Click()
Dim s() As String
s = Split(Text1.Text, ",")
For Each x In s
Text2.Text = Text2.Text & x & vbCrLf
Next
End Sub

追问

没有效果。