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

秋风·飞扬

strComputer= "."
Set system_process = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set process_get= system_process.instancesOf("win32_process")

For Each process_infomation in process_get

       length process_infomation.name,22
       process_name_space=str_space

       length process_infomation.processid,10
       process_id_space=str_space

       i=i+1

       If i=1 Then 

                     str= str &  process_infomation.csname & "   "  & process_infomation.name & process_name_space & process_infomation.processid & process_id_space

       Else 
                     str= str & process_infomation.csname & "   " &  process_infomation.name & process_name_space & process_infomation.processid  & vbCr
                     i=0

       End If 

       process_name_space=""
       process_id_space=""

Next
Set system_process= Nothing
Set system_process_infomation= Nothing

WScript.Echo str


Function length(a,b)

           process_space=""
           c = Len (a)
           process_space  =  b- c
For  j=0 To process_space
           str_space = str_space & " "
Next
End Function
复制代码

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

秋风·飞扬

回复 2# powerbat


    这次呢

秋风·飞扬

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

秋风·飞扬

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