VBScript 輸出中的對(duì)齊實(shí)現(xiàn)方法
來(lái)源:易賢網(wǎng) 閱讀:1475 次 日期:2014-05-09 16:16:23
溫馨提示:易賢網(wǎng)小編為您整理了“VBScript 輸出中的對(duì)齊實(shí)現(xiàn)方法”,方便廣大網(wǎng)友查閱!

有時(shí)候我們需要在vbs中輸入的字符實(shí)現(xiàn)對(duì)齊效果,那么就可以參考下面的代碼了

運(yù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

'超過(guò)40的只取前32位

For K = 1 To strLen - 32

fOutput = fOutput & chr(8)

Next

fOutput = fOutput & " ..." & chr(9)

End Select

End Function

更多信息請(qǐng)查看IT技術(shù)專欄

更多信息請(qǐng)查看腳本欄目
易賢網(wǎng)手機(jī)網(wǎng)站地址:VBScript 輸出中的對(duì)齊實(shí)現(xiàn)方法
由于各方面情況的不斷調(diào)整與變化,易賢網(wǎng)提供的所有考試信息和咨詢回復(fù)僅供參考,敬請(qǐng)考生以權(quán)威部門公布的正式信息和咨詢?yōu)闇?zhǔn)!
關(guān)于我們 | 聯(lián)系我們 | 人才招聘 | 網(wǎng)站聲明 | 網(wǎng)站幫助 | 非正式的簡(jiǎn)要咨詢 | 簡(jiǎn)要咨詢須知 | 新媒體/短視頻平臺(tái) | 手機(jī)站點(diǎn)

版權(quán)所有:易賢網(wǎng)