有谁有脚本系统的调试功能的资料

Miu.C

有的话麻烦给一个参考一下，谢谢。
[em20]

Miu.C

对了，还不要用到其他的控件的才好，就用TextBox，谢谢啦。

终于决定要做这块了，老是在代码中加入messagebox调试很麻烦啊。

Devil

创建一个协助进程，类似记事本样的文本容器，脚本调用API向进程窗口发消息，写LOG信息上去。

蜜蜂巢

给你写上一个啦~~
下面是源码和截图
Option Explicit
Dim command() As String, meCommand As String

Private Sub Command1_Click()
  Dim i As Long, position As Long
  Text2.Text = ""
  If Text1.Text = "" Then
    Text2.Text = Text2.Text & "没有输入脚本" & Chr(13) & Chr(10)
  Else
    command = Split(Text1.Text, Chr(13) & Chr(10))
  For i = 0 To UBound(command)
    If command(i) <> "" Then
      position = InStr(command(i), "(")
      If position < 1 Then
        Text2.Text = Text2.Text & "没有指令符 错误在第" & (i + 1) & "行上" & Chr(13) & Chr(10)
      Else
        meCommand = Left(command(i), position - 1)
        command(i) = Right(command(i), Len(command(i)) - position)
        position = InStr(command(i), ")")
        If position < 1 Then
          Text2.Text = Text2.Text & "没有右边)括号 错误在第" & (i + 1) & "行上" & Chr(13) & Chr(10)
        Else
          If meCommand <> "print" Then
            Text2.Text = Text2.Text & "未知的脚本指令 错误在第" & (i + 1) & "行上" & Chr(13) & Chr(10)
          Else
            Text2.Text = Text2.Text & Left(command(i), Len(command(i)) - 1) & Chr(13) & Chr(10)
          End If
        End If
      End If
    End If
  Next i
  End If
End Sub

CLOD

用管道

Miu.C

Devil: Re:有谁有脚本系统的调试功能的资料

创建一个协助进程，类似记事本样的文本容器，脚本调用API向进程窗口发消息，写LOG信息上去。

那......好麻烦的啊.....我研究看看。

我指的是编辑代码的时候运行解释器时的“调试”阿。

Miu.C

蜜蜂巢: Re: 有谁有脚本系统的调试功能的资料

给你写上一个啦~~
下面是源码和截图
Option Explicit
Dim command() As String, meCommand As String

...

这成脚本错误检查啦。

游戏之家站长

用API就好了

CLOD

百度，谷歌

蜜蜂巢

>我指的是编辑代码的时候运行解释器时的“调试”阿。
这...看不懂了,
编辑代码和运行解释器,不是二个不同的进程吗?
是不是类以VB中按回车就会去检查上一行的代码是否正确这个意思的?