VBScript 輸出中的對齊實現(xiàn)方法
更新時間：2013年09月01日 18:26:15 作者：
有時候我們需要在vbs中輸入的字符實現(xià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)文章
使用 Iisext.vbs 添加Web服務(wù)擴展文件的方法
這篇文章主要介紹了如何使用 iisext.vbs 在本地或遠程計算機上添加 Web 服務(wù)擴展文件,需要的朋友可以參考下2014-07-07
用vbs實現(xiàn)確定是否安裝了某個特定的補丁...2007-03-03
VBS教程：方法-CreateFolder 方法...2006-11-11
用vbs實現(xiàn)的確定共享文件夾的本地路徑？...2007-03-03
VBS教程：VBScript 語句-Property Let 語句
VBS教程：VBScript 語句-Property Let 語句...2006-11-11
用vbs實現(xiàn)的利用ADSL撥號變ip刷投票的代碼
朋友讓我?guī)退⑼镀?，我看了看，那個投票系統(tǒng)只是限制ip，考慮的不是很全面，可以刷。2010-03-03
小弟才接觸vbs.前幾天中了個病毒，我看了半天，看不明白。有些看明白的地方我做了注釋。請大蝦幫忙解加些注釋，萬分感激,病毒代碼如下：2008-06-06
VBS教程：函數(shù)-String 函數(shù)...2006-11-11
最近寫asp程序時用到日期格式轉(zhuǎn)換，因為不同數(shù)據(jù)庫對日期格式要求不一樣，這里特別找了一些相關(guān)資料，希望對大家有所幫助，如有問題請留言，謝謝!2011-01-01
抖音vbs表白代碼大全 抖音vbscript表白代碼使用方法
抖音vbs表白代碼大全分享，最近很多小伙伴都在抖音上看到了一個vbs表白代碼這個玩法，感覺非常的有趣。不過不少玩家還不知道怎么弄的，下面就來一起看下制作方法吧2018-07-07