[已解决]VBS脚本如何实现字符对齐输出？

秋风·飞扬

1. strComputer= "."
   
2. Set system_process = GetObject("winmgmts:\" & strComputer & "\root\cimv2")
   
3. Set process_get= system_process.instancesOf("win32_process")
   
4. 
   
5. For Each process_infomation in process_get
   
6. 
   
7.        length process_infomation.name,22
   
8.        process_name_space=str_space
   
9. 
   
10.        length process_infomation.processid,10
    
11.        process_id_space=str_space
    
12. 
    
13.        i=i+1
    
14. 
    
15.        If i=1 Then
    
16. 
    
17.                      str= str &  process_infomation.csname & "   "  & process_infomation.name & process_name_space & process_infomation.processid & process_id_space
    
18. 
    
19.        Else
    
20.                      str= str & process_infomation.csname & "   " &  process_infomation.name & process_name_space & process_infomation.processid  & vbCr
    
21.                      i=0
    
22. 
    
23.        End If
    
24. 
    
25.        process_name_space=""
    
26.        process_id_space=""
    
27. 
    
28. Next
    
29. Set system_process= Nothing
    
30. Set system_process_infomation= Nothing
    
31. 
    
32. WScript.Echo str
    
33. 
    
34. 
    
35. Function length(a,b)
    
36. 
    
37.            process_space=""
    
38.            c = Len (a)
    
39.            process_space  =  b- c
    
40. For  j=0 To process_space
    
41.            str_space = str_space & " "
    
42. Next
    
43. End Function
    

复制代码

问题：只有一个进程不能对齐，就是PID为0 的system idle process这个进程,不明真相(在调试的时候看见函数里面正常计算，但是在跳出函数之后赋值的时候就不行了)。

powerbat

编程风格太难看了，没耐心看完。

秋风·飞扬

回复 2# powerbat


    这次呢

powerbat

也发一个

1. 
   
2. strComputer = "."
   
3. Set wmi = GetObject("winmgmts:\" & strComputer & "\root\cimv2")
   
4. Set colPS = wmi.InstancesOf("Win32_Process")
   
5. For Each ps in colPS
   
6.     i = (i+1) mod 2
   
7.     If i Then
   
8.         str= str & FMT(ps.CSName, ps.Name, ps.ProcessId)
   
9.     Else
   
10.         str= str & " | " & FMT(ps.CSName, ps.Name, ps.ProcessId) & vbCrLf
    
11.     End If
    
12. Next
    
13. WScript.Echo str
    
14. 
    
15. Function FMT(s1, s2, s3)
    
16.     CONST MAX_LEN = 38
    
17.     CONST PID_LEN = 5
    
18.     Dim s
    
19.     s = s1 & "  " & s2
    
20.     If Len(s) > (MAX_LEN - PID_LEN - 1) then
    
21.         'name与pid之间至少要一个空格，所以再减1
    
22.         s = Left(s, MAX_LEN - PID_LEN - 1)
    
23.     End If
    
24.     s = s & String(MAX_LEN - PID_LEN - Len(s), " ") & s3
    
25.     s = s & String(MAX_LEN - Len(s), " ") '后面填充空格
    
26. FMT = s
    
27. End Function
    

复制代码

秋风·飞扬

我的第一个程序 第一个进程没有对齐，是不是piD是0 的缘故？

秋风·飞扬

我自问自答吧：开始要对process_space初始化，process_str_space=""
谢那个大笑提供的算法