Question

如何把文本框中的字符串按行分割出来？？（VB，文本框属性是多行）

如何把文本框中的字符串按行分割出来？？（VB，文本框属性是多行）

还有，我想删除文本框中的空行该怎么写？

Answer 1

这个好办，分割文本及删除空行代码如下：
Dim str1, i
str1 = Split(Text1, vbCrLf):Text1 = ""
For i = 0 To UBound(str1)
If Trim(str1(i)) <> "" Then Text1 = Text1 & str1(i) & vbCrLf
Next

Answer 2

str= Split(Text1.text, vbCrLf)

text1.text=replace(text1.text,vbcrlf & vbcrlf,vbcrlf)
text1.text=replace(text1.text,vbcrlf & vbcrlf,vbcrlf)
注意是两遍，空行为基数时一遍不够