标题 | vbscript 输出中的对齐实现方法 |
内容 | 有时候我们需要在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 |
随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。