scripting - SPSSの進捗状況をユーザーに通知する

Question

スクリプトに以下のSPSSコードが含まれています。

MsgBox "Progressing"
For iCaseCount = 1 To iNumberOfCases
     'my code here
Next

MsgBoxを削除し、ループ内に「it」を配置して、そのコンテンツを;に置き換えたいと思います。"進行中のレコード："＆ "of"＆iNumberOfCases

私が望むことを達成する方法はありますか？

Answer 1

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