航帆培训2025年国家·云南省公务员考试巅峰班

VBScript 输出中的对齐实现方法
2014-05-09来源:易贤网

航帆培训2025年国家·云南省公务员考试巅峰班,小班教学,上岸率高达60%,试听预约报名中>>

有时候我们需要在vbs中输入的字符实现对齐效果,那么就可以参考下面的代码了

运行效果:

1.jpg

代码(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

更多信息请查看IT技术专栏

全年巅峰班 助你公考上岸

2025公考·省考培训课程试听预约报名

  • 报班类型
  • 姓名
  • 手机号
  • 验证码
推荐信息