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

代碼(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
相關(guān)文章
使用 Iisext.vbs 添加Web服務(wù)擴(kuò)展文件的方法
這篇文章主要介紹了如何使用 iisext.vbs 在本地或遠(yuǎn)程計算機(jī)上添加 Web 服務(wù)擴(kuò)展文件,需要的朋友可以參考下2014-07-07用vbs實(shí)現(xiàn)確定是否安裝了某個特定的補(bǔ)丁
用vbs實(shí)現(xiàn)確定是否安裝了某個特定的補(bǔ)丁...2007-03-03用vbs實(shí)現(xiàn)的確定共享文件夾的本地路徑?
用vbs實(shí)現(xiàn)的確定共享文件夾的本地路徑?...2007-03-03VBS教程:VBScript 語句-Property Let 語句
VBS教程:VBScript 語句-Property Let 語句...2006-11-11用vbs實(shí)現(xiàn)的利用ADSL撥號變ip刷投票的代碼
朋友讓我?guī)退⑼镀?,我看了看,那個投票系統(tǒng)只是限制ip,考慮的不是很全面,可以刷。2010-03-03抖音vbs表白代碼大全 抖音vbscript表白代碼使用方法
抖音vbs表白代碼大全分享,最近很多小伙伴都在抖音上看到了一個vbs表白代碼這個玩法,感覺非常的有趣。不過不少玩家還不知道怎么弄的,下面就來一起看下制作方法吧2018-07-07