関数に引数を渡すには？ (ID:124965)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 >魔界の仮面弁士さん ご丁寧なご回答、本当にありがとうございます。 確認事項を試してみましたので、以下に結果を報告致します。 大変長くなってしまいましたが、ご確認下さい。 >1. 提示されたコードの場合、エラーが発生しているのは、 > 『Call TestSub(strSvrNum)』の行なのでしょうか。それとも、 > 別の行なのでしょうか? ★Callの行です。エラー表示の際の行番号（"test.vbs(x,y)"のxの値）から判断致しました。 >2. 掲示板に提示していない、他の部分のコードに原因が > あったりはしませんか? 簡単なテスト用のコードを書いて > 確認してみてください。 ★自分でも大いに怪しい（デバッグしている際は大抵このようなつまらないミスではまったりしますので…）と思ったのですが、現時点では原因でなさそうです。 引数を使用しない場合は同じルートで流れる、Callの直前でechoしたところ到達していた、ことから判断致しました。 >3. Execute の代わりに、ExecuteGlobal を使ってみた場合はどうですか? ★Executeと同じエラーになりました。 >4. 呼び出し側から渡す引数の数を変更してみてください。 > メッセージに何か変化はありますか? ★引数を複数にしてみましたが、同様のエラーでした。 >5. 『Call TestSub(strSvrNum)』を呼び出す「直前」にて、 > MsgBox TypeName(GetRef("TestSub")) > という一行を入れてみてください。正しく実装されているならば、 > 『Object』というメッセージが表示されるはずです。 ★『Object』が表示されました。エラーは同様のものでした。 >6. 『Call TestSub(strSvrNum)』を呼び出す「直前」にて、 > MsgBox TypeName(TestSub) > という一行を入れてみてください。正しく実装されているならば、 > 『型が一致しません。』のエラーになるはずです。 ★『型が一致しません。』のエラーがでました。 >7. 『Execute objFunc.ReadAll』を呼び出す「直前」にて、 > MsgBox TypeName(TestSub) > という一行を入れてみてください。正しく実装されているならば、 > Option Explicitがあれば、『この変数は宣言されていません』エラー、 > Option Explicitが無いと、『Empty』と表示されるはずです。 ★Option Explicitを入れているので、『この変数は宣言されていません』になりました。 >8. 『Execute objFunc.ReadAll』を呼び出す「直前」にて、 > MsgBox TypeName(GetRef("TestSub")) > という一行を入れてみてください。正しく実装されているならば、 > 『プロシージャの呼び出し、または引数が不正です。』エラーに > なるはずです。 ★『プロシージャの呼び出し、または引数が不正です。』エラーになりました。 と、ここまで書いてきて、バージョンの確認をしてないな…と気づき調べてみました。 CScript.exe 5.6.0.8515 WScript.exe 5.6.0.8515 Microsoft スクリプト コントロール #↑はなんという名前になりますでしょうか？ダウンロード時の名前が「sct10jp.exe」のものかと思うのですが… #WSHインストール後に個別でダウンロードしていないので、入っていないはずだと思います。 Internet Explorer 6.0.2900.2180.xpsp_sp2_gdr.050301-1519 結果、見事にバージョンが違っていました(-_-;) 正常に動作していたGeo=TK3さんの環境ともバージョンが異なっていたのでしょうか。 この差異で動かないのか、それともまだ気づいていないミスがあるのか… 全体でも300ステップ程度ですので、もう一度頭から確認をし直してみます。 進展あり次第、ご報告致します。 経過報告しかできませんでしたが、Geo=TK3さん、魔界の仮面弁士さんありがとうございました。