IP和整数互换 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

''''''''IP和整数互换 {s11ss 2007-12-9}''''''''

Option Explicit
Dim str,re,match,n(3),i,answer,q,r

str=InputBox("请输入IP或对应的整数：","IP和整数互换","127.0.0.1")

If str="" Then WScript.Quit

Set re = New RegExp
re.Global = True
re.IgnoreCase = True
re.MultiLine = false

'IP转整数:
re.Pattern = "^(\d{1,2}|\d{2}|2\d|25)\.(\d{1,2}|\d{2}|2\d|25)\.(\d{1,2}|\d{2}|2\d|25)\.(\d{1,2}|\d{2}|2\d|25)$"
If re.Test(str) Then
     Set match=re.Execute(str)
     For i=0 To 3
     	n(i)=CInt(match(0).Submatches(i))
     	answer=answer+n(i)*256^(3-i)
     Next
     InputBox vbcrlf&"IP："&str&vbcrlf&vbcrlf&vbcrlf&"对应的整数为：","转换结果",answer
     WScript.Quit
End If

'整数转IP:
re.Pattern="^\d+$"
If re.Test(str) Then
	q=CLng(str)
	answer=""
	While q<>0
		r=q Mod 256
		q=q\256
		If answer="" Then
			answer=CStr(r)
		Else
			answer=CStr(r)&"."&answer
		End if
	Wend
	InputBox vbcrlf&"整数："&str&vbcrlf&vbcrlf&vbcrlf&"对应的IP为：","转换结果",answer
End If

第1楼　s11ss	发表于 2007-12-09 12:06
银牌会员　发帖 566　积分 2,098
[原创]IP和整数互换[vbs版] ''''''''IP和整数互换 {s11ss 2007-12-9}'''''''' Option Explicit Dim str,re,match,n(3),i,answer,q,r str=InputBox("请输入IP或对应的整数：","IP和整数互换","127.0.0.1") If str="" Then WScript.Quit Set re = New RegExp re.Global = True re.IgnoreCase = True re.MultiLine = false 'IP转整数: re.Pattern = "^(\d{1,2}\|\d{2}\|2\d\|25)\.(\d{1,2}\|\d{2}\|2\d\|25)\.(\d{1,2}\|\d{2}\|2\d\|25)\.(\d{1,2}\|\d{2}\|2\d\|25)$" If re.Test(str) Then Set match=re.Execute(str) For i=0 To 3 n(i)=CInt(match(0).Submatches(i)) answer=answer+n(i)*256^(3-i) Next InputBox vbcrlf&"IP："&str&vbcrlf&vbcrlf&vbcrlf&"对应的整数为：","转换结果",answer WScript.Quit End If '整数转IP: re.Pattern="^\d+$" If re.Test(str) Then q=CLng(str) answer="" While q<>0 r=q Mod 256 q=q\256 If answer="" Then answer=CStr(r) Else answer=CStr(r)&"."&answer End if Wend InputBox vbcrlf&"整数："&str&vbcrlf&vbcrlf&vbcrlf&"对应的IP为：","转换结果",answer End If

第2楼　lxmxn	发表于 2007-12-09 17:26
版主　发帖 4,938　积分 11,386
不错，加分！不过我运行出现了一个错误提示：行： 10 字符： 1 错误：库没有注册。代码： 8002801D

第3楼　s11ss	发表于 2007-12-09 17:57
银牌会员　发帖 566　积分 2,098
可能问题出在Set re = New RegExp，版主可能要下载安装这个： http://www.microsoft.com/downloads/details.aspx?displaylang=zh-cn&FamilyID=C717D943-7E4B-4622-86EB-95A22B832CAA [ Last edited by s11ss on 2007-12-9 at 05:59 PM ]