关于ini或者txt读写判断的问题

xiaohei309

求助啦。小弟最后2个币了！真的拜托大家了！

小弟学E四天了。今天突发奇想。

比如说   我创建了一个程序，每一次启动都获取外网ID地址和物理地址 把它保存在IP.ini或者ip.txt中。
在下一次启动程序的时候判断，如果出现IP相同结束程序 ，IP没有相同的。启动程序。
于是我的代码是这样写


.版本 2
.支持库 internet
.支持库 EThread

.子程序 IP判断
.参数 上次的IP, 文本型
.参数 获取的IP, 文本型
.参数 物理地址, 文本型

上次的IP ＝ 到文本 (读入文件 (取运行目录 () ＋ “\IP.ini”))
获取的IP ＝ 到文本 (HTTP读文件 (“h ttp://vqin.net/tools/getmyip.php”))
物理地址 ＝ 到文本 (HTTP读文件 (“h ttp://vqin.net/tools/getmyadd.php?ip=” ＋ 获取的IP))

.判断开始 (获取的IP ≠ “”)
    写到文件 (取运行目录 () ＋ “\IP.ini”, 到字节集 (获取的IP))
    .判断开始 (获取的IP ＝ 上次的IP)
        信息框 (“IP地址相同，注册会无效。建议重新断开连接再联网”, 0, “提示”)
        结束 ()
    .默认

    .判断结束

.默认

.判断结束
标签1.标题 ＝ 到文本 (获取的IP ＋ 物理地址)


.子程序 __启动窗口_创建完毕

启动线程 (&IP判断, , )


但是问题出来了。每一次启动的时候IP会写入，但是如果你换了IP，再写入的时候就把原本记录的IP删掉了。这样就达不到有效的IP记录判断了。

上网问了别人说加#换行符 ，可是我加进去了 最多也是第一行空白 第二行有个IP 第二次不同IP的时候一样把原有记录的IP覆盖掉

所以 我所需要解决的问题是

如何能实现启动程序后，每一次IP的不同都记录在IP.ini或者IP.txt里面，每一次启动程序都会判断IP.INI或者IP.TXT里面有无重复IP，有的话结束程序提示重复。没有的话继续运行程序！

麻烦高手给予全部源代码，发扬国人精神，助人为乐，与我这个菜鸟一起探讨E的风采！

fysccm

.版本 2
.支持库 internet
.支持库 EThread
.程序集 窗口程序集1
.子程序 IP判断
.参数 上次的IP, 文本型
.参数 获取的IP, 文本型
.参数 物理地址, 文本型
.局部变量 IP数组, 文本型, , "0"
.局部变量 计次, 整数型
上次的IP ＝ 到文本 (读入文件 (取运行目录 () ＋ “\IP.ini”))
IP数组 ＝ 分割文本 (上次的IP, “|”, )
获取的IP ＝ 到文本 (HTTP读文件 (“h ttp://vqin.net/tools/getmyip.php”))
物理地址 ＝ 到文本 (HTTP读文件 (“h ttp://vqin.net/tools/getmyadd.php?ip=” ＋ 获取的IP))
.判断开始 (获取的IP ≠ “”)
    .计次循环首 (取数组成员数 (IP数组), 计次)
        .判断开始 (获取的IP ＝ IP数组 [计次])
            信息框 (“IP地址相同，注册会无效。建议重新断开连接再联网”, 0, “提示”)
            结束 ()
        .默认
        .判断结束
    .计次循环尾 ()
    写到文件 (取运行目录 () ＋ “\IP.ini”, 到字节集 (获取的IP ＋ “|” ＋ 上次的IP))
.默认
.判断结束
标签1.标题 ＝ 到文本 (获取的IP ＋ 物理地址)

.子程序 __启动窗口_创建完毕
启动线程 (&IP判断, , )



//////////////////////////////////////////////////////////////
我试了一下，应该可以了。
写到文件 (取运行目录 () ＋ “\IP.ini”, 到字节集 (获取的IP ＋ “|” ＋ 上次的IP))
这一句应该在判断之后而不是之前(你对比一下就看出来了)。要不然会写入重复的内容到IP.ini里。

airpppp

写到文件 (取运行目录 () ＋ “\IP.ini”, 到字节集 (获取的IP))

改成:

写到文件 (取运行目录 () ＋ “\IP.ini”, 读入文件 (取运行目录 () ＋ “\IP.ini”) ＋ 到字节集 (#换行符 ＋ 获取的IP))

小磊

首先我假设你记录的IP文本内容为
127.0.0.1
127.0.0.2
127.0.0.1
开始写代码，首先用“分割文本（）”命令，把以上内容读入到一个文本型数组变量里然后
你可以参考世.....恒第16集里的冒泡算法来写，太晚了就不帮你写代码了，这些东西还是自己实践过以后才能加深印象

xiaohei309

感谢二楼的代码。顺便感谢版主的支持！

经过测试 使用了二楼的代码的时候。。。IP地址是变成这样输入了。
123.123.123.123
123.123.123.123
......

但是如果程序关闭后启动，IP重复就一直这样输入。第一次会提示IP地址重复。但是多运行两次。就不会提示了。会一直写入IP地址。也达不到判断IP地址的问题解决。
但是还是要谢谢你！！

airpppp

感谢二楼的代码。顺便感谢版主的支持！

经过测试 使用了二楼的代码的时候。。。IP地址是变成这样输入了。 ...
xiaohei309 发表于 2010-8-5 02:54

    那是你其它代码的问题,学习就得自己钻研,都让别人把代码写全了,那还学什么?只能说明一点:借"学"之名,借别人之手完成自己需要的工具!

xiaohei309

郁闷 依旧无人能回答我这个问题！

wojiaoa3

学习了，我还处于小菜状态！~~~

xiaohei309

不知道为什么

我编译后 无法获取IP地址了。并且 也无法写出ip.ini

白河小鸟

.版本 2
.支持库 eAPI

.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 e, 整数型

标签1.标题 ＝ 取IP地址 ()
.计次循环首 (到整数 (读配置项 (取运行目录 () ＋ “\ip.ini”, “ip”, “IP个数”, )), i)
    .如果真 (读配置项 (取运行目录 () ＋ “\ip.ini”, “ip”, “ip” ＋ 到文本 (i), ) ＝ 标签1.标题)
        e ＝ 1
    .如果真结束

.计次循环尾 ()
.判断开始 (e ＝ 1)
    信息框 (“IP有了!”, 0, “提示”)
.默认
    写配置项 (取运行目录 () ＋ “\ip.ini”, “ip”, “ip” ＋ 到文本 (到整数 (读配置项 (取运行目录 () ＋ “\ip.ini”, “ip”, “IP个数”, )) ＋ 1), 标签1.标题)
    写配置项 (取运行目录 () ＋ “\ip.ini”, “ip”, “IP个数”, 到文本 (到整数 (读配置项 (取运行目录 () ＋ “\ip.ini”, “ip”, “IP个数”, )) ＋ 1))
    信息框 (“没有记录过的IP现在写入”, 0, “提示”)
.判断结束


.子程序 _按钮2_被单击
.局部变量 R
.局部变量 Q

Q ＝ 0
.判断开始 (标签1.标题 ≠ “”)
    .判断开始 (到整数 (读配置项 (取运行目录 () ＋ “\ip.ini”, “ip”, “IP个数”, )) ＝ 1)
        信息框 (“你上次没有IP记录”, 0, “提示”)
    .默认
        .计次循环首 (到整数 (读配置项 (取运行目录 () ＋ “\ip.ini”, “ip”, “IP个数”, )), R)
            .如果真 (读配置项 (取运行目录 () ＋ “\ip.ini”, “ip”, “ip” ＋ 到文本 (R), ) ＝ 标签1.标题)
                Q ＝ R
                跳出循环 ()
            .如果真结束

        .计次循环尾 ()
        .判断开始 (Q ＞ 0)
            .判断开始 (读配置项 (取运行目录 () ＋ “\ip.ini”, “ip”, “ip” ＋ 到文本 (Q － 1), ) ≠ “”)
                标签1.标题 ＝ “你上次的IP” ＋ 读配置项 (取运行目录 () ＋ “\ip.ini”, “ip”, “ip” ＋ 到文本 (Q － 1), )
            .默认
                信息框 (“记录出错，你可能删除其中记录或修改IP.ini文件！”, 0, “提示”)
            .判断结束

        .默认

        .判断结束

    .判断结束

.默认
    信息框 (“你上次没有IP记录”, 0, “提示”)

.判断结束