テキストに書いたソースコードを実行するには？

解決

ぴろし 2005-03-22 23:51:25 No: 88970

テキストファイルにソースコードを書いて
Exe実行時にそのソースコード読み込んで実行することって可能ですか？

また可能なら出来るだけ簡単な方法で実現するにはどうすればいいんでしょうか？
ご教授お願い致します。

ささ 2005-03-23 00:14:59 No: 88971

ソースコードといわれるものは、言語はＶＢですか？
コンパイルされていないものを実行できたら、
それこそライブラリという考えは発生しないような気が・・・。

もう少し目的を書きましょう

ぴろし 2005-03-23 00:48:32 No: 88972

言語はVBです。

簡単に言えばコンパイラコンパイラのようなことって出来ますか？ってことなのですが、可能ですか？

ささ 2005-03-23 01:21:28 No: 88973

自分の場合、やるとするならば、
指定したファイルをバッチコンパイルして、
引数渡しはコマンドライン引数になるのかなってぐらいかな思いつくのは・・・。

出来そうだと思う

魔界の仮面弁士 2005-03-23 01:24:25 No: 88974

インタプリタでの実行が必要なら、MSScript.OCX を使ってみるとか。

Dim S As String
Dim R As Integer

S = "MsgBox( ""あいうえお"", vbInformation Or vbOKCancel )"

With CreateObject("ScriptControl")
.Language = "VBs"
R = .EVal(S)
End With

ぴろし 2005-03-23 17:24:12 No: 88975

魔界の仮面弁士さんのコードを参考に試みていますが、
if文やfor文などの制御文や変数などを扱うにはどうすればよいのでしょうか？
もし可能ならご教授願います。

魔界の仮面弁士 2005-03-23 19:40:51 No: 88976

Option Explicit

Private Sub Form_Load()
    Label1.AutoSize = True
    Label1.Caption = _
        "T = Now()" & vbCrLf & _
        "If Second(T) < 30 Then" & vbCrLf & _
        "    MsgBox ""0〜29秒"", vbInformation, FormatDateTime(T)" & vbCrLf & _
        "Else" & vbCrLf & _
        "    MsgBox ""30〜59秒"", vbInformation, FormatDateTime(T)" & vbCrLf & _
        "End If"
End Sub

Private Sub Command1_Click()
    With CreateObject("ScriptControl")
        .Language = "VBScript"
        .ExecuteStatement Label1.Caption
    End With
End Sub

ぴろし 2005-03-25 02:16:38 No: 88977

魔界の仮面弁士さん、ありがとうございました。
おかげで解決できました！