这个是不是我写错了 提示删除了 不保存 什么情况

cpo0029

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
文本	文本型
文本数组	文本型		0
计次	整数型
取出文件名格式	文本型
文件路径	文本型
文件名	文本型

文件路径 ＝ 编辑框1.内容
取出文件名格式 ＝ 取文本右边 (文件路径, 取文本长度 (文件路径) － 倒找文本 (文件路径, “\”, , 假))
文件名 ＝ 取文本左边 (取出文件名格式, 倒找文本 (取出文件名格式, “.”, , 假) － 1)
编辑框2.内容 ＝ 文件名
文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ 文件名))
文本数组 ＝ 分割文本 (文本, #换行符, )
' 文本 ＝ “”
计次循环首 (取数组成员数 (文本数组), 计次)
如果真 (寻找文本 (文本数组 [计次], “option 43 hex 8007.0000.0200”, , 假) ＝ -1)
如果 (取数组成员数 (文本) ＝ 计次)
文本 ＝ 文本 ＋ 文本数组 [计次]
文本 ＝ 文本 ＋ 文本数组 [计次] ＋ #换行符

如果真 (寻找文本 (文本数组 [计次], “50 permit tcp host any eq 4430”, , 假) ＝ -1)
如果 (取数组成员数 (文本) ＝ 计次)
文本 ＝ 文本 ＋ 文本数组 [计次]
文本 ＝ 文本 ＋ 文本数组 [计次] ＋ #换行符


如果真 (寻找文本 (文本数组 [计次], “70 permit tcp host any eq 23”, , 假) ＝ -1)
如果 (取数组成员数 (文本) ＝ 计次)
文本 ＝ 文本 ＋ 文本数组 [计次]
文本 ＝ 文本 ＋ 文本数组 [计次] ＋ #换行符


如果真 (寻找文本 (文本数组 [计次], “90 permit tcp host any eq 22”, , 假) ＝ -1)
如果 (取数组成员数 (文本) ＝ 计次)
文本 ＝ 文本 ＋ 文本数组 [计次]
文本 ＝ 文本 ＋ 文本数组 [计次] ＋ #换行符


如果真 (寻找文本 (文本数组 [计次], “!下载配置文件”, , 假) ＝ -1)
如果 (取数组成员数 (文本) ＝ 计次)
文本 ＝ 文本 ＋ 文本数组 [计次]
文本 ＝ 文本 ＋ 文本数组 [计次] ＋ #换行符



计次循环尾 ()
写到文件 (取运行目录 () ＋ 文件名, 到字节集 (文本))
信息框 (“删除成功”, 0, )
编辑框2.内容 ＝ “”
编辑框1.内容 ＝ “”

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 计次, 整数型<br /> .局部变量 取出文件名格式, 文本型<br /> .局部变量 文件路径, 文本型<br /> .局部变量 文件名, 文本型<br /> <br /> 文件路径 ＝ 编辑框1.内容<br /> 取出文件名格式 ＝ 取文本右边 (文件路径, 取文本长度 (文件路径) － 倒找文本 (文件路径, “\”, , 假))<br /> 文件名 ＝ 取文本左边 (取出文件名格式, 倒找文本 (取出文件名格式, “.”, , 假) － 1)<br /> 编辑框2.内容 ＝ 文件名<br /> 文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ 文件名))<br /> 文本数组 ＝ 分割文本 (文本, #换行符, )<br /> ' 文本 ＝ “”<br /> .计次循环首 (取数组成员数 (文本数组), 计次)<br />     .如果真 (寻找文本 (文本数组 [计次], “option 43 hex 8007.0000.0200”, , 假) ＝ -1)<br />         .如果 (取数组成员数 (文本) ＝ 计次)<br />             文本 ＝ 文本 ＋ 文本数组 [计次]<br />         .否则<br />             文本 ＝ 文本 ＋ 文本数组 [计次] ＋ #换行符<br />         .如果结束<br /> <br />         .如果真 (寻找文本 (文本数组 [计次], “50 permit tcp host any eq 4430”, , 假) ＝ -1)<br />             .如果 (取数组成员数 (文本) ＝ 计次)<br />                 文本 ＝ 文本 ＋ 文本数组 [计次]<br />             .否则<br />                 文本 ＝ 文本 ＋ 文本数组 [计次] ＋ #换行符<br />             .如果结束<br /> <br />         .如果真结束<br /> <br />         .如果真 (寻找文本 (文本数组 [计次], “70 permit tcp host any eq 23”, , 假) ＝ -1)<br />             .如果 (取数组成员数 (文本) ＝ 计次)<br />                 文本 ＝ 文本 ＋ 文本数组 [计次]<br />             .否则<br />                 文本 ＝ 文本 ＋ 文本数组 [计次] ＋ #换行符<br />             .如果结束<br /> <br />         .如果真结束<br /> <br />         .如果真 (寻找文本 (文本数组 [计次], “90 permit tcp host any eq 22”, , 假) ＝ -1)<br />             .如果 (取数组成员数 (文本) ＝ 计次)<br />                 文本 ＝ 文本 ＋ 文本数组 [计次]<br />             .否则<br />                 文本 ＝ 文本 ＋ 文本数组 [计次] ＋ #换行符<br />             .如果结束<br /> <br />         .如果真结束<br /> <br />         .如果真 (寻找文本 (文本数组 [计次], “!下载配置文件”, , 假) ＝ -1)<br />             .如果 (取数组成员数 (文本) ＝ 计次)<br />                 文本 ＝ 文本 ＋ 文本数组 [计次]<br />             .否则<br />                 文本 ＝ 文本 ＋ 文本数组 [计次] ＋ #换行符<br />             .如果结束<br /> <br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 写到文件 (取运行目录 () ＋ 文件名, 到字节集 (文本))<br /> 信息框 (“删除成功”, 0, )<br /> 编辑框2.内容 ＝ “”<br /> 编辑框1.内容 ＝ “”

大司命

你的代码无论执行成功与否最后都会提示删除成功，其次取运行目录返回的目录不含 “\” 结尾~

  

文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\” ＋ 文件名))  ' ***
' ***
写到文件 (取运行目录 () ＋ “\” ＋ 文件名, 到字节集 (文本))

文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\” ＋ 文件名))  ' ***<br /> ' ***<br /> 写到文件 (取运行目录 () ＋ “\” ＋ 文件名, 到字节集 (文本))

走一回

话说你删除了什么东西?

cpo0029

走一回 发表于 2019-11-19 20:27
话说你删除了什么东西?

90 permit tcp host any eq 22 里面指定的内容