检查某个字符串问题？

s77m72 · 发表于 2009-6-20 20:59:23

本帖最后由 s77m72 于 2009-6-21 22:28 编辑

代码如下：

$pcname = @ComputerName
$Mid = StringMid ( $pcname, 1,1 )
StringIsDigit ($mid)
if @error = 1 Then MsgBox(0,"",$mid)
$mid2 = StringMid ( $pcname, 2,1 )
StringIsDigit ($mid2)
if @error = 1 Then MsgBox(0,"",$mid2)

为什么不能检查出数字来的？

s77m72 · 发表于 2009-6-20 23:20:05

有人会吗？

auto · 发表于 2009-6-20 23:36:26

看不懂要搞什么。。
你的计算机名字第一二字符是数字吗？？

lynfr8 · 发表于 2009-6-20 23:43:59

$Mid = StringMid(@ComputerName,1,1)
if StringIsDigit($mid) = 1 Then MsgBox(0,"",$mid)
$mid2 = StringMid(@ComputerName, 2,1 )
if StringIsDigit($mid2) = 1 Then MsgBox(0,"",$mid2)

liongodmien · 发表于 2009-6-21 14:18:27


$pcname = @ComputerName
For $i = 1 To StringLen($pcname)
        $mid = StringMid($pcname, $i,1 )
        if StringIsDigit($mid) Then
                MsgBox(0,"数字",$mid)
        Else
                MsgBox(0,"非数字",$mid)
        EndIf
Next

s77m72 · 发表于 2009-6-21 22:27:47

学习了，谢谢！！！！

hhasee · 发表于 2009-6-23 09:19:49

学习了！

		自动登录	找回密码
密码			加入