gpt4 book ai didi

VBScript 输出中的对齐实现方法

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 24 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章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 输出中的对齐实现方法的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com