Question

vb 如何在每个字符中间加空格

比如 我这里有几个字
撒擦肩哦是大声的我饿反对的成绩和课间操
如何变成
撒 擦 肩 哦 是 大 声 的 我 饿 反 对 的 成 绩 和 课 间 操
最后一个后面没空格
我这里有几万个字需要这样加空格
希望高手帮我搞顶 ·而且速度不要太慢·有追加分的 ·谢谢
不好意思·第1个字符前面也要空格
顺便问一下·如何过滤掉换行
我想先过滤换行 在 弄空格

Answer 1

'在一楼的裤亮橘基础上改进的.否则最后也会出键帆现空格.
Private Sub Form_Load()
Dim r As String, i As Integer, s As String
r = "胡团撒擦肩哦是大声的我饿反对的成绩和课间操"
'用r=Replace(r,vbnewline,"")过滤换行
s=" " '前面也加空格
For i = 1 To Len(r)
s = s + Mid(r, i, 1) +iif(i=len(r),"", " ")
'最后不要空格
Next i
Text1.Text = s
End Sub