vb text1.text 内容 如何每一行文字后添加个空行

一个简单的方法

原理

换行是一个vbcrlf标记

而加入一个空行即增加一个vbcrlf标记即可

那么 可以使用Replace函数替换vbcrlf 为两个vbcrlf即可,己测试 可以通过

代码:

Private Sub Command1_Click()

Text1.Text = Replace(Text1.Text, vbCrLf, vbCrLf &vbCrLf)

End Sub

Private Sub Command1_Click()

'把txt载入到文本框或者变量中

Text1.Text = Replace(Text1.Text, vbCrLf, vbCrLf &vbCrLf)

'输出文本框或者变量即可

End Sub

a = "123456"t = ""For i = 1 To Len(a) / 2 t = t &Mid(a, 2 * i - 1, 2) &Chr(32)Next Print t

---