
CODE: [Copy to clipboard]下面是VBS官方参考中的一小段话:Function FormatIP(sIP)
Dim arr, i, temp, j
arr = Split(sIP, ".")
For i = 0 To ubound(arr)
temp = ""
n = 3 - Len(arr(i))
For j = 1 To n
temp = temp & "0"
Next
arr(i) = temp & arr(i)
Next
FormatIP = Join(arr, ".")
End Function
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |