有时候我们需要在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
- 求救？事业单位调动，分居六年？
- 2012年广州市建筑工程职业学校招聘公告
- 2012年广州市司法职业学校招聘公告
- 2012年东营市市属事业单位公开招聘工作人员笔试时间更改公告
- 2012年贵阳市花溪区招聘事业单位工作人员(A类岗位)进入面试人员名单
- 2012年广州市土地房产管理职业学校招聘公告
- 2012年眉山市人事考试中心领取人事考试证书的通知
- 2012年贵阳市花溪区度招聘事业单位工作人员(B类岗位)进入面试人员名单
- 关于档案问题？
- 2012年乐山市委党校考核招聘工作人员公告
- 2012年广东外语艺术职业学院第二次招聘辅导员笔试通知
- 2012年贵州省疾病预防控制中心公开招聘工作人员递补人员公示
- 2012年广东外语艺术职业学院后勤处医务室招聘临床护士笔试通知
- 2012年广东理工职业学院行政教辅人员招聘公告
- 2012年广东外语艺术职业学院第二批招聘笔试通知
- 2012山东工艺美术学院工作人员招聘启事
- 2012年毕节市民政局所属事业单位招聘工作人员拟聘人员公示
- 2012年徐州市钟吾卫生学校公开招聘教师(本科及以上)简章
- 2012年徐州市钟吾卫生学校公开招聘教师(本科及以上）职位表
- 2012年徐州市钟吾卫生学校公开招聘教师(研究生)简章
- 2012年徐州市钟吾卫生学校公开招聘教师（研究生）职位表
- 2012年广东理工职业学院行政教辅岗位招聘计划表
- 徐州2012年新沂市公开招聘卫生系统工作人员简章
- 资格证和教师上岗？
- 2012年徐州新沂市公开招聘卫生系统工作人员职位表
- double-blind
- double-blind
- double-blinded
- double-blinded
- double-blind experiment
- double-blind study
- double bluff
- double-bluff
- double boiler
- double-boiler
- 蕙质兰心
- 蕞尔弹丸
- 蕤宾铁响
- 薄物细故
- 薄祚寒门
- 薏苡之谗
- 薏苡之谤
- 薏苡明珠
- 薏苡蒙谤
- 薪尽火传
- 2022年教师节活动方案【5篇】
- 教师节活动方案精选5篇范文
- 庆祝教师节活动方案范本
- 宣传推广方案怎么写5篇
- 宣传推广方案【通用5篇】
- 读书主题活动方案创意7篇
- 读书活动方案7篇
- 突发自然灾害应急预案
- 台风洪涝灾害应急预案
- 宣传推广方案模板5篇