统计211

标题: spss：生成你想要的ID [打印本页]

作者: tongtian 时间: 2011-6-16 22:46
标题: spss：生成你想要的ID
　输入你想编的case数目，操作方法：只要将这个程序粘贴到SPSS的脚本窗口，点击RUN即可。到时需要多少记录由你来定。
　　Sub Main
　　Dim strCmd As String
　　Dim vNbCases As Variant
　　Dim lngNumCases As Long
　　Do vNbCases ＝InputBox（”建立多少记录的数据文件?”，“输入记录数，默认是100．”，”100”）
　　If vNbCases ＝ “”Then Exit Sub
　　Loop Until IsNumeric（vNbCases）
　　strCmd ＝ strCmd & “NEW FILE．”& vbCrLf
　　strCmd ＝ strCmd & “INPUT PROGRAM．”& vbCrLf
　　strCmd ＝ strCmd & “LOOP id＝1 TO ”& vNbCases & “．”& vbCrLf
　　strCmd ＝ strCmd & “END CASE．”& vbCrLf
　　strCmd ＝ strCmd & “END LOOP．”& vbCrLf
　　strCmd ＝ strCmd & “END FILE．”& vbCrLf
　　strCmd ＝ strCmd & “END INPUT PROGAM．”& vbCrLf
　　strCmd ＝ strCmd & “FORMATS id （F8）．”& vbCrLf
　　strCmd ＝ strCmd & “EXECUTE．”& vbCrLf
　　objSpssApp．ExecuteCommands （strCmd，False）
　　End Sub

欢迎光临统计211 (http://www.tj211.com/)