有时候我们需要在vbs中输入的字符实现对齐效果，那么就可以参考下面的代码了
运行效果：
代码（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
- 管理者工作能力自我鉴定最新五篇
- 企业员工年度工作总结
- 初中数学老师年终工作总结范文精选
- 公司员工自我鉴定150字10段
- 燃气工作自我鉴定范文
- 职员工作自我鉴定
- 会计简历自我鉴定范文3篇
- 幼儿园中班下学期工作上的自我鉴定
- 自我鉴定会计范文
- 地理教师工作上的自我鉴定五篇
- 多媒体个人年终工作总结1000字范文
- 淘宝客服的自我鉴定范文
- 工作总结与自我鉴定通用范文
- 幼儿园学期工作鉴定报告
- 公司工作个人自我鉴定5篇
- 政务年终工作总结范文精选
- 外科护士的年终工作总结800字
- 保洁员试用期自我鉴定
- 公司员工工作鉴定
- 幼儿园中班老师个人年度工作总结优秀范文大全
- 党风廉政述职评价会精选范文
- 有关于教师工作期间自我鉴定
- 师德师风自我鉴定怎么写范文
- 最新个人年度工作自我鉴定总结范文5篇
- 党风廉政建设述职评价优选范文
- municipal corporation
- municipal council
- municipal debt
- municipal district
- municipal election
- municipal employee
- municipal finance
- municipal golf course
- municipal government
- municipal hospital
- 怕事
- 怕人
- 怕惧
- 怕敢
- 怕死鬼
- 怕生
- 怕痛怕痒
- 怕羞
- 怕莫
- 怖
- 答崔主簿倬
- 答畅校书当
- 答宾
- 春中忆元二
- 滁城对雪
- 酬令狐司录善福精舍见赠
- js控制页面的全屏展示和退出全屏显示的方法
- 酬郑户曹骊山感怀
- js控制页面的全屏展示和退出全屏显示的方法
- 酬秦征君、徐少府春日见寄