Question

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

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

Answer 1

看看我这个行不行？

Private Sub Command1_Click()
'有几万个字，最好这样做
Dim s As String
Dim x As String
Dim i, ask As Integer
Open "d:\1.txt" For Input As #1 '转换前的源文件，改成你自己文件的路径
Open "d:\2.txt" For Output As #2 '转换后保存在2.txt
While Not EOF(1)
Line Input #1, s '按行读取源文件
Print s
's=replace(s,"，","")这句可选，如果你的文件没有任何杂项(标点，空格等)，这句可省略，如果有杂项，要用replace替换他们再做其他操作
s = Trim(s) '去掉两端的空格
For i = 1 To Len(s)
x = x & " " & Mid(s, i, 1) '挨个截取字符，并在其前面添加空格
Next
Wend
Print #2, x '写入到2.txt
Close #2
Close #1
ask = MsgBox("转换完成,现在打开吗?", vbInformation + vbYesNo, "完成") '点击"是"，打开文件
If ask = vbYes Then Shell "notepad.exe d:\2.txt", vbNormalFocus
End Sub

最终文件是以单行显示的，若想要多行显示，请用下面的代码

Private Sub Command1_Click()
'有几万个字，最好这样做
Dim s As String
Dim x As String
Dim i, ask As Integer
Open "d:\1.txt" For Input As #1 '转换前的源文件，改成你自己文件的路径
Open "d:\2.txt" For Output As #2 '转换后保存在2.txt
While Not EOF(1)
x=""
Line Input #1, s '按行读取源文件
Print s
's=replace(s,"，","")这句可选，如果你的文件没有任何杂项(标点，空格等)，这句可省略，如果有杂项，要用replace替换他们再做其他操作
s = Trim(s) '去掉两端的空格
For i = 1 To Len(s)
x = x & " " & Mid(s, i, 1) '挨个截取字符，并在其前面添加空格
Next
Print #2, x '写入到2.txt
Wend
Close #2
Close #1
ask = MsgBox("转换完成,现在打开吗?", vbInformation + vbYesNo, "完成") '点击"是"，打开文件
If ask = vbYes Then Shell "notepad.exe d:\2.txt", vbNormalFocus
End Sub

Answer 2

dim r as string,i as integer,s as string
r="撒擦肩哦是大声的我饿反对的成绩和课间操"
s=""
for i=1 to len(r)
s=s+mid(r,i,1)+" "
next i
print s
这是最简单的办法。

Answer 3

Public Function AddSpace(ByVal strInput As String) As String
Dim i As Integer
Dim strNew As String
Dim charTemp() As Char = strInput.ToCharArray() '分解字符串到Char数组
For i = 0 To charTemp.GetUpperBound(0)
strNew &= charTemp(i) '连接数组中每个元素（字符）
If i <> charTemp.GetUpperBound(0) Then strNew &= " " '如果没到达末尾则添加一个空格
Next
Return strNew
End Function

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'此过程演示如何调用函数过程
TextBox2.Text = AddSpace(TextBox1.Text)
End Sub

Answer 4

答案补充：按照你修改之后的要求写的，请楼主过目。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
建一个COmmand1,Text1。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Option Base 1
Dim s As String
Private Sub Command1_Click()
Dim i As Long, l As Long
l = Len(s)
ReDim a(l) As String
For i = 1 To l
a(i) = Mid(s, i, 1)
Next
s = Join(a)
Text1.Text = " " & s
End Sub

Private Sub Form_Load()
Text1.Text = "撒擦肩哦是大声的我饿反对的成绩和课间操"
s = Replace(Text1.Text, vbCrLf, "")
End Sub

Answer 5

dim s,t as string,i as integer
t="撒擦肩哦是大声的我饿反对的成绩和课间操"
s=""
for i=1 to len(t)
s=s & " " & mid(t,i,1)
next i
print s

换行的能不能给个具体的例子