素昧平生的拼音:如何把文本框中的字符串按行分割出来??(VB,文本框属性是多行)

来源:百度文库 编辑:高考问答 时间:2024/05/05 02:46:09
如何把文本框中的字符串按行分割出来??(VB,文本框属性是多行)

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

这个好办,分割文本及删除空行代码如下:
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

str= Split(Text1.text, vbCrLf)

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