最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
VBS 中 Space 函数的应用
时间：2022-07-02 23:25:30 编辑：袖梨 来源：一聚教程网
很多时候我们需要生成 重复的 N 个字符
一般人都会使用这样的方法
<%
Dim i, n, subString
n = 10
For i = 0 TO n
subString = subString & " "
Next
Response.Write(subString)
%>
其实是忽略了 VBS 里一个极有用的函数 Space
下面我用 Space 和 Replace 来实现上例功能
<%
Dim n, subString
n = 10
subString = Space(n)
subString = Replace(subString, " ", " ")
Response.Write(subString)
%>
如果你想更简单点的话 可以自己写个函数 比如
<%
Function SpacePlus(ByRef repeatString, ByRef repeatNumber)
SpacePlus = Replace(Space(repeatNumber), " ", repeatString)
End Function
Response.Write(SpacePlus(" ", 10))
%>
一般人都会使用这样的方法
<%
Dim i, n, subString
n = 10
For i = 0 TO n
subString = subString & " "
Next
Response.Write(subString)
%>
其实是忽略了 VBS 里一个极有用的函数 Space
下面我用 Space 和 Replace 来实现上例功能
<%
Dim n, subString
n = 10
subString = Space(n)
subString = Replace(subString, " ", " ")
Response.Write(subString)
%>
如果你想更简单点的话 可以自己写个函数 比如
<%
Function SpacePlus(ByRef repeatString, ByRef repeatNumber)
SpacePlus = Replace(Space(repeatNumber), " ", repeatString)
End Function
Response.Write(SpacePlus(" ", 10))
%>
相关文章
- 原神2025最新兑换码有哪些 限时前瞻福利领取 11-16
- 百炼英雄2025兑换码大全 最新礼包福利领取合集 11-16
- 寻道大千2025兑换码 最新可用的礼包码合集 11-16
- 蛋仔派对2025兑换码 最新礼包码合集 11-16
- 元气骑士2025兑换码大全 最新可用礼包码合集 11-16
- 明日方舟终末地测试资格查询入口 官方验证方法一览 11-16