还是判断计算机名的问题-『提问交流』-AUTOIT CN

jay38 发表于 2009-11-6 21:36:05

还是判断计算机名的问题

$CP = @ComputerName

Select
Case StringMid($CP,1,1) = "Q" Then ;蜘蛛二
Switch Int(StringMid($CP,2,3))
Case 1
Msgbox(0,"Q","真的是NF520.2")
;Run("E:\NBMSClient\BarClientView.exe-Package 00008") ;NF520.2
case 2 to 17
Msgbox(0,"Q","真的是8K897")
;Run("E:\NBMSClient\BarClientView.exe-Package 00002") ;8k897
Case 18 to 51
Msgbox(0,"Q","真的是NF520.2")
;Run("E:\NBMSClient\BarClientView.exe-Package 00008") ;NF520.2
Case 52 to 70
Msgbox(0,"Q","真的是8K897")
;Run("E:\NBMSClient\BarClientView.exe-Package 00002") ;8k897
Case 71 to 84
Msgbox(0,"Q","真的是FM7.2")
;Run("E:\NBMSClient\BarClientView.exe-Package 00005") ;FM7.2
EndSwitch

Case StringMid($CP,1,1) = "V" Then ;蜘蛛三
Switch Int(StringMid($CP,2,3))
Case 1 to 127
Msgbox(0,"Q","真的是NF520.3")
;Run("E:\NBMSClient\BarClientView.exe-Package 00007") ;NF520.3
EndSwitch

Case StringMid($CP,1,1) = "A" Then ;蜘蛛一
Msgbox(0,"Q","真的是FM7.1")
;Run("E:\NBMSClient\BarClientView.exe-Package 00004") ;FM7.1

EndSelect

--------------------------------------------------------------------------------------------------------
C:\Documents and Settings\Administrator\桌面\io.au3(5,32) : ERROR: syntax error
Case StringMid($CP,1,1) = "Q" Then
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\Administrator\桌面\io.au3(24,32) : ERROR: syntax error
Case StringMid($CP,1,1) = "V" Then
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\Administrator\桌面\io.au3(31,32) : ERROR: syntax error
Case StringMid($CP,1,1) = "A" Then
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\Administrator\桌面\io.au3 - 3 error(s), 0 warning(s)

jay38 发表于 2009-11-6 21:37:30

好像我语法错了昏迷

minterz 发表于 2009-11-9 12:30:20

用if。。。elseif...else..endif
岂不是看的更清楚？

页: [1]

AUTOIT CN's Archiver

还是判断计算机名的问题