VBScript 输出中的对齐实现方法

278 阅读 0 评论 184 点赞

我是靠谱客的博主神勇咖啡豆，这篇文章主要介绍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