| 标题 | 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 |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。