Scripting 通知用户SPSS中的进度
我的脚本中有以下SPSS代码Scripting 通知用户SPSS中的进度,scripting,vbscript,spss,Scripting,Vbscript,Spss,我的脚本中有以下SPSS代码 MsgBox "Progressing" For iCaseCount = 1 To iNumberOfCases 'my code here Next 我想删除MsgBox并将“它”放在循环中,并用替换它的内容;“进展记录:&“of”和“iNumberOfCases” 有什么方法可以实现我想要的吗?我终于找到了一种通过Internet Explorer显示进度的方法 下面是VB脚本代码 Dim objExplorer Set objExplorer =
MsgBox "Progressing"
For iCaseCount = 1 To iNumberOfCases
'my code here
Next
我想删除MsgBox并将“它”放在循环中,并用替换它的内容;“进展记录:&“of”和“iNumberOfCases”
有什么方法可以实现我想要的吗?我终于找到了一种通过Internet Explorer显示进度的方法 下面是VB脚本代码
Dim objExplorer
Set objExplorer = CreateObject("InternetExplorer.Application")
objExplorer.navigate "about:blank" : objExplorer.Width = 350 : objExplorer.Height = 80 : objExplorer.toolbar = False : objExplorer.menubar = False : objExplorer.statusbar = False : objExplorer.Visible = True
For iCaseCount = 1 To iNumberOfCases
DisplayProgress(objExplorer, iCaseCount, iNumberOfCases)
'my code here
Next
objExplorer.Quit
Set objExplorer = Nothing
方法来显示进度
Sub DisplayProgress(ByVal x As Object, ByVal stage As Long, ByVal total As Long)
'in code, the colon acts as a line feed
x.Refresh
x.document.write "<font color=black face=Arial>"
x.document.write "Processing record " & stage & " of " & total
x.document.write "</font>"
End Sub
子显示进度(ByVal x为对象,ByVal阶段为长,ByVal总计为长)
'在代码中,冒号充当换行符
x、 刷新
x、 document.write“”
x、 文件。填写“处理记录”和“阶段”以及“总计”
x、 document.write“”
端接头