word vba 如何获取下一个IP地址,下一个IP地址相当于前一个增加AutoIncCnt

发布网友发布时间：2022-04-28 15:16

共2个回答

热心网友时间：2023-10-03 15:12

你需要的IP是编程时自定义的,还是网页中要取的,还是本机的IP,请说清.否则不好回答你.如果在一个地方你设定了一个超链接,那么只要取这个链接的内容,如:192.168.1.128,然后取最后一段数据,加一后,变成字符型,与前面的拼接就可以了.追问是自定义的问题是要设计一个代码让IP合法每个位数不超过255 +1 自动变0 前面一单元加一比如192.168.1.255 加一变成192.168.2.0

追答我用个简单的例子来说明一下吧
Sub kk()
a = "192.68.1.102"
b = "."
pos = 1
cur_pos = 1
'以下取得"."的位置,以便截取每个数据段的值

If pos > 1 Then
cur_pos = InStr(pos, a, b, vbTextCompare)
IPstr1 = Mid(a, pos, curpos - pos)
End If
End Sub

可以参照以上代码用3次循环 , 分别取得每个数据段的值
从最后一段数据开始加一 , 拼接, 有个注意点, 就是计满255需进1, 你可以用三个进位标志.满255置0的方法如下:
If ipnum4 > 255 Then
ipnum4 = 0
c4 = 1 '最后一个数据段的进位置标志.
End If

或者用mod 取模比较
或者用iif()函数
用什么方法,就看你的编程习惯了.
当完成数据的加1 后,还需把它变成字符型,str(),然后拼接起来就可以了.

---------------------------------------------------------------------
当然 , 还有一种算法, 就是把IP地址变成一种可比较的格式, 不满3位的, 填0, 如:
192.12.3.22 变成192012003022
以上,不知道是否对你有帮助.

热心网友时间：2023-10-03 15:12

这种不清不楚的问题应该让它自然沉掉