VBScript 输出中的对齐实现方法

运行效果：

代码（fOutput.vbs）：

复制代码 代码如下:

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery( _

    "SELECT * FROM Win32_NetworkAdapterConfiguration",,48)

For Each objItem in colItems

    Wscript.Echo objItem.Caption & fOutput(objItem.Caption) & "textinfo"

Next

Function fOutput(strName)

 strLen = Len(strName)

 Select Case True

  Case strLen < 8

   fOutput = chr(9) & chr(9) & chr(9) & chr(9) & chr(9)

  Case strLen < 16

   fOutput = chr(9) & chr(9) & chr(9) & chr(9)

  Case strLen < 24

   fOutput = chr(9) & chr(9) & chr(9)

  Case strLen < 32

   fOutput = chr(9) & chr(9)

  Case strLen < 40

   fOutput = chr(9)

  Case Else

   '超过40的只取前32位

   For K = 1 To strLen - 32

    fOutput = fOutput & chr(8)

   Next

   fOutput = fOutput & " ..." & chr(9)

  End Select

End Function

原文：https://www.enun.net/?p=2381