读取文本的方法

liuyiyi

例如我的PZ.txt文本里有多行BName=1；BName=2；BName=*； BName=后面的值是变化的，我要根据txt里有多少条bname就全取出来，每条BName为一行

galbendanmy

bname.rar (27.07 KB, 下载次数: 10)

2015-8-8 10:21 上传

点击文件名下载附件 不好意思刚帮人弄反的。。。

galbendanmy

bname.rar (1 KB, 下载次数: 5)

2015-8-8 10:16 上传

点击文件名下载附件 看下是不是你要的

liuyiyi

galbendanmy 发表于 2015-8-8 10:16
看下是不是你要的

是不是发错文件了？

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		请在本子程序中放置动态链接库初始化代码

_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 返回值被忽略。

子程序名	返回值类型	公开	备 注
_临时子程序

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
a	打印机
b	整数型

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
b ＝ a.取窗口句柄 ()

.版本 2<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 请在本子程序中放置动态链接库初始化代码<br /> <br /> <br /> _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码<br /> 返回 (0)  ' 返回值被忽略。<br /> <br /> .子程序 _临时子程序, , 公开<br /> <br /> <br /> <br /> .子程序 子程序1, , 公开<br /> .局部变量 a, 打印机<br /> .局部变量 b, 整数型<br /> <br /> ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。<br /> b ＝ a.取窗口句柄 ()

liuyiyi

galbendanmy 发表于 2015-8-8 10:21
不好意思刚帮人弄反的。。。

  

子程序名	返回值类型	公开	备 注
读取_配置文本项	整数型		用于读取目录里的PZ.txt文件,成功返回数量，失败返回0
参数名	类 型	参考	可空	数组	备 注
关键词	文本型				用来读取的关键词
返回文本数组	文本型				如果多条的话

变量名	类 型	静态	数组	备 注
配置文件路径	文本型
原文本内容	文本型
文本数量	整数型
文本长度	整数型
所在行	整数型
i	整数型
分割文本数组	文本型		0

配置文件路径 ＝ 取运行目录 () ＋ “\pz.txt”
如果真 (文件是否存在 (配置文件路径) ＝ 假)
写到文件 (配置文件路径, #文件_配置项文本 )
原文本内容 ＝ 到文本 (读入文件 (配置文件路径))
文本数量 ＝ 文本_取出现次数 (原文本内容, 关键词, 假)
如果真 (文本数量 ＝ 0)
返回 (0)
如果真 (文本数量 ＝ 1)
所在行 ＝ 文本_取文本所在行 (原文本内容, 关键词)
加入成员 (返回文本数组, 文本_取指定变量文本行 (原文本内容, 所在行))
返回 (1)
文本长度 ＝ 文本_取长度 (关键词)
分割文本数组 ＝ 分割文本 (原文本内容, #换行符, )
计次循环首 (取数组成员数 (分割文本数组), i)
如果真 (取文本左边 (分割文本数组 [i], 文本长度) ＝ 关键词)
加入成员 (返回文本数组, 分割文本数组 [i])

计次循环尾 ()
返回 (取数组成员数 (返回文本数组))

.版本 2<br /> <br /> .子程序 读取_配置文本项, 整数型, , 用于读取目录里的PZ.txt文件,成功返回数量，失败返回0<br /> .参数 关键词, 文本型, , 用来读取的关键词<br /> .参数 返回文本数组, 文本型, 数组, 如果多条的话<br /> .局部变量 配置文件路径, 文本型<br /> .局部变量 原文本内容, 文本型<br /> .局部变量 文本数量, 整数型<br /> .局部变量 文本长度, 整数型<br /> .局部变量 所在行, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 分割文本数组, 文本型, , "0"<br /> <br /> 配置文件路径 ＝ 取运行目录 () ＋ “\pz.txt”<br /> .如果真 (文件是否存在 (配置文件路径) ＝ 假)<br />     写到文件 (配置文件路径, #文件_配置项文本)<br /> .如果真结束<br /> 原文本内容 ＝ 到文本 (读入文件 (配置文件路径))<br /> <br /> 文本数量 ＝ 文本_取出现次数 (原文本内容, 关键词, 假)<br /> .如果真 (文本数量 ＝ 0)<br />     返回 (0)<br /> .如果真结束<br /> .如果真 (文本数量 ＝ 1)<br />     所在行 ＝ 文本_取文本所在行 (原文本内容, 关键词)<br />     加入成员 (返回文本数组, 文本_取指定变量文本行 (原文本内容, 所在行))<br />     返回 (1)<br /> .如果真结束<br /> 文本长度 ＝ 文本_取长度 (关键词)<br /> 分割文本数组 ＝ 分割文本 (原文本内容, #换行符, )<br /> .计次循环首 (取数组成员数 (分割文本数组), i)<br />     .如果真 (取文本左边 (分割文本数组 <i>, 文本长度) ＝ 关键词)<br />         加入成员 (返回文本数组, 分割文本数组 <i>)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 返回 (取数组成员数 (返回文本数组))

谢谢解决了，顺便贴上源码

galbendanmy

liuyiyi 发表于 2015-8-8 10:36
[e=0].版本 2

.子程序 读取_配置文本项, 整数型, , 用于读取目录里的PZ.txt文件,成功返回数量，失败返 ...

原来你要读配置项这种。。我以为你就要读每一行的数据。。能解决就好哈~