富士山下mv下载:如何把文本框中的字符串按行分割出来??(VB,文本框属性是多行)

来源:百度文库 编辑:高校问答 时间:2024/05/04 05:16:20
如何把文本框中的字符串按行分割出来??(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)
注意是两遍,空行为基数时一遍不够