欧美国产另类久热|951超碰伊人久久|伊人影视久久久久|色婷婷亚洲小电影|色东京热69XX|婷婷玖玖深爱网|加勒比东京热网站|无码A级毛片在线观看|一级a毛一级a看|中文字幕人妻欧美

有時候我們需要在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