发布网友
共5个回答
热心网友
在窗体上添加一个命令按钮
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
Function StepLine(ByVal cmd As String) As Long
StepLine = EbExecuteLine(StrPtr(ByVal cmd), 0, 0, 0)
End Function
Private Sub Command1_Click()
Open "C:\a.txt" For Input As #1
While Not EOF(1)
Line Input #1, s
StepLine s
Wend
Close #1
End Sub
'c:\a.txt的内容如下,你可以再增加一些语句,但必须是VB正确的语法
Form1.Caption = "测试"
Form1.BackColor = vbBlue
Print "12323" '这一句运行时,是输出到立即窗口的
热心网友
在前面加个字符,比如 *
如果是 * 号,就把后面的打印出来
do while not eof(1)
line input #1,tmp
if left(tmp,1)="*" then
print right(tmp,len(tmp)-1)
end if
loop
热心网友
'读文件示例
Dim strFileName As String '文件名
Dim lngHandle As Long '文件句柄
Dim strAll As String '所读取的文本文件的所有内容
Dim strLine As String '在循环中存放每行的内容
'获得文件的句柄
lngHandle = FreeFile()
'For后面的参数表示以何种方式打开文件,Input是读取,Output是覆盖写入,Append是追加写入
Open strFileName For Input As lngHandle
'循环直到文件尾
Do While Not EOF(lngHandle)
'每次读取一行存放在strLine变量中
Line Input #lngHandle, strLine
'每次读取都把所读到的内容连接到strAll变量,由于Line Input去掉了换行符,所以这里补上
strAll = strAll & strLine & vbCrLf
Loop
'显示得到的全部分内容
参考资料:vb吧
热心网友
我明白你需要解决的问题,就是将字符串当作VB语句来执行的问题.不过很遗憾,VB做不到.
但是你可以用一些变通的方法实现这样的功能,就是自己去分析字符串,然后再执行需要的语句,如:
if str="Print ""大家好""" then Print "大家好"
if str="5+4*6" then print 5+4*6
实际上VB没有这样的功能也是合理的,因为你的任何需求实际上都可以通过VB提供的其他的方法办到.
多想一想总是可以解决的.
热心网友
我也不会如何执行一句,给你一段代码,它可以执行一段自定义的过程,你可以参考一下:先添加一个ScriptControl控件。
Dim sc
Dim strProgram As String
strProgram = "Sub Main" & vbCrLf & "MsgBox ""Hello World""" & vbCrLf & "End Sub"
Set sc = CreateObject("ScriptControl")
sc.language = "VBScript"
sc.addcode strProgram
sc.run "Main"