婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > VBScript 輸出中的對齊實現方法

VBScript 輸出中的對齊實現方法

熱門標簽:地圖標注政府哪個部門管 百度地圖標注點距離代碼 神行者美術館地圖標注 齊齊哈爾高德地圖標注店 如何用機器人進行電銷 東營快遞外呼系統 佛山真人電銷機器人廠家 哪里有便宜的地圖標注公司 除了地圖標注還有這種生意嗎
運行效果:



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

標簽:西安 文山 四平 湖州 銅川 海口 邢臺 鶴壁

巨人網絡通訊聲明:本文標題《VBScript 輸出中的對齊實現方法》,本文關鍵詞  VBScript,輸出,中的,對齊,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《VBScript 輸出中的對齊實現方法》相關的同類信息!
  • 本頁收集關于VBScript 輸出中的對齊實現方法的相關信息資訊供網民參考!
  • 企业400电话

    智能AI客服机器人
    15000

    在线订购

    合计11份范本:公司章程+合伙协议+出资协议+合作协议+股权转让协议+增资扩股协议+股权激励+股东会决议+董事会决议

    推薦文章
    主站蜘蛛池模板: 大同市| 文安县| 察隅县| 崇左市| 垦利县| 台北市| 宁海县| 株洲县| 佛山市| 巴林左旗| 南充市| 潜江市| 荥经县| 秀山| 崇州市| 柳江县| 宿松县| 博罗县| 元谋县| 洛宁县| 凌海市| 郸城县| 阳江市| 庆阳市| 铜陵市| 黄陵县| 峨边| 安阳市| 灵武市| 怀宁县| 冷水江市| 汕尾市| 翁牛特旗| 南昌市| 太和县| 和林格尔县| 宜良县| 罗城| 吉木萨尔县| 山西省| 霞浦县|