手机
当前位置:查字典教程网 >脚本专栏 >vbs >VBScript 输出中的对齐实现方法
VBScript 输出中的对齐实现方法
摘要:运行效果:代码(fOutput.vbs):复制代码代码如下:strComputer="."SetobjWMIService=GetObjec...

运行效果:

VBScript 输出中的对齐实现方法1

代码(fOutput.vbs):

复制代码 代码如下:

strComputer = "."

Set objWMIService = GetObject("winmgmts:" & strComputer & "rootCIMV2")

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

原文:https://www.enun.net/?p=2381

【VBScript 输出中的对齐实现方法】相关文章:

vbscript下调用 Dir 命令的方法

用VBS读写二进制文件的另一种方法分享

VBScript的入门学习资料

VBS教程:在 VBScript 中使用对象

VBScript开发自动化测试脚本的方法分析

VBS 自动登录论坛的实现代码

VBS伪造HTTP-REFERER的实现方法

VBScript根据盘符找设备名的代码

vbscript 三个数比较大小的实现代码

VBScript 打造自己的远程CMDShell附使用教程

精品推荐
分类导航