在不使用VBScript创建列的情况下为每个字符添加空格

我正在尝试制作一个脚本，它只为字符添加空格，而不使用字符创建列。这是我尝试的代码：

<%

a=Split("Example1, Example2, Example3",",")
for each x in a
    response.write(x & "<br />")
next

%>

问题是我有一个大文本，它只会创建以下内容（这是正常的输出）：

• “示例1”
• “示例2”
• “例3”

我想让它写的是： “E x a m p l E 1 E x a m p l E 2 E x a m p l E 3”

---

我对这里的代码还不熟悉，所以我没有任何想法要做。非常感谢您的帮助。

正如Lankymart在评论中提到的，您可以循环遍历字符串的每个字符并添加空格。下面是一个简单的函数：

Function SpaceText(p_sText)
    Dim iCounter
    Dim sSpacedText
    
    sSpacedText = ""
    For iCounter = 1 To Len(p_sText)
        sSpacedText = sSpacedText & Mid(p_sText, iCounter, 1)
        If iCounter < Len(p_sText) Then sSpacedText = sSpacedText & " "
    Next

    SpaceText = sSpacedText

End Function

函数空格文本（p_sText）
暗色计数器
暗空间文本
sSpacedText=“”
对于iCounter=1到Len（p_sText）
sSpacedText=sSpacedText&Mid（p_sText，i计数器，1）
如果i计数器

您可以在现有循环中使用此函数：

response.write(SpaceText(x) & "<br />")

response.write（空格文本（x）和“
”）

---

请注意，它不会在最后一个字母后添加额外的空格，因此在连接数组的值时需要将其考虑在内。

正如注释中提到的Lankymart，您可以循环遍历字符串的每个字符并添加空格。下面是一个简单的函数：

Function SpaceText(p_sText)
    Dim iCounter
    Dim sSpacedText
    
    sSpacedText = ""
    For iCounter = 1 To Len(p_sText)
        sSpacedText = sSpacedText & Mid(p_sText, iCounter, 1)
        If iCounter < Len(p_sText) Then sSpacedText = sSpacedText & " "
    Next

    SpaceText = sSpacedText

End Function

函数空格文本（p_sText）
暗色计数器
暗空间文本
sSpacedText=“”
对于iCounter=1到Len（p_sText）
sSpacedText=sSpacedText&Mid（p_sText，i计数器，1）
如果i计数器

您可以在现有循环中使用此函数：

response.write(SpaceText(x) & "<br />")

response.write（空格文本（x）和“
”）

---

请注意，它不会在最后一个字母后添加额外的空格，因此在连接数组的值时需要将其考虑在内。

您需要另一个循环一次遍历每个字符串一个字符并输入一个空格。您需要另一个循环一次遍历每个字符串一个字符并输入一个空格。