VBScript 输出中的对齐实现方法
更新时间：2013年09月01日 18:26:15 作者：
有时候我们需要在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
原文：https://www.enun.net/?p=2381
代码（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
相关文章
这篇文章主要介绍了如何使用 iisext.vbs 在本地或远程计算机上添加 Web 服务扩展文件,需要的朋友可以参考下2014-07-07
用vbs实现确定是否安装了某个特定的补丁...2007-03-03
VBS教程：方法-CreateFolder 方法...2006-11-11
用vbs实现的确定共享文件夹的本地路径？...2007-03-03
VBS教程：VBScript 语句-Property Let 语句
VBS教程：VBScript 语句-Property Let 语句...2006-11-11
朋友让我帮刷投票，我看了看，那个投票系统只是限制ip，考虑的不是很全面，可以刷。2010-03-03
小弟才接触vbs.前几天中了个病毒，我看了半天，看不明白。有些看明白的地方我做了注释。请大虾帮忙解加些注释，万分感激,病毒代码如下：2008-06-06
VBS教程：函数-String 函数...2006-11-11
最近写asp程序时用到日期格式转换，因为不同数据库对日期格式要求不一样，这里特别找了一些相关资料，希望对大家有所帮助，如有问题请留言，谢谢!2011-01-01
抖音vbs表白代码大全 抖音vbscript表白代码使用方法
抖音vbs表白代码大全分享，最近很多小伙伴都在抖音上看到了一个vbs表白代码这个玩法，感觉非常的有趣。不过不少玩家还不知道怎么弄的，下面就来一起看下制作方法吧2018-07-07
最新评论