如何让vb执行文本文件里的程序

Question

例如
在test.txt中有
dim a as interget
a=10
然后用vb打开文件执行它怎么做呢?谢谢

Answer 1

先读出来，然后像下面这样
在工程中添加“Microsoft Script Control1.0”控件，然后试试下面的代码Private Sub Command1_Click()
    With Me.ScriptControl1
        .AddCode "dim a,b"
        .AddCode "b=1"
        .AddCode "a=b+10"
        .AddCode "Msgbox a"
    End With
End Sub

Answer 2

很遗憾，vb没有提供宏替换功能，所以你的问题无解Microsoft Script Control或者相应的api可以从表面上解决你的问题，但事实上用他们编制的程序无法正常发行

Answer 3

dim a as interget
象这样的语句估计不可以，一般的执行语句可以用CallByName来间接实现有个办法可以实现，就是改成VBS脚本文件执行

Answer 4

vb没有提供宏替换功能，你的问题在vb里不能解决

Answer 5

多行代码可以
dim a as interget
这种语句可能不行，Microsoft Script Control相当于脚本执行，脚本中只允许Variant这种类型 试试下面的
Option Explicit
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As LongPublic Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
    ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End FunctionPrivate Sub Command1_Click()
    ExecuteLine "Dim X As Long, Y As Long"
    ExecuteLine "x = 2"
    ExecuteLine "y = 3"
    ExecuteLine "msgbox " & Text1.Text
End SubPrivate Sub Form_Load()
    Text1.Text = "x+y"
End Sub