无法实现查找制定文档的文本内容

zhanghuiyou · 发表于 2014-2-24 17:18:13

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

.版本 2

.程序集窗口程序集1

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

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

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

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

.如果结束

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

.如果结束

kingsee · 发表于 2014-2-24 17:18:14

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

聚义堂神话 · 发表于 2014-2-24 17:27:51

本帖最后由聚义堂神话于 2014-2-24 17:30 编辑

这个乱码了看看下面那个是不是你需要的

聚义堂神话 · 发表于 2014-2-24 17:28:53

.版本 2
.子程序 _按钮1_被单击
.局部变量文本内容, 文本型
.局部变量每行内容, 文本型, , "0"
.局部变量处理次数, 整数型
.局部变量打开文件, 文本型
.局部变量文件号, 整数型
.局部变量 txt文件内容, 文本型
.局部变量是否, 整数型
文件号＝打开文件 (“D:\1.txt”, , )
txt文件内容＝读入文本 (文件号, )
编辑框2.内容＝ “这里将显示所查找的内容和下一行内容”
文本内容＝到文本 (读入文件 (编辑框1.内容))
每行内容＝分割文本 (文本内容, #换行符, )
.计次循环首 (取数组成员数 (每行内容), 处理次数)
.如果真 (寻找文本 (每行内容 [处理次数], 编辑框1.内容, , 真) ≠ -1)
编辑框2.内容＝编辑框2.内容＋ #换行符＋ “★===================找到的项目===================★” ＋ #换行符＋每行内容 [处理次数] ＋ #换行符
是否＝ 1
.如果真结束
.计次循环尾 ()
.如果真 (是否＝ 0)
编辑框2.内容＝编辑框2.内容＋ #换行符＋ “★===================找到的项目===================★” ＋ #换行符＋ “[★★★提示:这是最后一行.下面没有内容了]”
信息框 (“未找到” ＋编辑框1.内容, 64, “提示”)
.如果真结束

zhanghuiyou · 发表于 2014-2-24 17:49:10

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

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

zhanghuiyou · 发表于 2014-2-24 17:50:32

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

你看看这个。。

zhanghuiyou · 发表于 2014-2-24 18:29:18

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

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

kingsee · 发表于 2014-2-24 20:23:54

本帖最后由 kingsee 于 2014-2-24 20:25 编辑

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

111.rar (2.65 KB, 下载次数: 3)

		自动登录	找回密码
密码			注册

[已解决] 无法实现查找制定文档的文本内容

最佳答案

评分

浏览过的版块