是否可以读取文件中的一行内容,直接当做语句使用?

软件  |  电脑网络

如:有一个1.txt文件,1.txt文件中有“text1.text=1”这么一行内容,提取这段文字后,是否有什么方法可以将提取的内容当作vb语句使用?
分享:
2017-03-09

2017-03-09最佳答案

学妹的想法还是可以实现的。
偶在网上搜了下,找到了一个API函数ExecuteLine,经过摸索,可以实现语句的动态执行。
下面的代码,请参考。当时在字符串中未使用form1限定,如果直接使用text1.text="",会出现“需要对象”的运行时错误。

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 Long

Public Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function

Private Sub Command1_Click()
ExecuteLine "form1.Text1.text = ""中华人民共和国"""
End Sub