精易论坛

标题: 无法实现查找制定文档的文本内容 [打印本页]

作者: zhanghuiyou 时间: 2014-2-24 17:18
标题: 无法实现查找制定文档的文本内容
我想查询一个指定的文本文档内的内容  查找到的话就在编辑框2里显示结果  没有查询到的话弹出信息框现在的问题是我代码写完了，不知道哪里出错了  在编辑框1里输入内容始终提示未找到。。。  希望大家帮我看看解决下谢谢。。。

.版本 2

.程序集窗口程序集1

.子程序 _按钮1_被单击
.局部变量文本内容, 文本型
.局部变量每行内容, 文本型, , "0"
.局部变量处理次数, 整数型
.局部变量打开文件, 文本型
.局部变量文件号, 整数型
.局部变量 txt文件内容, 文本型

文件号＝打开文件 (“D:\1.txt”, , )
txt文件内容＝读入文本 (文件号, )
编辑框2.内容＝ “这里将显示所查找的内容和下一行内容”
处理次数＝ 0
文本内容＝到文本 (读入文件 (编辑框1.内容))
每行内容＝分割文本 (文本内容, #换行符, )
.计次循环首 (取数组成员数 (每行内容), 处理次数)

.如果 (寻找文本 (每行内容 [处理次数], 编辑框1.内容, , 真) ＝ -1)

.否则
      .如果 (处理次数＝取数组成员数 (每行内容))
         编辑框2.内容＝编辑框2.内容＋ #换行符＋ “★===================找到的项目===================★” ＋ #换行符＋每行内容 [处理次数] ＋ #换行符＋ “[★★★提示:这是最后一行.下面没有内容了]”
      .否则
         编辑框2.内容＝编辑框2.内容＋ #换行符＋ “★===================找到的项目===================★” ＋ #换行符＋每行内容 [处理次数] ＋ #换行符＋每行内容 [处理次数＋ 1]
      .如果结束

.如果结束

.计次循环尾 ()
.如果 (编辑框2.内容＝ “这里将显示所查找的内容和下一行内容”)
信息框 (“未找到” ＋编辑框1.内容, 64, “提示”)
.否则

.如果结束

QQ截图20140224171428.png (5.95 KB, 下载次数: 0)

这个是界面说明

作者: kingsee 时间: 2014-2-24 17:18
一
txt文件内容＝读入文本 (文件号, )
在上面这句代码下面加关闭文件 (文件号)
二
寻找文本 (每行内容 [处理次数], 编辑框1.内容, , 真) ＝ -1
这个修改成
寻找文本 (txt文件内容,每行内容 [处理次数, , 真) ＝ -1

作者: 聚义堂神话 时间: 2014-2-24 17:27
提示: 作者被禁止或删除内容自动屏蔽

作者: 聚义堂神话 时间: 2014-2-24 17:28
提示: 作者被禁止或删除内容自动屏蔽

作者: zhanghuiyou 时间: 2014-2-24 17:49

聚义堂神话发表于 2014-2-24 17:28
.版本 2
.子程序 _按钮1_被单击
.局部变量文本内容, 文本型

还是不行我把源程序上传吧你看看、、、

作者: zhanghuiyou 时间: 2014-2-24 17:50

聚义堂神话发表于 2014-2-24 17:28
.版本 2
.子程序 _按钮1_被单击
.局部变量文本内容, 文本型

你看看这个。。

111.rar

1.38 KB, 下载次数: 2

源程序

作者: zhanghuiyou 时间: 2014-2-24 18:29

kingsee 发表于 2014-2-24 18:10
一
txt文件内容＝读入文本 (文件号, )
在上面这句代码下面加关闭文件 (文件号)

还是不行。。我把源程序发给你吧。你看下。。

111.rar

1.38 KB, 下载次数: 2

作者: kingsee 时间: 2014-2-24 20:23
本帖最后由 kingsee 于 2014-2-24 20:25 编辑

zhanghuiyou 发表于 2014-2-24 18:29
还是不行。。我把源程序发给你吧。你看下。。

111.rar (2.65 KB, 下载次数: 3)
这样没问题啊，我测试过了
实在不行就联系我QQ远程帮你看下

欢迎光临精易论坛 (https://125.confly.eu.org/)