大写组合的问题,求助！

luspace

3A7Q5EFG78567 数字不变，，，，字母大写组合。。。。 如：
3a7Q5EFG78567
3a7q5EFG78567
3a7q5eFG78567
3a7q5efG78567

求写一个demo

四叔

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

变量名	类 型	静态	数组	备 注
计次	整数型
标记位置	整数型
原文本	文本型

原文本 ＝ “3A7Q5EFG78567”
计次循环首 (取大写字母数量 (原文本), 计次)
调试输出 (转换第一个找到的大写字母为小写 (原文本, 标记位置))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
转换第一个找到的大写字母为小写	文本型
参数名	类 型	参考	可空	数组	备 注
待处理文本	文本型
起始位置	整数型

变量名	类 型	静态	数组	备 注
局_临时	文本型
局_代码	整数型
i	整数型

计次循环首 (取文本长度 (待处理文本) － 起始位置 ＋ 1, i)
i ＝ i ＋ 起始位置
局_临时 ＝ 取文本中间 (待处理文本, i, 1)
局_代码 ＝ 取代码 (局_临时, )
如果真 (局_代码 ≥ 65 且 局_代码 ≤ 96)  ' 大写字母
起始位置 ＝ i
待处理文本 ＝ 文本替换 (待处理文本, i, 1, 到小写 (局_临时))
返回 (文本替换 (待处理文本, i, 1, 到小写 (局_临时)))

计次循环尾 ()
返回 (待处理文本)

子程序名	返回值类型	公开	备 注
取大写字母数量	整数型
参数名	类 型	参考	可空	数组	备 注
待处理文本	文本型

变量名	类 型	静态	数组	备 注
局_临时	文本型
局_代码	整数型
i	整数型
找到数量	整数型

计次循环首 (取文本长度 (待处理文本), i)
局_临时 ＝ 取文本中间 (待处理文本, i, 1)
局_代码 ＝ 取代码 (局_临时, )
如果真 (局_代码 ≥ 65 且 局_代码 ≤ 96)  ' 大写字母
找到数量 ＝ 找到数量 ＋ 1

计次循环尾 ()
返回 (找到数量)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 计次, 整数型<br /> .局部变量 标记位置, 整数型<br /> .局部变量 原文本, 文本型<br /> <br /> 原文本 ＝ “3A7Q5EFG78567”<br /> .计次循环首 (取大写字母数量 (原文本), 计次)<br />     调试输出 (转换第一个找到的大写字母为小写 (原文本, 标记位置))<br /> .计次循环尾 ()<br /> <br /> .子程序 转换第一个找到的大写字母为小写, 文本型<br /> .参数 待处理文本, 文本型, 参考<br /> .参数 起始位置, 整数型, 参考<br /> .局部变量 局_临时, 文本型<br /> .局部变量 局_代码, 整数型<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (取文本长度 (待处理文本) － 起始位置 ＋ 1, i)<br />     i ＝ i ＋ 起始位置<br />     局_临时 ＝ 取文本中间 (待处理文本, i, 1)<br />     局_代码 ＝ 取代码 (局_临时, )<br />     .如果真 (局_代码 ≥ 65 且 局_代码 ≤ 96)  ' 大写字母<br />         起始位置 ＝ i<br />         待处理文本 ＝ 文本替换 (待处理文本, i, 1, 到小写 (局_临时))<br />         返回 (文本替换 (待处理文本, i, 1, 到小写 (局_临时)))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (待处理文本)<br /> <br /> .子程序 取大写字母数量, 整数型<br /> .参数 待处理文本, 文本型<br /> .局部变量 局_临时, 文本型<br /> .局部变量 局_代码, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 找到数量, 整数型<br /> <br /> .计次循环首 (取文本长度 (待处理文本), i)<br />     局_临时 ＝ 取文本中间 (待处理文本, i, 1)<br />     局_代码 ＝ 取代码 (局_临时, )<br />     .如果真 (局_代码 ≥ 65 且 局_代码 ≤ 96)  ' 大写字母<br />         找到数量 ＝ 找到数量 ＋ 1<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (找到数量)

补充内容 (2021-1-19 01:28):
转换第一个找到的大写字母为小写 这个子程序两个参数都打上√，复制到论坛里√不见了 ；不需要模块