主頁 > 知識(shí)庫 > VBScript 輸出中的對齊實(shí)現(xiàn)方法

VBScript 輸出中的對齊實(shí)現(xiàn)方法
熱門標(biāo)簽：地圖標(biāo)注政府哪個(gè)部門管 百度地圖標(biāo)注點(diǎn)距離代碼 神行者美術(shù)館地圖標(biāo)注 齊齊哈爾高德地圖標(biāo)注店 如何用機(jī)器人進(jìn)行電銷 東營快遞外呼系統(tǒng) 佛山真人電銷機(jī)器人廠家 哪里有便宜的地圖標(biāo)注公司 除了地圖標(biāo)注還有這種生意嗎
運(yùn)行效果：



代碼（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

標(biāo)簽：西安 文山 四平 湖州 銅川 邢臺(tái) 鶴壁

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《VBScript 輸出中的對齊實(shí)現(xiàn)方法》，本文關(guān)鍵詞  VBScript,輸出,中的,對齊,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《VBScript 輸出中的對齊實(shí)現(xiàn)方法》相關(guān)的同類信息！
  • 本頁收集關(guān)于VBScript 輸出中的對齊實(shí)現(xiàn)方法的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章