易语言新手遇到点问题

℡小疯、

我想实现一个简单的程序，还请大神帮下忙，谢谢。

左边框列表里是所有名字的集合，我想实现：在按钮左边那个编辑框内输入名字的每个字的首写字母，然后自动添加到上边那个列表框里，如果有同音的两个名字，弹出选项手动选择需要的那个，然后接着输入下一个名字，按照先后顺序加入到上边列表框内。
点击按钮自动复制列表框内当前选中项的名字。 如果有类似的组件或者方法能够替代的话也可以。

感谢所有进来浏览的坛友

界面源码：https://wwa.lanzouj.com/ieFOJkl5mra

JusonR

https://wwa.lanzouj.com/ijpekkldb6b

[Asm] 纯文本查看 复制代码

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 相同名字, 文本型, , "0", 添加一个数组方便

.子程序 _按钮1_被单击
.局部变量 i, 整数型

清除数组 (相同名字)  ' 清除相同名字，后面要用，不清除会重复上一个相同名字数组
.计次循环首 (列表框1.取项目数 (), i)  ' 取所有表里的人名总数
    .如果真 (编辑框1.内容 ＝ “”)  ' 如果没输入直接返回，不加可能出现BUG
        返回 ()
    .如果真结束
    .如果真 (输入字比较 (编辑框1.内容, 列表框1.取项目文本 (i － 1), 真, ))  ' 比较输入的拼音和列表里人名的拼音首字母
        加入成员 (相同名字, 列表框1.取项目文本 (i － 1))  ' 保存到数组，因为有可能多于1个不好弄
    .如果真结束

.计次循环尾 ()
.如果真 (取数组成员数 (相同名字) ＞ 1)  ' 相同名字多于1个的情况
    .计次循环首 (取数组成员数 (相同名字), i)  ' 遍历所有相同名字的数组
        .如果真 (信息框 (相同名字 [i], 1, “相同名字” ＋ 到文本 (i), ) ＝ 0)  ' 弹出信息框选择，0是确定，1是取消
            列表框2.加入项目 (相同名字 [i], )  ' 按先后顺序加入到列表框2里
        .如果真结束

    .计次循环尾 ()

.如果真结束
.如果真 (取数组成员数 (相同名字) ＝ 1)  ' 相同名字等于1个的情况
    列表框2.加入项目 (相同名字 [1], )  ' 加入到列表框2里
.如果真结束
编辑框1.内容 ＝ “”  ' 清除编辑框1的内容，不用每次都手动删除，不需要就删除这行

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

编辑框1.内容 ＝ 列表框1.取项目文本 (列表框1.现行选中项)  ' 鼠标点击列表框1的时候，名字出现在编辑框1里，自动复制

温柔的笑

没有下载e语言，给你说下思路，编辑框有个输入状态子程序在界面左边下拉菜单（先选中编辑框），然后子程序下面添加数值型变量，计次循环首（取列表框成员数，变量），然后取出列表框第变量个标题的第一个汉字转成拼音，取出第一个字母，判断字母是否等于编辑框1.内容，真的列表框2插入

浴火凤凰_2020

这个难点在于 你列表里的文字 是固定吗？固定 的话 ，简单了  需要提前把项目的首字母固定写死。
文字内容不固定的话 最好找一个第三方的汉字转拼音的库来处理

b0y

等一会我给你改改

b0y

https://b0y.lanzoux.com/ii83dklj7kh

℡小疯、

b0y 发表于 2021-1-20 10:35
https://b0y.lanzoux.com/ii83dklj7kh

谢谢，你和楼上那位的差不多，都是输入完后需要手动去点击的，不过你这个存在诸多bug

b0y

℡小疯、 发表于 2021-1-20 10:50
谢谢，你和楼上那位的差不多，都是输入完后需要手动去点击的，不过你这个存在诸多bug

只有一个符合的 会自动添加的。多个需要手动选择。bug是什么

℡小疯、

b0y 发表于 2021-1-20 10:51
只有一个符合的 会自动添加的。多个需要手动选择。bug是什么

输入zzy（章子怡）不会自动添加（这是bug），自动添加完后，不自动清空编辑框（这是缺点），如果出现同音名字的话能用键盘选择是最好

b0y

℡小疯、 发表于 2021-1-20 10:57
输入zzy（章子怡）不会自动添加（这是bug），自动添加完后，不自动清空编辑框（这是缺点），如果出现同音 ...

zzy不是bug 因为zh才对 清空编辑框你自己加一句代码就可以了  键盘选择你没提这个需求- -  .

我在帮你改改