文本_取首拼

﹃路ゝ沉默

文本＝ “括号（1）”
文本_取首拼 (文本)

括号（1）→ 括号(1)
执行命令过后文本变量全角字符变成半角字符

  

子程序名	返回值类型	公开	备 注
文本_取首拼	文本型		取出给出文本的首拼;注:英文,数字,符号则直接返回.首拼一律为小写[V雪落有声V]
参数名	类 型	参考	可空	数组	备 注
文本	文本型				需要取出首拼的文本.可以包含数字,字母.请使用半角格式.

变量名	类 型	静态	数组	备 注
局_计次	整数型
局_文本	文本型
局_半角文本
局_返回文本	文本型

局_计次 ＝ 1
局_半角文本 ＝ 到半角 (文本)
判断循环首 (局_计次 ≤ 取文本长度 (局_半角文本))
局_文本 ＝ 取文本中间 (局_半角文本, 局_计次, 1)
如果 (取代码 (局_文本, ) ＜ 0)
局_文本 ＝ 取文本中间 (文本, 局_计次, 2)
如果真 (文本_是否为汉字 (局_文本))
局_文本 ＝ 取文本左边 (取拼音 (局_文本, 1), 1)
局_返回文本 ＝ 局_返回文本 ＋ 局_文本
局_计次 ＝ 局_计次 ＋ 1
局_返回文本 ＝ 局_返回文本 ＋ 局_文本
局_计次 ＝ 局_计次 ＋ 1
判断循环尾 ()
返回 (局_返回文本)

.版本 2<br /> <br /> .子程序 文本_取首拼, 文本型, 公开, 取出给出文本的首拼;注:英文,数字,符号则直接返回.首拼一律为小写[V雪落有声V]<br /> .参数 文本, 文本型, , 需要取出首拼的文本.可以包含数字,字母.请使用半角格式.<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_文本, 文本型<br /> .局部变量 局_半角文本<br /> .局部变量 局_返回文本, 文本型<br /> <br /> 局_计次 ＝ 1<br /> 局_半角文本 ＝ 到半角 (文本)<br /> .判断循环首 (局_计次 ≤ 取文本长度 (局_半角文本))<br />     局_文本 ＝ 取文本中间 (局_半角文本, 局_计次, 1)<br />     .如果 (取代码 (局_文本, ) ＜ 0)<br />         局_文本 ＝ 取文本中间 (文本, 局_计次, 2)<br />         .如果真 (文本_是否为汉字 (局_文本))<br />             局_文本 ＝ 取文本左边 (取拼音 (局_文本, 1), 1)<br />             局_返回文本 ＝ 局_返回文本 ＋ 局_文本<br />         .如果真结束<br />         局_计次 ＝ 局_计次 ＋ 1<br />     .否则<br />         局_返回文本 ＝ 局_返回文本 ＋ 局_文本<br />     .如果结束<br />     局_计次 ＝ 局_计次 ＋ 1<br /> .判断循环尾 ()<br /> 返回 (局_返回文本)