文本内容实现下拉选择

shiqing123

txt文本中有以下 100行数据（只列出4行举例）：
北京-100
上海-456
天津-741
南京-700   
............
要实现 100行数据都显示在易语言里而且选中某一个城市后，对应后面的数字会自动填入到对应的文本框中，如下:

222555222

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

判断 (文本_取出现次数 (列表框1.取项目文本 (列表框1.现行选中项), “※”) ＝ 0)
编辑框1.内容 ＝ 文本_取右边 (列表框1.取项目文本 (列表框1.现行选中项), “-”)
列表框1.置项目文本 (列表框1.现行选中项, “※” ＋ 列表框1.取项目文本 (列表框1.现行选中项))
信息框 (“选择过了”, 0, , )

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

变量名	类 型	静态	数组	备 注
返回文本	文本型		0
i	整数型

返回文本 ＝ 分割文本 ( #常量1, #换行符, )
列表框1.清空 ()
计次循环首 (取数组成员数 (返回文本), i)
列表框1.插入项目 (i － 1, 返回文本 [i], )
处理事件 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_列表框1_鼠标右键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

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

输入框 (, , , nr, , )
计次循环首 (列表框1.取项目数 (), i)
如果真 (文本_取左边 (列表框1.取项目文本 (i － 1), “-”) ＝ nr)
列表框1.现行选中项 ＝ i － 1

计次循环尾 ()
_列表框1_列表项被选择 ()

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

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

计次循环首 (列表框1.取项目数 (), i)
文本 ＝ 文本 ＋ 列表框1.取项目文本 (i － 1) ＋ #换行符
计次循环尾 ()
写到文件 (取运行目录 () ＋ “/输出文本.txt”, 到字节集 (编码_简体到BIG5 (文本)))

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _列表框1_列表项被选择<br /> <br /> <br /> .判断开始 (文本_取出现次数 (列表框1.取项目文本 (列表框1.现行选中项), “※”) ＝ 0)<br />     编辑框1.内容 ＝ 文本_取右边 (列表框1.取项目文本 (列表框1.现行选中项), “-”)<br />     列表框1.置项目文本 (列表框1.现行选中项, “※” ＋ 列表框1.取项目文本 (列表框1.现行选中项))<br /> .默认<br />     信息框 (“选择过了”, 0, , )<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 返回文本, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 返回文本 ＝ 分割文本 (#常量1, #换行符, )<br /> 列表框1.清空 ()<br /> .计次循环首 (取数组成员数 (返回文本), i)<br />     列表框1.插入项目 (i － 1, 返回文本 <i>, )<br />     处理事件 ()<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _列表框1_鼠标右键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 nr, 文本型<br /> <br /> 输入框 (, , , nr, , )<br /> .计次循环首 (列表框1.取项目数 (), i)<br />     .如果真 (文本_取左边 (列表框1.取项目文本 (i － 1), “-”) ＝ nr)<br />         列表框1.现行选中项 ＝ i － 1<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> _列表框1_列表项被选择 ()<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 文本, 文本型<br /> <br /> .计次循环首 (列表框1.取项目数 (), i)<br />     文本 ＝ 文本 ＋ 列表框1.取项目文本 (i － 1) ＋ #换行符<br /> <br /> .计次循环尾 ()<br /> 写到文件 (取运行目录 () ＋ “/输出文本.txt”, 到字节集 (编码_简体到BIG5 (文本)))

补充内容 (2025-8-9 21:50):
按钮1就是保存按钮

222555222

1.e (956.11 KB, 下载次数: 2)

昨天 15:57 上传

点击文件名下载附件

222555222

.版本 2

.子程序 _列表框1_列表项被选择

编辑框1.内容 ＝ 文本_取右边 (列表框1.取项目文本 (列表框1.现行选中项), “-”)

zainex

放到 节点 里cha询:

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
节点	节点

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

变量名	类 型	静态	数组	备 注
文本	文本型
数组	文本型		0
数	整数型
成员	文本型		0

文本 ＝ “北京-100” ＋ #换行符 ＋ “上海-456” ＋ #换行符 ＋ “天津-741” ＋ #换行符 ＋ “南京-700”
数组 ＝ 分割文本 (文本, #换行符, )
计次循环首 (取数组成员数 (数组), 数)
成员 ＝ 分割文本 (数组 [数], “-”, )
重定义数组 (成员, 真, 2)
节点.加入属性 (成员 [1], 成员 [2])
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_编辑框1_内容被改变

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

节点.取文本值 (编辑框1.内容, 文本)
编辑框2.内容 ＝ 文本

i支持库列表	支持库注释
EDataStructure	数据结构支持库

.版本 2<br /> .支持库 EDataStructure<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 节点, 节点<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本, 文本型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 数, 整数型<br /> .局部变量 成员, 文本型, , "0"<br /> <br /> 文本 ＝ “北京-100” ＋ #换行符 ＋ “上海-456” ＋ #换行符 ＋ “天津-741” ＋ #换行符 ＋ “南京-700”<br /> 数组 ＝ 分割文本 (文本, #换行符, )<br /> .计次循环首 (取数组成员数 (数组), 数)<br />     成员 ＝ 分割文本 (数组 [数], “-”, )<br />     重定义数组 (成员, 真, 2)<br />     节点.加入属性 (成员 [1], 成员 [2])<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _编辑框1_内容被改变<br /> .局部变量 文本, 文本型<br /> <br /> 节点.取文本值 (编辑框1.内容, 文本)<br /> 编辑框2.内容 ＝ 文本

效果:

完整例子.zip (1.33 KB, 下载次数: 1)

昨天 16:04 上传

点击文件名下载附件

222555222

导入文本.e (956.91 KB, 下载次数: 2)

昨天 16:05 上传

点击文件名下载附件

E小菜鸟

不借用模块，快速处理。 22.e (147.89 KB, 下载次数: 0)

昨天 16:17 上传

点击文件名下载附件

E小菜鸟

这个加了个实现下拉选择，导入文本直接粘贴到变量就行，更省时间

花间一壶酒

正则.创建（编辑框1.内容+“-(\d+)”,编辑框2. 内容）

shiqing123

E小菜鸟 发表于 2025-8-9 16:27
这个加了个实现下拉选择，导入文本直接粘贴到变量就行，更省时间

列表框 项目有100多个 ，4个是举例，不可能一个一个添加进去吧，有什么办法把所有项目添加到列表框吗