• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    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 监控并结束指定进程的代码
    下一篇:vbs 获取当前目录的实现代码
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    VBScript 输出中的对齐实现方法 VBScript,输出,中的,对齐,