文本_删左边 优化

Creakler

精易的 文本_删左边 只支持数字英文，但不能对汉字删除左边(字节原因)，文本_颠倒 即可解决

  

子程序名	返回值类型	公开	备 注
删文本左边	文本型
参数名	类 型	参考	可空	数组	备 注
原文本	文本型
欲删字数	整数型

变量名	类 型	静态	数组	备 注
文本内容	文本型
文本数组	文本型		0

文本内容 ＝ 原文本
如果 (文本_是否为数字 (原文本) ＝ 真 或 文本_是否为字母 (原文本) ＝ 真)
返回 (取文本右边 (原文本, 取文本长度 (原文本) － 欲删字数))


文本_逐字分割_汇编 (原文本, 文本数组)
原文本 ＝ 文本_颠倒 (原文本, 真)
返回文本 ＝ 取文本左边 (原文本, 取文本长度 (原文本) － 欲删字数 × 2)
返回文本 ＝ 文本_颠倒 (返回文本, 真)

返回 (返回文本)

.版本 2<br /> <br /> .子程序 删文本左边, 文本型<br /> .参数 原文本, 文本型<br /> .参数 欲删字数, 整数型<br /> .局部变量 文本内容, 文本型<br /> .局部变量 文本数组, 文本型, , "0"<br /> <br /> 文本内容 ＝ 原文本<br /> .如果 (文本_是否为数字 (原文本) ＝ 真 或 文本_是否为字母 (原文本) ＝ 真)<br />     返回 (取文本右边 (原文本, 取文本长度 (原文本) － 欲删字数))<br /> .否则<br /> <br />     文本_逐字分割_汇编 (原文本, 文本数组)<br />     原文本 ＝ 文本_颠倒 (原文本, 真)<br />     返回文本 ＝ 取文本左边 (原文本, 取文本长度 (原文本) － 欲删字数 × 2)<br />     返回文本 ＝ 文本_颠倒 (返回文本, 真)<br /> .如果结束<br /> <br /> 返回 (返回文本)

mopoxiao

学习学习

2269248626

6666666666666666666666666666666

Yakusoku

  

子程序名	返回值类型	公开	备 注
删文本左边2	文本型
参数名	类 型	参考	可空	数组	备 注
原文本	文本型
欲删字数	整数型

变量名	类 型	静态	数组	备 注
szText	字节集

szText ＝ 编码_Ansi到Unicode (原文本, )
szText ＝ 取字节集右边 (szText, 取字节集长度 (szText) － 欲删字数 × 2)
返回 (编码_Unicode到Ansi (szText))

.版本 2<br /> <br /> .子程序 删文本左边2, 文本型<br /> .参数 原文本, 文本型<br /> .参数 欲删字数, 整数型<br /> .局部变量 szText, 字节集<br /> <br /> szText ＝ 编码_Ansi到Unicode (原文本, )<br /> szText ＝ 取字节集右边 (szText, 取字节集长度 (szText) － 欲删字数 × 2)<br /> 返回 (编码_Unicode到Ansi (szText))

Yakusoku

1. .版本 2
   
2. 
   
3. .子程序 删文本左边2, 文本型
   
4. .参数 原文本, 文本型
   
5. .参数 欲删字数, 整数型
   
6. .局部变量 szText, 字节集
   
7. 
   
8. szText ＝ 编码_Ansi到Unicode (原文本, )
   
9. szText ＝ 取字节集右边 (szText, 取字节集长度 (szText) － 欲删字数 × 2)
   
10. 返回 (编码_Unicode到Ansi (szText))
    

复制代码

Creakler

qq1056123185 发表于 2021-6-25 04:55
不能删文字吗？我一直用来删文字

文本有英文数字和汉字就不行了

850536360

  

子程序名	返回值类型	公开	备 注
文本_删左边W	字节集
参数名	类 型	参考	可空	数组	备 注
欲处理文本	字节集
删除长度	整数型				字符长度

返回 (取字节集右边 (欲处理文本, 取字节集长度 (欲处理文本) － 删除长度 × 2))

子程序名	返回值类型	公开	备 注
文本_删左边2	文本型		按字符长度删除
参数名	类 型	参考	可空	数组	备 注
欲处理文本	文本型
删除长度	整数型				字符长度

返回 (编码_Unicode到Ansi (文本_删左边W (编码_Ansi到Unicode (欲处理文本, ), 删除长度)))

.版本 2<br /> <br /> .子程序 文本_删左边W, 字节集, 公开<br /> .参数 欲处理文本, 字节集<br /> .参数 删除长度, 整数型, , 字符长度<br /> <br /> 返回 (取字节集右边 (欲处理文本, 取字节集长度 (欲处理文本) － 删除长度 × 2))<br /> <br /> .子程序 文本_删左边2, 文本型, 公开, 按字符长度删除<br /> .参数 欲处理文本, 文本型<br /> .参数 删除长度, 整数型, , 字符长度<br /> <br /> 返回 (编码_Unicode到Ansi (文本_删左边W (编码_Ansi到Unicode (欲处理文本, ), 删除长度)))

qq1056123185

不能删文字吗？我一直用来删文字

Creakler

修改亿下就可以支持汉字删中间，删右边