修复一个 精易模块命令 文本_首字母改大写

yseric

  

子程序名	返回值类型	公开	备 注
文本_首字母改大写	文本型		〈文本型〉 首字母大写 （文本）例： FOXPRO 或 foxpro，返回 Foxpro，注意本命令对首字为汉字的文本无效【修复 黑鹰】
参数名	类 型	参考	可空	数组	备 注
英文文本	文本型				只接受英文字母
分割字符	文本型				只接受ascii码 默认为英文空格 如英文状态的空格 , ！ .等

变量名	类 型	静态	数组	备 注
当前位置	整数型
tmp分割标志	文本型
tmp2被替换的	文本型

英文文本 ＝ 到小写 (英文文本)
如果真 (是否为空 (分割字符))
分割字符 ＝ “ ”
当前位置 ＝ 寻找文本 (英文文本, 分割字符, 1, 真)
判断循环首 (当前位置 ≠ -1)
判断循环首 (当前位置 ＜ 取文本长度 (英文文本))
tmp分割标志 ＝ 取文本中间 (英文文本, 当前位置, 1)
tmp2被替换的 ＝ 取文本中间 (英文文本, 当前位置 ＋ 1, 1)
如果真 (tmp分割标志 ≠ tmp2被替换的)
英文文本 ＝ 子文本替换 (英文文本, tmp2被替换的, 到大写 (tmp2被替换的), 当前位置 ＋ 1, 1, 假)
当前位置 ＝ 当前位置 ＋ 1
当前位置 ＝ 寻找文本 (英文文本, 分割字符, 当前位置, 假)
如果真 (当前位置 ＝ -1)
跳出循环 ()
处理事件 ()
判断循环尾 ()
判断循环尾 ()
调试输出 (英文文本, 当前位置)
英文文本 ＝ 文本替换 (英文文本, 1, 1, 到大写 (取文本中间 (英文文本, 1, 1)))
返回 (英文文本)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 文本_首字母改大写, 文本型, 公开, 〈文本型〉 首字母大写 （文本）例： FOXPRO 或 foxpro，返回 Foxpro，注意本命令对首字为汉字的文本无效【修复 黑鹰】<br /> .参数 英文文本, 文本型, , 只接受英文字母<br /> .参数 分割字符, 文本型, 可空, 只接受ascii码 默认为英文空格 如英文状态的空格 , ！ .等<br /> .局部变量 当前位置, 整数型<br /> .局部变量 tmp分割标志, 文本型<br /> .局部变量 tmp2被替换的, 文本型<br /> <br /> 英文文本 ＝ 到小写 (英文文本)<br /> .如果真 (是否为空 (分割字符))<br />     分割字符 ＝ “ ”<br /> .如果真结束<br /> 当前位置 ＝ 寻找文本 (英文文本, 分割字符, 1, 真)<br /> .判断循环首 (当前位置 ≠ -1)<br />     .判断循环首 (当前位置 ＜ 取文本长度 (英文文本))<br />         tmp分割标志 ＝ 取文本中间 (英文文本, 当前位置, 1)<br />         tmp2被替换的 ＝ 取文本中间 (英文文本, 当前位置 ＋ 1, 1)<br />         .如果真 (tmp分割标志 ≠ tmp2被替换的)<br />             英文文本 ＝ 子文本替换 (英文文本, tmp2被替换的, 到大写 (tmp2被替换的), 当前位置 ＋ 1, 1, 假)<br />         .如果真结束<br />         当前位置 ＝ 当前位置 ＋ 1<br />         当前位置 ＝ 寻找文本 (英文文本, 分割字符, 当前位置, 假)<br />         .如果真 (当前位置 ＝ -1)<br />             跳出循环 ()<br />         .如果真结束<br />         处理事件 ()<br />     .判断循环尾 ()<br /> .判断循环尾 ()<br /> 调试输出 (英文文本, 当前位置)<br /> 英文文本 ＝ 文本替换 (英文文本, 1, 1, 到大写 (取文本中间 (英文文本, 1, 1)))<br /> 返回 (英文文本)

jnsday

顶~~~精易模块BUG挺多

飞鱼软件

感谢分享。！

R7777777

加油加油加油加油

一尘天下

ddddddddddddddddddddddddddddd

556604

3422342343243243242