拼音找文字

古巷孤猫

补充内容 (2023-9-17 23:45):
有一篇文本，存在 锦衣 进一 仅以 金逸 金一  这些字，但是他们的拼音都是 jin yi   怎么通过拼音来定位找出这些字呢

时髦猪

位置是我计算的是一个字符代表一个位置，文字符号空格换行都算一个位置

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
文字	文本型	0
拼音	文本型	0

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

启动线程 (&子程序1, , )

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

变量名	类 型	静态	数组	备 注
查找	文本型
分割	文本型		0
找到	整数型		0
i	整数型
j	整数型
相似度	整数型
最终找到	整数型		0

查找 ＝ 文本_转拼音 (编辑框2.内容, 真, , )
分割 ＝ 分割文本 (查找, “ ”, )
如果真 (取数组成员数 (分割) ≠ 0)
数组_寻找数组 (拼音, 分割 [1], 找到)  ' 先找出第一个字拼音一样的位置
计次循环首 (取数组成员数 (找到), i)
计次循环首 (取数组成员数 (分割) － 1, j)
如果 (拼音 [找到 [i] ＋ j] ＝ 分割 [j ＋ 1])
相似度 ＝ 相似度 ＋ 1
跳出循环 ()

计次循环尾 ()
如果真 (相似度 ＋ 1 ＝ 取数组成员数 (分割))
加入成员 (最终找到, 找到 [i])
相似度 ＝ 0
计次循环尾 ()
调试输出 (最终找到, 文字 [最终找到 [1]], 文字 [最终找到 [1] ＋ 1], 拼音 [最终找到 [1]], 拼音 [最终找到 [1] ＋ 1])
编辑框1.加入文本 (“共找到” ＋ 查找 ＋ “的中文” ＋ 到文本 (取数组成员数 (最终找到)) ＋ “个” ＋ #换行符 )
计次循环首 (取数组成员数 (最终找到), i)
编辑框1.加入文本 (“找到位置：” ＋ 到文本 (最终找到 [i]) ＋ “  找到词：”)
计次循环首 (取数组成员数 (分割), j)
编辑框1.加入文本 (文字 [最终找到 [i] ＋ j － 1])
计次循环尾 ()
编辑框1.加入文本 ( #换行符 )
计次循环尾 ()

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

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

文本_逐字分割 ( #文字, 文字)
计次循环首 (取数组成员数 (文字), i)
加入成员 (拼音, 文本_转拼音 (文字 [i], 假, , ))
计次循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 文字, 文本型, , "0"<br /> .程序集变量 拼音, 文本型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 启动线程 (&子程序1, , )<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 查找, 文本型<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 找到, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 相似度, 整数型<br /> .局部变量 最终找到, 整数型, , "0"<br /> <br /> 查找 ＝ 文本_转拼音 (编辑框2.内容, 真, , )<br /> 分割 ＝ 分割文本 (查找, “ ”, )<br /> .如果真 (取数组成员数 (分割) ≠ 0)<br />     数组_寻找数组 (拼音, 分割 [1], 找到)  ' 先找出第一个字拼音一样的位置<br />     .计次循环首 (取数组成员数 (找到), i)<br />         .计次循环首 (取数组成员数 (分割) － 1, j)<br />             .如果 (拼音 [找到 <i> ＋ j] ＝ 分割 [j ＋ 1])<br />                 相似度 ＝ 相似度 ＋ 1<br />             .否则<br />                 跳出循环 ()<br />             .如果结束<br /> <br />         .计次循环尾 ()<br />         .如果真 (相似度 ＋ 1 ＝ 取数组成员数 (分割))<br />             加入成员 (最终找到, 找到 <i>)<br />         .如果真结束<br />         相似度 ＝ 0<br />     .计次循环尾 ()<br />     调试输出 (最终找到, 文字 [最终找到 [1]], 文字 [最终找到 [1] ＋ 1], 拼音 [最终找到 [1]], 拼音 [最终找到 [1] ＋ 1])<br />     编辑框1.加入文本 (“共找到” ＋ 查找 ＋ “的中文” ＋ 到文本 (取数组成员数 (最终找到)) ＋ “个” ＋ #换行符)<br />     .计次循环首 (取数组成员数 (最终找到), i)<br />         编辑框1.加入文本 (“找到位置：” ＋ 到文本 (最终找到 <i>) ＋ “  找到词：”)<br />         .计次循环首 (取数组成员数 (分割), j)<br />             编辑框1.加入文本 (文字 [最终找到 <i> ＋ j － 1])<br />         .计次循环尾 ()<br />         编辑框1.加入文本 (#换行符)<br />     .计次循环尾 ()<br /> <br /> <br /> <br /> <br /> <br /> .如果真结束<br /> <br /> <br /> <br /> <br /> .子程序 子程序1<br /> .局部变量 i, 整数型<br /> <br /> 文本_逐字分割 (#文字, 文字)<br /> .计次循环首 (取数组成员数 (文字), i)<br />     加入成员 (拼音, 文本_转拼音 (文字 <i>, 假, , ))<br /> .计次循环尾 ()

东冬

精易模块有个命令叫文本转拼音，全部汉字转拼音逐个对比筛选试试呢

古巷孤猫

刚才没打出去字就发出帖子了，内容在补充

古巷孤猫

东冬 发表于 2023-9-17 23:47
精易模块有个命令叫文本转拼音，全部汉字转拼音逐个对比筛选试试呢

好的谢谢  我试一下

古巷孤猫

东冬 发表于 2023-9-17 23:47
精易模块有个命令叫文本转拼音，全部汉字转拼音逐个对比筛选试试呢

文本里面的字是不固定的，逐个对比达不到效果，还有没有其他方法呢，我根据你提的意见用的是逐个+1的方式来对比，可是文本上万个字的情况下循环就得达到至少一亿次，因为每个字都要循环对比一万次，再加内部循环就更多了

b0y

把全部字的拼音生成出来 保存到文本变量  然后直接寻找文本来找呢

Suky

b0y 发表于 2023-9-18 00:19
把全部字的拼音生成出来 保存到文本变量  然后直接寻找文本来找呢

问题来了，就算找到了拼音位置，怎么确定原文本中汉字位置呢？
毕竟读音不同   拼音长度也不同   难以确定

补充内容 (2023-9-18 00:22):
我开始也想这样 ,  但是想到这个问题就否决了

古巷孤猫

Suky 发表于 2023-9-18 00:22
问题来了，就算找到了拼音位置，怎么确定原文本中汉字位置呢？
毕竟读音不同   拼音长度也不同   难以确 ...

根据上面大佬的方法我用文本转拼音之后把拼音和文本一对一分割放在两个不同的数组里面，通过拼音的出现次数来去文本的位置，但是现在有个问题例如一个文本出现了五十次，只能取出一次，另外49次的位置确定不了，取不出来，大佬你还有其他方式吗，这个问题新开了一个帖子

古巷孤猫

东冬 发表于 2023-9-17 23:47
精易模块有个命令叫文本转拼音，全部汉字转拼音逐个对比筛选试试呢

根据上面大佬的方法我用文本转拼音之后把拼音和文本一对一分割放在两个不同的数组里面，通过拼音的出现次数来去文本的位置，但是现在有个问题例如一个文本出现了五十次，只能取出一次，另外49次的位置确定不了，取不出来，大佬你还有其他方式吗，这个问题新开了一个帖子