读取文本行内容并添加到下拉框怎么写

evol5201314

我的思路
取##kaishi文字的行=变量1
取#jieshu文字的行=变量2
循环（条件循环到变量2的行数结束）
取文本行变量1+1的行的文字  输出到文本中（数据库文本）（就是取多少行到多少行之间的内容）


写到数据库后就是这样
然后提取每行的关键字添加到下拉框
举例提取第1行的d1C添加到下拉框
提取第二行的d2C添加到下拉框
提取第三行的d2C添加到下拉框
点击生成的下拉框就提取该行内容到编辑框
更改编辑框内容 保存文本到数据库的指定行
求大佬帮我完善完善
最好数据库都不需要的  直接在源文件读取生成下拉框 直接可以修改那种 我写了半天没有思路

蛀牙

test.e (6.6 KB, 下载次数: 23)

2022-3-20 11:17 上传

点击文件名下载附件

evol5201314

#在这里快速回复#意图 读取指定文件 从文件中的多少行到多少行之间的内容##kaishi到 ##jieshu之间的内容 取每行的几个字添加到下拉菜单 下拉菜单我点击就读取该行的内容到文本编辑框 编辑框内容我修改点击确定 就会改变源文件的文本

Ruang

文本_取出中间文本（）
文本_替换（）

小磊哥来了

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
文件号	整数型

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

子程序名	返回值类型	公开	备 注
_组合框1_列表项被选择

如果真 (窗口1.组合框1.内容 ≠ “”)
窗口1.编辑框1.内容 ＝ 窗口1.组合框1.内容

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

变量名	类 型	静态	数组	备 注
临时文件文本	文本型

如果真 (窗口1.编辑框1.内容 ≠ 窗口1.组合框1.内容)
移到文件首 (文件号)
临时文件文本 ＝ 读入文本 (文件号, )
临时文件文本 ＝ 子文本替换 (临时文件文本, 窗口1.组合框1.内容, 窗口1.编辑框1.内容, 1, , 真)
关闭文件 (文件号)
写到文件 (取运行目录 () ＋ “\数据.txt”, 到字节集 (临时文件文本))
窗口1.组合框1.清空 ()
窗口1.组合框1.现行选中项 ＝ -1
窗口1.编辑框1.内容 ＝ “”
信息框 (“修改成功，请按读取数据按钮重新读取数据”, 0, “提示信息”, 窗口1)

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

变量名	类 型	静态	数组	备 注
临时文本	文本型

文件号 ＝ 打开文件 (取运行目录 () ＋ “\数据.txt”, #读写, #无限制 )
移到文件首 (文件号)
判断循环首 (真)
临时文本 ＝ 读入一行 (文件号)
判断 (临时文本 ＝ “##kaishi”)
调试输出 (“开始读取数据”)
判断 (临时文本 ＝ “##jieshu”)
调试输出 (“读取数据完毕”)
跳出循环 ()
窗口1.组合框1.加入项目 (临时文本, )

处理事件 ()
判断循环尾 ()
信息框 (“读取数据按成功”, 0, “提示信息”, 窗口1)
请采纳

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 文件号, 整数型<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> <br /> <br /> .子程序 _组合框1_列表项被选择<br /> <br /> .如果真 (窗口1.组合框1.内容 ≠ “”)<br />     窗口1.编辑框1.内容 ＝ 窗口1.组合框1.内容<br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮_修改_被单击<br /> .局部变量 临时文件文本, 文本型<br /> <br /> .如果真 (窗口1.编辑框1.内容 ≠ 窗口1.组合框1.内容)<br />     移到文件首 (文件号)<br />     临时文件文本 ＝ 读入文本 (文件号, )<br />     临时文件文本 ＝ 子文本替换 (临时文件文本, 窗口1.组合框1.内容, 窗口1.编辑框1.内容, 1, , 真)<br />     关闭文件 (文件号)<br />     写到文件 (取运行目录 () ＋ “\数据.txt”, 到字节集 (临时文件文本))<br />     窗口1.组合框1.清空 ()<br />     窗口1.组合框1.现行选中项 ＝ -1<br />     窗口1.编辑框1.内容 ＝ “”<br />     信息框 (“修改成功，请按读取数据按钮重新读取数据”, 0, “提示信息”, 窗口1)<br /> <br /> .如果真结束<br /> <br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 临时文本, 文本型<br /> <br /> 文件号 ＝ 打开文件 (取运行目录 () ＋ “\数据.txt”, #读写, #无限制)<br /> 移到文件首 (文件号)<br /> .判断循环首 (真)<br />     临时文本 ＝ 读入一行 (文件号)<br />     .判断开始 (临时文本 ＝ “##kaishi”)<br />         调试输出 (“开始读取数据”)<br />     .判断 (临时文本 ＝ “##jieshu”)<br />         调试输出 (“读取数据完毕”)<br />         跳出循环 ()<br />     .默认<br />         窗口1.组合框1.加入项目 (临时文本, )<br />     .判断结束<br /> <br />     处理事件 ()<br /> .判断循环尾 ()<br /> 信息框 (“读取数据按成功”, 0, “提示信息”, 窗口1)<br /> <br /> 请采纳

Ruang

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
数据源	文本型
取出数据	文本型	0

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
i	整数型

文本_取中间_批量 (数据源, “DATA|”, “|02|90”, 取出数据, , , , , , , )

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

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (取数组成员数 (取出数据), i)
如果真 (组合框1.取项目文本 (组合框1.现行选中项) ＝ 取出数据 [i])
文本_替换 (数据源, 1, , , 取出数据 [i], 编辑框1.内容, , , , , , , , )
跳出循环 ()

计次循环尾 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 数据源, 文本型<br /> .程序集变量 取出数据, 文本型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 i, 整数型<br /> <br /> 文本_取中间_批量 (数据源, “DATA|”, “|02|90”, 取出数据, , , , , , , )<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (取数组成员数 (取出数据), i)<br />     .如果真 (组合框1.取项目文本 (组合框1.现行选中项) ＝ 取出数据 <i>)<br />         文本_替换 (数据源, 1, , , 取出数据 <i>, 编辑框1.内容, , , , , , , , )<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()

我这边没有数据，无法调试，你自己试试吧