差分表示
- 最後の更新で追加された行はこのように表示します。
- 最後の更新で削除された行はこのように表示します。
RCS information
head: 1.2
branch:
locks: strict
wiki: 1.2
access list:
symbolic names:
keyword substitution: kv
total revisions: 2; selected revisions: 2
description:
----------------------------
revision 1.2 locked by: wiki;
date: 2005-10-10 12:18:45+09; author: wiki; state: Exp; lines: +24 -0
Modified by 61.195.23.220(PPPax470.aichi-ip.dti.ne.jp)
----------------------------
revision 1.1
date: 2005-10-10 11:35:08+09; author: wiki; state: Exp;
Created by 61.195.23.220(PPPax470.aichi-ip.dti.ne.jp)
----------------------------
diff revision 1.1 -> 1.2
--- Windows/ScriptControl.txt 2005-10-10 11:35:08+09 1.1
+++ Windows/ScriptControl.txt 2005-10-10 12:18:45+09 1.2
@@ -3,3 +3,27 @@
Windows2000、XPでは標準で入っている。
久しぶりにこれ使ったソフトでも作ってみたいものだ。
+
+おぼえ(VB.netで使用するサンプル) from http://dobon.net/vb/dotnet/programing/eval.html
+
+ '計算式
+ Dim exp As String = "(1+6)*5/(7-4)"
+
+ Dim t As Type = _
+ Type.GetTypeFromProgID("MSScriptControl.ScriptControl")
+ Dim obj As Object = Activator.CreateInstance(t)
+ t.InvokeMember("Language", _
+ System.Reflection.BindingFlags.SetProperty, _
+ Nothing, _
+ obj, _
+ New Object() {"vbscript"})
+ 'Eval関数で計算を実行して結果を取得
+ Dim result As Double = CDbl( _
+ t.InvokeMember("Eval", _
+ System.Reflection.BindingFlags.InvokeMethod, _
+ Nothing, _
+ obj, _
+ New Object() {exp}))
+
+ '結果を表示
+ Console.WriteLine(result)
