易语言导入Excel文档取文本首拼并导出

丰晨软件

导入文本后取A2至最后一列文本内容并在H2至最后一列自动填写该文本首拼。

例如：A2的文本是张三 A3文本是李四 A4文本是赵五，则在H2自动生成zs A3自动生成ls A4自动生成zw。

如果该文本有符号或数字也一样要生成。
例如：张三(李四)赵5，则生成zs(ls)z5。

需要自动生成并导出。

lisher

123123.e (955.29 KB, 下载次数: 11)

2024-10-24 14:57 上传

点击文件名下载附件

丰晨软件

文本是不固定的，但是位置肯定是从A2开始然后A3A4一直到该表格最后一个文本，然后需要把A2往后的文本取首拼写入到H2往后。
拖拽表格然后判断文本自动写入到H2有多个文本则继续生成，最后自动导出到桌面

丰晨软件

lisher 发表于 2024-10-24 14:58

文本是不固定的，但是位置肯定是从A2开始然后A3A4一直到该表格最后一个文本，然后需要把A2往后的文本取首拼写入到H2往后。
拖拽表格然后判断文本自动写入到H2有多个文本则继续生成，最后自动导出到桌面

丰晨软件

自己搞定了

  

子程序名	返回值类型	公开	备 注
_拖放对象1_得到文件
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	文本型

变量名	类 型	静态	数组	备 注
n	整数型
表头	文本型		0
wjm	文本型
列索引	整数型

如果 (取文本右边 (接收到的文件路径, 21) ＝ “云店收银菜品模板.xlsx”)
标签1.可视 ＝ 假
进度条1.可视 ＝ 真
Excel导入_超级列表框 (超级列表框1, 进度条1, 接收到的文件路径)
信息框 (“请使用本工具生成的云店菜品模板！” ＋ #换行符 ＋ #换行符 ＋ “使用说明：” ＋ #换行符 ＋ #换行符 ＋ “1、点击嘉联云店再点击导出模板！” ＋ #换行符 ＋ #换行符 ＋ “2、填写菜品名称、分类、价格等必填信息！” ＋ #换行符 ＋ #换行符 ＋ “3、最后再把模板拖拽到本工具即可生成助记码。”, #错误图标 ＋ #位于前台 × 4, “提示”, )
返回 ()

计次循环首 (超级列表框1.取表项数 (), n)
超级列表框1.现行选中项 ＝ n － 1
超级列表框1.保证显示 (超级列表框1.现行选中项)
如果真 (超级列表框1.取标题 (超级列表框1.现行选中项, 到整数 (“0”)) ≠ “”)
超级列表框1.置标题 (超级列表框1.现行选中项, 到整数 (“7”), 文本_取首拼 (超级列表框1.取标题 (超级列表框1.现行选中项, 到整数 (“0”))))

计次循环尾 ()
进度条1.可视 ＝ 真
标签1.可视 ＝ 假
计次循环首 (超级列表框1.取列数 (), n)
加入成员 (表头, 超级列表框1.取列标题 (n － 1))
计次循环尾 ()
置随机数种子 (取启动时间 ())
wjm ＝ 取特定目录 ( #系统桌面 ) ＋ “云店收银菜品模板新.xlsx”
Excel导出_超级列表框 (超级列表框1, 进度条1, 表头, “Sheet1”, , wjm)
标签1.可视 ＝ 真
进度条1.可视 ＝ 假
置文件属性 (取运行目录 () ＋ “\libxl.dll”, #隐藏文件 )
运行 (“Explorer /select, ” ＋ 取特定目录 ( #系统桌面 ) ＋ “云店收银菜品模板新.xlsx”, 假, )
计次循环首 (超级列表框1.取列数 (), 列索引)
超级列表框1.置列标题 (列索引 － 1, “”)
超级列表框1.全部删除 ()
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 shell<br /> <br /> .子程序 _拖放对象1_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 表头, 文本型, , "0"<br /> .局部变量 wjm, 文本型<br /> .局部变量 列索引, 整数型<br /> <br /> .如果 (取文本右边 (接收到的文件路径, 21) ＝ “云店收银菜品模板.xlsx”)<br />     标签1.可视 ＝ 假<br />     进度条1.可视 ＝ 真<br />     Excel导入_超级列表框 (超级列表框1, 进度条1, 接收到的文件路径)<br /> .否则<br />     信息框 (“请使用本工具生成的云店菜品模板！” ＋ #换行符 ＋ #换行符 ＋ “使用说明：” ＋ #换行符 ＋ #换行符 ＋ “1、点击嘉联云店再点击导出模板！” ＋ #换行符 ＋ #换行符 ＋ “2、填写菜品名称、分类、价格等必填信息！” ＋ #换行符 ＋ #换行符 ＋ “3、最后再把模板拖拽到本工具即可生成助记码。”, #错误图标 ＋ #位于前台 × 4, “提示”, )<br />     返回 ()<br /> .如果结束<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), n)<br />     超级列表框1.现行选中项 ＝ n － 1<br />     超级列表框1.保证显示 (超级列表框1.现行选中项)<br />     .如果真 (超级列表框1.取标题 (超级列表框1.现行选中项, 到整数 (“0”)) ≠ “”)<br />         超级列表框1.置标题 (超级列表框1.现行选中项, 到整数 (“7”), 文本_取首拼 (超级列表框1.取标题 (超级列表框1.现行选中项, 到整数 (“0”))))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 进度条1.可视 ＝ 真<br /> 标签1.可视 ＝ 假<br /> <br /> .计次循环首 (超级列表框1.取列数 (), n)<br />     加入成员 (表头, 超级列表框1.取列标题 (n － 1))<br /> .计次循环尾 ()<br /> 置随机数种子 (取启动时间 ())<br /> wjm ＝ 取特定目录 (#系统桌面) ＋ “云店收银菜品模板新.xlsx”<br /> Excel导出_超级列表框 (超级列表框1, 进度条1, 表头, “Sheet1”, , wjm)<br /> 标签1.可视 ＝ 真<br /> 进度条1.可视 ＝ 假<br /> 置文件属性 (取运行目录 () ＋ “\libxl.dll”, #隐藏文件)<br /> 运行 (“Explorer /select, ” ＋ 取特定目录 (#系统桌面) ＋ “云店收银菜品模板新.xlsx”, 假, )<br /> <br /> .计次循环首 (超级列表框1.取列数 (), 列索引)<br />     超级列表框1.置列标题 (列索引 － 1, “”)<br />     超级列表框1.全部删除 ()<br /> .计次循环尾 ()