主题：有没有什么办法输出所有变量值?

我升级了3.31

怎么用呢?

Function outall(Formula)
outall=5000
x=-1
x=Formula.linecount
Document.DebugFile "e:\rd2.txt", "linecount:"& x, 1
if x>0 then
 for i=0 to x
  tname=Formula.GetLineName(i)
  val=Formula.GetBufData(tname,DataSize-1)
  Document.DebugFile "e:\rd2.txt", "i:" & i & " " & "tname:" & tname & " " & "val:" & val, 1
 next
end if
End Function

运行的时候提示错误:

此主题相关图片如下：1111.png