VBScript 輸出中的對齊實現(xiàn)方法

字號： 小 中 大


    有時候我們需要在vbs中輸入的字符實現(xiàn)對齊效果，那么就可以參考下面的代碼了
    運行效果：
    
1.jpg

    代碼（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