VBScript 輸出中的對齊實(shí)現(xiàn)方法
更新時間：2013年09月01日 18:26:15 作者：
有時候我們需要在vbs中輸入的字符實(shí)現(xiàn)對齊效果，那么就可以參考下面的代碼了
運(yùn)行效果：
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
原文：https://www.enun.net/?p=2381
代碼（fOutput.vbs）：
復(fù)制代碼 代碼如下:
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)文章
利用VBS發(fā)送短信的實(shí)現(xiàn)代碼(通過飛信)
無意中看到百度 VBS 貼吧里一個標(biāo)題為《無私的奉獻(xiàn)出我的用飛信免費(fèi)發(fā)短信接口》的帖子。2011-08-08
vbscript下調(diào)用 Dir 命令的方法...2007-04-04
VBS教程：VBscript語句-Dim 語句...2006-11-11
VBS數(shù)組在應(yīng)用中沒有像其他語句那么廣泛，VBS數(shù)組存在不少功能上的局限性（如二維數(shù)組的定義、賦值），在使用上也沒有java等語言那么便捷2018-05-05
VBS教程：函數(shù)-TimeSerial 函數(shù)
VBS教程：函數(shù)-TimeSerial 函數(shù)...2006-11-11
VBS教程：函數(shù)-DateSerial 函數(shù)
VBS教程：函數(shù)-DateSerial 函數(shù)...2006-11-11
新建一個vbs文件（C:\vbs\Getfavorites.vbs），再新建一個bat文件（Getfavorites.bat），執(zhí)行bat文件，收藏夾里的所有項(xiàng)目都會被寫入到C:\vbs\Getfavorites_result.txt文件中。2009-04-04
vbs字符串分割函數(shù)，將字符中如入指定分割字符，需要的朋友可以參考下。2010-11-11
靈活實(shí)用的VBS入門教程基礎(chǔ)篇...2007-02-02
用vbs查找系統(tǒng)進(jìn)程，發(fā)現(xiàn)qq的進(jìn)程則殺掉就是這段代碼的原理2008-06-06