28,407
社区成员
发帖
与我相关
我的任务
分享各位大侠，请问各位有没有办法判断一个字符串全为某个数啊，比如全9，不要用for循环语句哈，这样太麻烦
各位大侠，请问各位有没有办法判断一个字符串全为某个数啊，比如全9，不要用for循环语句哈，这样太麻烦
...全文
请发表友善的回复…
发表回复
qhdsnow 2003-12-30
- 打赏
- 举报
嗯，是很好
avonqin 2003-12-30
- 打赏
- 举报
Equn(熠群) 的方法很好
avonqin 2003-12-30
- 打赏
- 举报
<%
strContent="1199"
Set objRegExp = New RegExp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "[^9]"
if objRegExp.Test(strContent) then
Response.Write "字符串包含非法数字"
end if
Set objRegExp = nothing
%>
strContent="1199"
Set objRegExp = New RegExp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "[^9]"
if objRegExp.Test(strContent) then
Response.Write "字符串包含非法数字"
end if
Set objRegExp = nothing
%>
whyy0 2003-12-30
- 打赏
- 举报
用正则表达式,直接判断因该是/*9/吧,等我查查
yangzixp 2003-12-30
- 打赏
- 举报
呵呵， 用for最简单啊。何烦之有
Equn 2003-12-30
- 打赏
- 举报
if len(replace(字符串,"9",""))=0 then
response.write "全部都是9"
end if
response.write "全部都是9"
end if
wshzhi 2003-12-30
- 打赏
- 举报
用do while .....loop吧
tianjy 2003-12-30
- 打赏
- 举报
只会写for循环的，既然不需要那就没有办法了
帮你顶一下
帮你顶一下
超级大笨狼 2003-12-30
- 打赏
- 举报
a="99999"
b="9"
if a=string(len(a),b) then msgbox "全他妈是" & b & "！"
b="9"
if a=string(len(a),b) then msgbox "全他妈是" & b & "！"
超级大笨狼 2003-12-30
- 打赏
- 举报
Visual Basic Scripting Edition
String 函数
请参阅
Space 函数
要求
版本 1
返回具有指定长度的、重复字符组成的字符串。
String(number, character)
参数
number
返回字符串的长度。如果 number 参数包含 Null，则返回 Null。
Character
指定字符或字符串表达式的字符代码，其中字符串表达式的第一个字符用于组成返回的字符串。如果 character 参数包含 Null，则返回 Null。
说明
如果指定的 character 值大于 255，则 String 使用下列公式将该数转换成有效的字符代码：
character Mod 256
下面的示例利用 String 函数返回指定长度的由重复字符组成的字符串：
Dim MyString
MyString = String(5, "*") ' 返回"*****"。
MyString = String(5, 42) ' 返回"*****"。
MyString = String(10, "ABC") ' 返回"AAAAAAAAAA"。
要求
版本 1
请参阅
Space 函数
--------------------------------------------------------------------------------
© 2001 Microsoft Corporation. 保留所有权利。
String 函数
请参阅
Space 函数
要求
版本 1
返回具有指定长度的、重复字符组成的字符串。
String(number, character)
参数
number
返回字符串的长度。如果 number 参数包含 Null，则返回 Null。
Character
指定字符或字符串表达式的字符代码，其中字符串表达式的第一个字符用于组成返回的字符串。如果 character 参数包含 Null，则返回 Null。
说明
如果指定的 character 值大于 255，则 String 使用下列公式将该数转换成有效的字符代码：
character Mod 256
下面的示例利用 String 函数返回指定长度的由重复字符组成的字符串：
Dim MyString
MyString = String(5, "*") ' 返回"*****"。
MyString = String(5, 42) ' 返回"*****"。
MyString = String(10, "ABC") ' 返回"AAAAAAAAAA"。
要求
版本 1
请参阅
Space 函数
--------------------------------------------------------------------------------
© 2001 Microsoft Corporation. 保留所有权利。
