足球游戏_中国足彩网￥体育资讯$

有时候我们需要在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