获取文本最后一个文字（英文）的大写首字母

lomxx

小功能
功能详细：取文本最后一个汉字或英文的大写首字母。
细节：最有一个如果是符号或者？，先前进1取到汉字或者字母为止，如果文本全是符号就是返回空字符串


例如：爱编程爱生活  应取尾字母大写是H
          热爱分享hello   应取尾字母大写是O

zenpon

上面的都有BUG

  

子程序名	返回值类型	公开	备 注
取文本最后一个汉字或英文的大写首字母	文本型
参数名	类 型	参考	可空	数组	备 注
txt	文本型

变量名	类 型	静态	数组	备 注
数量	整数型
文本组	文本型		0
i	整数型
正则	正则表达式DEELX

数量 ＝ 文本_逐字分割_汇编 (txt, 文本组)
正则.创建 (“[a-zA-Z\u4e00-\u9fa5]”, , )
计次循环首 (数量, i)
如果真 (正则.测试匹配 (文本组 [数量 － i ＋ 1]))
返回 (到大写 (文本_取首拼 (文本组 [数量 － i ＋ 1])))

计次循环尾 ()
返回 (“”)

i支持库列表	支持库注释
DeelxRegEx	(未知支持库)

.版本 2<br /> .支持库 DeelxRegEx<br /> <br /> .子程序 取文本最后一个汉字或英文的大写首字母, 文本型<br /> .参数 txt, 文本型<br /> .局部变量 数量, 整数型<br /> .局部变量 文本组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 正则, 正则表达式DEELX<br /> <br /> 数量 ＝ 文本_逐字分割_汇编 (txt, 文本组)<br /> 正则.创建 (“[a-zA-Z\u4e00-\u9fa5]”, , )<br /> .计次循环首 (数量, i)<br />     .如果真 (正则.测试匹配 (文本组 [数量 － i ＋ 1]))<br />         返回 (到大写 (文本_取首拼 (文本组 [数量 － i ＋ 1])))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (“”)

afu45

  

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

获取文本 (“爱编程爱生活”)
获取文本 (“热爱分享hello”)

子程序名	返回值类型	公开	备 注
获取文本
参数名	类 型	参考	可空	数组	备 注
txt	文本型

变量名	类 型	静态	数组	备 注
表达式	正则表达式类
i	整数型

表达式.创建 (“([\u4e00-\u9fa5a-zA-Z])$”, txt, 假, 假, 真, 真)
调试输出 (到大写 (文本_取首拼 (表达式.取匹配文本 (1, ))))

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 获取文本 (“爱编程爱生活”)<br /> 获取文本 (“热爱分享hello”)<br /> <br /> .子程序 获取文本<br /> .参数 txt, 文本型<br /> .局部变量 表达式, 正则表达式类<br /> .局部变量 i, 整数型<br /> <br /> 表达式.创建 (“([\u4e00-\u9fa5a-zA-Z])$”, txt, 假, 假, 真, 真)<br /> 调试输出 (到大写 (文本_取首拼 (表达式.取匹配文本 (1, ))))

a3960382663

.版本 2
.支持库 spec

