如何在程序里读入一段.txt里的代码，并运行？

Question

很难呀
写成dll动态调用吧

Answer 1

不用那么麻烦，用ScriptControl控件
看看我写的一个例子。
Private Sub Command1_Click()
    Dim sc 'As ScriptControl
    Dim FileNumber
    Dim filestr As String
    FileNumber = FreeFile(0)   ' 取得未使用的文件号。
    Open "c:\1.txt" For Input As #FileNumber     ' 创建文件名。
    filestr = Input(LOF(FileNumber), #FileNumber) ' 输出文本至变量中。
    Close #FileNumber   ' 关闭文件。    Set sc = CreateObject("ScriptControl")
    sc.AllowUI = True
    sc.Language = "VBScript"
    ' 向 ScriptControl 添加 Script 。
    sc.AddCode filestr
   ' 运行 Script 代码。
    sc.Run "main"
    '在c:盘根目录下建立一个文本文件(1.txt)
    '在文件中写一段代码：
'    Sub main()
'        MsgBox "通过事行写好代码的文件来运行例子。"
'    End Sub
End Sub

Answer 2

MsgBox "通过事行写好代码的文件来运行例子。"有点问题，把提示改成英文。

Answer 3

或者：
Open "c:\1.txt" For Input As #FileNumber     ' 创建文件名。
改成：
Open "c:\1.txt" For Binary  As #FileNumber     ' 创建文件名。
能对中文处理。

Answer 4

!!!!!!,有没有搞错哦？你直接使用FSO就可以了啊！就是File System Object，你查一下MSDN就可以了，里面关于如何使用FSO很详细了，我就不给你COPY了！