谁写一下IP编辑框ip递增！

xuanxin

[e]
.版本 2
.支持库 iext2
.程序集 窗口程序集1
.程序集变量 ip, 文本型, , "4"
.程序集变量 起始, 整数型, , "4"
.子程序 _按钮1_被单击
.局部变量 IP1, 文本型
ip ＝ 分割文本 (IP编辑框1.地址, “.”, 4)
起始 [1] ＝ 到整数 (ip [1])
起始 [2] ＝ 到整数 (ip [2])
起始 [3] ＝ 到整数 (ip [3])
起始 [4] ＝ 到整数 (ip [4])
IP1 ＝ 起始 [1] ＋ “.” ＋ 起始 [4] ＋ “.” ＋ 起始 [3] ＋ “.” ＋ 起始 [4]

[/e]
ip我已经会这样取了
但是递增好像判断很多
我思想很乱
谁帮写一下

exit11

.版本 2
.支持库 iext2

.子程序 _按钮1_被单击

IP编辑框1.地址 ＝ 子程序1 (IP编辑框1.地址)

.子程序 子程序1, 文本型
.参数 IP, 文本型
.局部变量 起始, 文本型, , "4"

起始 ＝ 分割文本 (IP, “.”, )
.如果真 (取数组成员数 (起始) ＝ 0)
    返回 (“”)
.如果真结束
.判断开始 (到整数 (起始 [4]) ≥ 255)
    起始 [3] ＝ 到文本 (到整数 (起始 [3]) ＋ 1)

    起始 [4] ＝ “1”
.默认
    起始 [4] ＝ 到文本 (到整数 (起始 [4]) ＋ 1)
.判断结束

返回 (起始 [1] ＋ “.” ＋ 起始 [2] ＋ “.” ＋ 起始 [3] ＋ “.” ＋ 起始 [4])

hhfly

exit11 发表于 2011-8-20 16:42
.版本 2
.支持库 iext2

版主真热心,帮我解决下这个吧
http://www.3600gz.cn/thread-61705-1-1.html

s19876699

[e]
.版本 2
.支持库 iext2
.程序集 窗口程序集1
.程序集变量 ip, 文本型, , "4"
.程序集变量 起始, 整数型, , "4"
.子程序 _按钮1_被单击
.局部变量 IP1, 文本型
ip ＝ 分割文本 (IP编辑框1.地址, “.”, 4)
起始 [1] ＝ 到整数 (ip [1])
起始 [2] ＝ 到整数 (ip [2])
起始 [3] ＝ 到整数 (ip [3])
循环判断首（）
起始 [4] ＝ 到整数 (ip [4])+1
.判断开始 (到整数 (起始 [4]) ≥ 255)
    起始 [3] ＝ 到整数 (起始 [3]) ＋ 1
    起始 [4] ＝ 1
.默认
    .判断结束
循环判断尾（起始[3]<=255）  

IP1 ＝ 起始 [1] ＋ “.” ＋ 起始 [2] ＋ “.” ＋ 起始 [3] ＋ “.” ＋ 起始 [4]

I. P. Freely

是不是取本地IP？

s19876699

[e]
.版本 2
.支持库 iext2
.程序集 窗口程序集1
.程序集变量 ip, 文本型, , "4"
.程序集变量 起始, 整数型, , "4"
.子程序 _按钮1_被单击
.局部变量 IP1, 文本型
ip ＝ 分割文本 (IP编辑框1.地址, “.”, 4)
起始 [1] ＝ 到整数 (ip [1])
起始 [2] ＝ 到整数 (ip [2])
起始 [3] ＝ 到整数 (ip [3])
循环判断首（）
起始 [4] ＝ 到整数 (ip [4])+1
.判断开始 (到整数 (起始 [4]) ≥ 255)
    起始 [3] ＝ 到整数 (起始 [3]) ＋ 1
    起始 [4] ＝ 1
.默认
    .判断结束
  

IP1 ＝ 起始 [1] ＋ “.” ＋ 起始 [2] ＋ “.” ＋ 起始 [3] ＋ “.” ＋ 起始 [4]
循环判断尾（起始[3]<=255）
这次应该没什么问题了