奇狐社區論壇 - VBS之型態不符

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- VBS之型態不符 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=4731)

由 dich38 在 2006-03-04 10:38 發表:

VBS之型態不符

請問版主
1執行下列程式碼後，一直出現「型態不符合，OPENNUMBER」
不知要如何修改才可以?
(在五分鐘之週期)
OO:O,LINETHICK0;
HH:H,LINETHICK0;
CC:C,LINETHICK0;
LL:L,LINETHICK0;
OEPNTIME:OPENMINUTES(TIME),LINETHICK0;
OPENNUMBER:=0*c;

<%
useC= FFL.VarData("CC"):
vbOEPNTIME = FFL.VarData("OEPNTIME"): vbOPENNUMBER= FFL.VarData("OPENNUMBER"):
for i = 0 to UBound( useC )
if vbOEPNTIME(i)<=5 and vbOEPNTIME(i)>0 then
OPENNUMBER(i)=1
end if
if vbOEPNTIME(i)<=10 and vbOEPNTIME(i)>5 then
OPENNUMBER(i)=2
end if
if vbOEPNTIME(i)<=15 and vbOEPNTIME(i)>10 then
OPENNUMBER(i)=3
end if
if vbOEPNTIME(i)<=20 and vbOEPNTIME(i)>15 then
OPENNUMBER(i)=4
end if
next
FFL.VarData("OEPNTIME")=vbOEPNTIME: FFL.VarData("OPENNUMBER")=vbOPENNUMBER:
%>
OPENNUMBER_S:OPENNUMBER;

--------------------------------------------------------------------------
2另外如何在vbs ，寫出
if cond then
else if cond then
else if cond then
else if cond then
end if

或者在vbs可以用Select之語法
Select Case Index
Case Index

Case Index

Case Index

End Select

由 cgjj 在 2006-03-06 09:18 發表:

回答問題1

<%
useC= FFL.VarData("CC"):
vbOEPNTIME = FFL.VarData("OEPNTIME"): vbOPENNUMBER= FFL.VarData("OPENNUMBER"):
for i = 0 to UBound( useC )
if vbOEPNTIME(i)<=5 and vbOEPNTIME(i)>0 then
OPENNUMBER(i)=1

問題出在紅色這行
您於 VBS 中未定義 OPENNUMBER 變數
您導入 VBS 後存的變數的是 vbOPENNUMBER 喔
所以紅色這行 OPENNUMBER 要改為 vbOPENNUMBER
後面的 VBS 狀況亦同

由 cgjj 在 2006-03-06 09:25 發表:

回答問題2

原碼:


if 條件1 then

  .........................

elseif 條件2 then

  .........................

end if





select case 條件

case 0

  .........................

case 1

  .........................

end select

VBS 參考資源
http://www.chiefox.com.tw/bbs/showt...s=&threadid=210

由 dich38 在 2006-03-07 21:45 發表:

謝謝版主!

引用:
最初由 cgjj 發表
回答問題1

<%
useC= FFL.VarData("CC"):
vbOEPNTIME = FFL.VarData("OEPNTIME"): vbOPENNUMBER= FFL.VarData("OPENNUMBER"):
for i = 0 to UBound( useC )
if vbOEPNTIME(i)<=5 and vbOEPNTIME(i)>0 then
OPENNUMBER(i)=1

問題出在紅色這行
您於 VBS 中未定義 OPENNUMBER 變數
您導入 VBS 後存的變數的是 vbOPENNUMBER 喔
所以紅色這行 OPENNUMBER 要改為 vbOPENNUMBER
後面的 VBS 狀況亦同

全部時間均為台灣時間, 現在時間為13:10

在這個頁面顯示本主題全部的 4 個文章