在VBS中的每个字符之后添加一个空格

Question

我想要一个输入框，您输入一个字符串，它会为您提供输出，但是每个字符后都有一个空格（偶数个空格）。 示例：

"Hello There." → "H e l l o  T h e r e ."

我在网上尝试过的所有方法都无效（我会得到很多错误）。

Answer 1

您应该添加此功能Space：返回由指定数量的空格组成的字符串。

---

使用@Lankymart的评论，您可以在vbscript中编写类似的内容：

Option Explicit
Dim Title,Input,i,OutPut
Title = "Add a space after every character in VBS" 
Input = InputBox("Hello There.",Title,"Hello There.") 
If input <> "" Then 
    For i = 1 To Len(Input) 
        OutPut = OutPut &  Mid(Input,i,1) & space(1) 
    Next 
End If
MsgBox OutPut,vbInformation,Title
Inputbox "The String " & chr(34)&  Input & chr(34) &" is converted to ",Title,OutPut