小白求助，想写一个数字转换对应符号的小工具

onlyivan

想弄个数字转换符号的小工具，哪位大神可以发一下代码给我。就是我输入123456 则自动转换为!@#$%^  就是键盘数字键上面的符号。我现在是用EXCEL弄的=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(C11,1,"!"),2,"@"),3,"#"),4,"$"),5,"%"),6,"^"),7,"&"),8,"*"),9,"("),0,")") 但我想用易语言弄一个，哪位大神可以发一下代码给我。谢谢你们啊 类似这样

麒灵

提供一个思路。
3.e (868.59 KB, 下载次数: 2)

2021-3-2 17:41 上传

点击文件名下载附件


补充内容 (2021-3-2 18:28):
调用了精易模块

18850752613

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集_启动窗口
   
4. 
   
5. .子程序 _按钮1_被单击
   
6. .局部变量 文本, 文本型
   
7. 
   
8. 文本 ＝ 子文本替换 (编辑框1.内容, “1”, “!”, , , 真)
   
9. 文本 ＝ 子文本替换 (文本, “2”, “@”, , , 真)
   
10. 文本 ＝ 子文本替换 (文本, “3”, “#”, , , 真)
    
11. 文本 ＝ 子文本替换 (文本, “4”, “$”, , , 真)
    
12. 文本 ＝ 子文本替换 (文本, “5”, “%”, , , 真)
    
13. 文本 ＝ 子文本替换 (文本, “6”, “^”, , , 真)
    
14. 编辑框1.内容 ＝ 文本
    

复制代码

onlyivan

12345678890对应的都要哦

Sylas

是不是这种效果






1.e (1.1 MB, 下载次数: 6)

2021-3-2 18:02 上传

点击文件名下载附件

AnyPopup

新建 易程序 (3).e (3.94 KB, 下载次数: 4)

2021-3-2 18:10 上传

点击文件名下载附件

onlyivan

看了，麒灵大哥的最接近我想要的 谢谢你们。但还有一个问题 ，，，不能多行输入转换，提示请输入整行，请问怎么解放可以多行输入？

麒灵

onlyivan 发表于 2021-3-2 21:58
看了，麒灵大哥的最接近我想要的 谢谢你们。但还有一个问题 ，，，不能多行输入转换，提示请输入整行，请问 ...

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
符号	文本型	0
文本	文本型	0
输出文本	文本型
多行文本	文本型	0

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

符号 ＝ { “!”, “@”, “#”, “$”, “%”, “^”, “&”, “*”, “(”, “)” }

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

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

输出文本 ＝ “”
清除数组 (文本)
多行文本 ＝ 分割文本 (编辑框1.内容, #换行符, )
调试输出 (多行文本)
计次循环首 (取数组成员数 (多行文本), m)
判断 (文本_是否为数字 (多行文本 [m]) ＝ 真)
文本_逐字分割 (多行文本 [m], 文本)
计次循环首 (取数组成员数 (文本), n)
判断 (到整数 (文本 [n]) ≠ 0)
输出文本 ＝ 输出文本 ＋ 符号 [到整数 (文本 [n])]
输出文本 ＝ 输出文本 ＋ 符号 [10]

计次循环尾 ()
编辑框1.内容 ＝ 输出文本
信息框 (“请输入整数”, 0, , )
输出文本 ＝ 输出文本 ＋ #换行符
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 符号, 文本型, , "0"<br /> .程序集变量 文本, 文本型, , "0"<br /> .程序集变量 输出文本, 文本型<br /> .程序集变量 多行文本, 文本型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 符号 ＝ { “!”, “@”, “#”, “$”, “%”, “^”, “&”, “*”, “(”, “)” }<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 n, 整数型<br /> .局部变量 m, 整数型<br /> <br /> 输出文本 ＝ “”<br /> 清除数组 (文本)<br /> 多行文本 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> 调试输出 (多行文本)<br /> .计次循环首 (取数组成员数 (多行文本), m)<br />     .判断开始 (文本_是否为数字 (多行文本 [m]) ＝ 真)<br />         文本_逐字分割 (多行文本 [m], 文本)<br />         .计次循环首 (取数组成员数 (文本), n)<br />             .判断开始 (到整数 (文本 [n]) ≠ 0)<br />                 输出文本 ＝ 输出文本 ＋ 符号 [到整数 (文本 [n])]<br />             .默认<br />                 输出文本 ＝ 输出文本 ＋ 符号 [10]<br />             .判断结束<br /> <br />         .计次循环尾 ()<br />         编辑框1.内容 ＝ 输出文本<br />     .默认<br />         信息框 (“请输入整数”, 0, , )<br />     .判断结束<br />     输出文本 ＝ 输出文本 ＋ #换行符<br /> .计次循环尾 ()

补充内容 (2021-3-2 23:05):
试试这个

小书

这个功能用在哪些场景？？