查找替换TXT文本

现代大虾

查找替换TXT文本内容
1：点击添加，查找 编码.txt  判断这个文本里面每行 有没有等于  张三-10086-1001（匹配前两项），有的话提示资料已存在。
2：点击 “删除” 查找编码.txt 到 1001这一行，然后 张三-10086-1001    整行删除，换行符删除

mrzcpo

demo.zip (1 MB, 下载次数: 25)

2020-8-25 00:15 上传

点击文件名下载附件

mrzcpo

廿六

.版本 2

' 按钮添加-----------------------------------------
文本 ＝ 到文本 (读入文件 (“编码.txt”))
分割文本 ＝ 分割文本 (文本, #换行符, )
.计次循环首 (取数组成员数 (分割文本), i)
    .如果真 (寻找文本 (分割文本 [i], 编辑框_姓名.内容, , 假) ＞ 0 且 寻找文本 (分割文本 [i], 编辑框_电话.内容, , 假) ＞ 0)
        存在 ＝ 真
    .如果真结束

.计次循环尾 ()
.判断开始 (存在)
    信息框 (“资料已存在”, 0, , )
.默认
    文本 ＝ 文本 ＋ 编辑框_姓名.内容 ＋ “-” ＋ 编辑框_电话.内容 ＋ “-” ＋ 到文本 (1000 ＋ i) ＋ #换行符
.判断结束
' 按钮删除------------------------------------------
文本 ＝ 到文本 (读入文件 (“编码.txt”))
分割文本 ＝ 分割文本 (文本, #换行符, )
.计次循环首 (取数组成员数 (分割文本), i)
    .如果真 (寻找文本 (分割文本 [i], 编辑框_编号.内容, , 假) ＞ 0)
        文本_删除指定文本行 (文本, i)
        跳出循环 ()
    .如果真结束

.计次循环尾 ()

廿六

十二点出头发到现在终于发得出来了