奇狐社區論壇 - [問題] VBS內Call Sub出現問題

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- [問題] VBS內Call Sub出現問題 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=18827)

由 bigsun937 在 2014-09-18 18:19 發表:

[問題] VBS內Call Sub出現問題

不好意思，請教VBS內Call Sub出現問題，調適通過但是按下確認後出現問題，還請各位先進指點，萬分感恩!

原始程式如下：
A:=high-low;

<%
Sub testmsg()
MsgBox ("test")
End Sub
%>
B:=high-low;

<%
Call testmsg
%>
A

錯誤訊息如下：
訊息一：第一航腳本錯誤，說明：類型不符：'testmsg'
訊息二：執行腳本失敗。返回碼=80004005

由 cgjj 在 2014-09-18 18:30 發表:

回覆: [問題] VBS內Call Sub出現問題

引用:
最初由 bigsun937 發表
不好意思，請教VBS內Call Sub出現問題，調適通過但是按下確認後出現問題，還請各位先進指點，萬分感恩!

原始程式如下：
A:=high-low;

<%
Sub testmsg()
MsgBox ("test")
End Sub
%>
B:=high-low;

<%
Call testmsg
%>
A

錯誤訊息如下：
訊息一：第一航腳本錯誤，說明：類型不符：'testmsg'
訊息二：執行腳本失敗。返回碼=80004005

要在同一 <% %> 區塊內, 像這樣

<%
Sub testmsg()
MsgBox ("test")
End Sub
Call testmsg
%>

由 bigsun937 在 2014-09-18 18:36 發表:

請問一下，可以分開嗎? 公式運算過程中符合條件呼叫不同的Sub/Function，或者有其他解決方法，感恩您的回答

由 cgjj 在 2014-09-18 23:12 發表:

引用:
最初由 bigsun937 發表
請問一下，可以分開嗎? 公式運算過程中符合條件呼叫不同的Sub/Function，或者有其他解決方法，感恩您的回答:)

一個公式內，可以有好幾組 <% %> 這種區塊
每一組都是各自獨立跑的 VBScript ，彼此不會互相影響

公式運算過程中依符合條件呼叫不同的VBScript 之 Sub/Function
您可以在 VBScript 中利用 if... then .... 就可處理
並不需要分開為兩個 <% %> 區塊
在一個 <% %> 區塊中就可處理

撰寫結構大致如下:

原碼:CC:C;
NowSel:=2;
<%
NowSel = FFL.VarData("NowSel")
Sub Sub1()
 '..............
End Sub
Sub Sub2()
 '..............
End Sub

if NowSel=1 then
  Call Sub1
elseif NowSel=2 then
  Call Sub2
end if
%>

由 bigsun937 在 2014-09-19 00:13 發表:

嗯! 理解!

目前的兩塊VBS<%%>之間內容程式無法共用，若有共用的程式，需要重複撰寫在不同VBS程式區塊中。
呵呵~~維護起來要下一些功夫~~

再次感恩回覆問題的諸位先進大德，萬分感恩!

全部時間均為台灣時間, 現在時間為04:52

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