获取文本 (“爱编程爱生活”)
获取文本 (“热爱分享hello”)
获取文本 (“/*-/*-*/3u2643！@##*（￥*￥*@（#”)

.子程序 获取文本
.参数 txt, 文本型
.局部变量 表达式, 正则表达式类
.局部变量 i, 整数型

表达式.创建 (“([\u4e00-\u9fa5a-zA-Z])$”, txt, 假, 假, 真, 真)

' 调试输出 (“取字母”, 到大写 (文本_取首拼 (表达式.取匹配文本 (1, ))))  ' 取字母

调试输出 (“取字”, 表达式.取匹配文本 (1, ))

lomxx

afu45 发表于 2024-6-9 23:46
[e=0].版本 2
.支持库 spec

文本是最后一个是数子的，取前面一个汉字的。列如：爱编程爱生活123%%， 取大写尾字母是H

lomxx

a3960382663 发表于 2024-6-9 23:55
.版本 2
.支持库 spec

如果文本最后一个是数字的，取前面一个汉字的。列如：爱编程爱生活123%%， 取大写尾字母是H

fire9

  

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

获取文本 (“爱编程爱生活”)
获取文本 (“热爱分享hello”)
获取文本 (“爱编程爱生活123%%”)
获取文本 (“爱编程HH爱生H活Hh爱123%%”)

子程序名	返回值类型	公开	备 注
获取文本
参数名	类 型	参考	可空	数组	备 注
txt	文本型

变量名	类 型	静态	数组	备 注
re2	正则表达式类
re	正则表达式类
i	整数型
ture_txt	文本型

re.创建 (“[a-zA-Z\u4e00-\u9fa5]+”, txt, , , , )
ture_txt ＝ re.取匹配文本 (1, )
re2.创建 (“([\u4e00-\u9fa5a-zA-Z])$”, ture_txt, 假, 假, 真, 真)
调试输出 (到大写 (文本_取首拼 (re2.取匹配文本 (1, ))))

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 获取文本 (“爱编程爱生活”)<br /> 获取文本 (“热爱分享hello”)<br /> 获取文本 (“爱编程爱生活123%%”)<br /> 获取文本 (“爱编程HH爱生H活Hh爱123%%”)<br /> <br /> .子程序 获取文本<br /> .参数 txt, 文本型<br /> .局部变量 re2, 正则表达式类<br /> .局部变量 re, 正则表达式类<br /> .局部变量 i, 整数型<br /> .局部变量 ture_txt, 文本型<br /> <br /> re.创建 (“[a-zA-Z\u4e00-\u9fa5]+”, txt, , , , )<br /> ture_txt ＝ re.取匹配文本 (1, )<br /> re2.创建 (“([\u4e00-\u9fa5a-zA-Z])$”, ture_txt, 假, 假, 真, 真)<br /> 调试输出 (到大写 (文本_取首拼 (re2.取匹配文本 (1, ))))

HEZ小白

  

子程序名	返回值类型	公开	备 注
匹配最后一个	文本型
参数名	类 型	参考	可空	数组	备 注
文本	文本型

变量名	类 型	静态	数组	备 注
正则	正则表达式类

正则.创建 (“[a-zA-Z\u4e00-\u9fa5]+”, 文本, 真, 真, 真, )
如果真 (文本_是否为汉字 (取文本右边 (正则.取匹配文本 (正则.取匹配数量 (), ), 2), ) ＝ 真)
返回 (文本_取声母 (取文本右边 (正则.取匹配文本 (正则.取匹配数量 (), ), 2)))
返回 (取文本右边 (正则.取匹配文本 (正则.取匹配数量 (), ), 1))

.版本 2<br /> <br /> .子程序 匹配最后一个, 文本型<br /> .参数 文本, 文本型<br /> .局部变量 正则, 正则表达式类<br /> <br /> 正则.创建 (“[a-zA-Z\u4e00-\u9fa5]+”, 文本, 真, 真, 真, )<br /> .如果真 (文本_是否为汉字 (取文本右边 (正则.取匹配文本 (正则.取匹配数量 (), ), 2), ) ＝ 真)<br />     返回 (文本_取声母 (取文本右边 (正则.取匹配文本 (正则.取匹配数量 (), ), 2)))<br /> .如果真结束<br /> 返回 (取文本右边 (正则.取匹配文本 (正则.取匹配数量 (), ), 1))

尛龍科技

demo.e (956.36 KB, 下载次数: 3)

2024-6-10 02:04 上传

点击文件名下载附件
这个应该很简单了,看看代码不过就几行

九重天and路八千

  

子程序名	返回值类型	公开	备 注
子程序_取最后首字母	文本型
参数名	类 型	参考	可空	数组	备 注
参数_文本	文本型

变量名	类 型	静态	数组	备 注
局_是否为全符号	逻辑型
局_分字组	文本型		0
局_后前文本组	文本型		0
局_计数	整数型
局_判断字符	整数型
局_拼音组	文本型		0

全_调类_文本.逐字分割 (参数_文本, 局_分字组)
全_调类_文本.取文本左右 (参数_文本, 0, 取数组成员数 (局_分字组), , , 局_后前文本组, )
局_是否为全符号 ＝ 真
计次循环首 (取数组成员数 (局_分字组), 局_计数)
如果真 (子程序_判断字符 (局_分字组 [局_计数]) ≠ 4)
局_是否为全符号 ＝ 假
跳出循环 ()

计次循环尾 ()
判断 (局_是否为全符号)
返回 (“”)
计次循环首 (取数组成员数 (局_后前文本组), 局_计数)
局_判断字符 ＝ 子程序_判断字符 (局_后前文本组 [局_计数])
判断 (局_判断字符 ＝ 1)
全_调类_文本.逐字分割 (取拼音 (局_后前文本组 [局_计数], 1), 局_拼音组)
返回 (到大写 (局_拼音组 [1]))
判断 (局_判断字符 ≤ 3)
返回 (到大写 (局_后前文本组 [局_计数]))



计次循环尾 ()
返回 (“”)

子程序名	返回值类型	公开	备 注
子程序_判断字符	整数型		汉字1，字母2，数字3，符号4
参数名	类 型	参考	可空	数组	备 注
参数_文本	文本型

判断 (子程序_是否为汉字 (参数_文本, ))
返回 (1)
判断 (子程序_是否为字母 (参数_文本))
返回 (2)
判断 (子程序_是否为数字 (参数_文本))
返回 (3)
返回 (4)

.版本 2<br /> <br /> .子程序 子程序_取最后首字母, 文本型<br /> .参数 参数_文本, 文本型<br /> .局部变量 局_是否为全符号, 逻辑型<br /> .局部变量 局_分字组, 文本型, , "0"<br /> .局部变量 局_后前文本组, 文本型, , "0"<br /> .局部变量 局_计数, 整数型<br /> .局部变量 局_判断字符, 整数型<br /> .局部变量 局_拼音组, 文本型, , "0"<br /> <br /> 全_调类_文本.逐字分割 (参数_文本, 局_分字组)<br /> 全_调类_文本.取文本左右 (参数_文本, 0, 取数组成员数 (局_分字组), , , 局_后前文本组, )<br /> 局_是否为全符号 ＝ 真<br /> .计次循环首 (取数组成员数 (局_分字组), 局_计数)<br />     .如果真 (子程序_判断字符 (局_分字组 [局_计数]) ≠ 4)<br />         局_是否为全符号 ＝ 假<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .判断开始 (局_是否为全符号)<br />     返回 (“”)<br /> .默认<br />     .计次循环首 (取数组成员数 (局_后前文本组), 局_计数)<br />         局_判断字符 ＝ 子程序_判断字符 (局_后前文本组 [局_计数])<br />         .判断开始 (局_判断字符 ＝ 1)<br />             全_调类_文本.逐字分割 (取拼音 (局_后前文本组 [局_计数], 1), 局_拼音组)<br />             返回 (到大写 (局_拼音组 [1]))<br />         .判断 (局_判断字符 ≤ 3)<br />             返回 (到大写 (局_后前文本组 [局_计数]))<br />         .默认<br /> <br />         .判断结束<br /> <br />     .计次循环尾 ()<br />     返回 (“”)<br /> .判断结束<br /> <br /> <br /> .子程序 子程序_判断字符, 整数型, 公开, 汉字1，字母2，数字3，符号4<br /> .参数 参数_文本, 文本型<br /> <br /> .判断开始 (子程序_是否为汉字 (参数_文本, ))<br />     返回 (1)<br /> .判断 (子程序_是否为字母 (参数_文本))<br />     返回 (2)<br /> .判断 (子程序_是否为数字 (参数_文本))<br />     返回 (3)<br /> .默认<br />     返回 (4)<br /> .判断结束

补充内容 (2024-6-10 11:58):
调用了模块，我帖子里有