快捷導(dǎo)航

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

更新時間：2013年09月01日 18:26:15 作者：

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

運(yù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教程：方法-CreateFolder 方法
VBS教程：方法-CreateFolder 方法...
2006-11-11
用vbs實(shí)現(xiàn)的確定共享文件夾的本地路徑？
用vbs實(shí)現(xiàn)的確定共享文件夾的本地路徑？...
2007-03-03
VBS教程：VBScript 語句-Property Let 語句
VBS教程：VBScript 語句-Property Let 語句...
2006-11-11
用vbs實(shí)現(xiàn)的利用ADSL撥號變ip刷投票的代碼
朋友讓我?guī)退⑼镀?，我看了看，那個投票系統(tǒng)只是限制ip，考慮的不是很全面，可以刷。
2010-03-03
vbs病毒源文件
小弟才接觸vbs.前幾天中了個病毒，我看了半天，看不明白。有些看明白的地方我做了注釋。請大蝦幫忙解加些注釋，萬分感激,病毒代碼如下：
2008-06-06
VBS教程：函數(shù)-String 函數(shù)
VBS教程：函數(shù)-String 函數(shù)...
2006-11-11
VBS的字符串及日期操作相關(guān)函數(shù)
最近寫asp程序時用到日期格式轉(zhuǎn)換，因?yàn)椴煌瑪?shù)據(jù)庫對日期格式要求不一樣，這里特別找了一些相關(guān)資料，希望對大家有所幫助，如有問題請留言，謝謝!
2011-01-01
抖音vbs表白代碼大全抖音vbscript表白代碼使用方法
抖音vbs表白代碼大全分享，最近很多小伙伴都在抖音上看到了一個vbs表白代碼這個玩法，感覺非常的有趣。不過不少玩家還不知道怎么弄的，下面就來一起看下制作方法吧
2018-07-07