Question

vb将text1里面的内容变成一行一行的输出到text2里面

vb将text1里面的内容变成一行一行的输出到text2里面

</div>1245789</div>1234567899999</div>123444444444换成

1245789
1234567899999
123444444444

检测到</div>这个就换行，一个</div>换一行、

Answer 1

text2.text = split(text1.text, "</div>", -1)

追问

错误13类型不匹配

追答

Private Sub Command1_Click()
Dim spl, i As Integer
Text1.Text = "12457891234567899999123444444444"
Text2.Text = ""
spl = Split(Text1.Text, "", -1)
For i = LBound(spl) To UBound(spl)
If spl(i) vbNullString Then
Text2.Text = Text2.Text & CStr(spl(i)) & vbCrLf
End If
Next i
End Sub
如果看到的是一行排列，那么把Text2的属性 MultiLine 设为 True