思路是：先把所有的内容转换成全角字符，这样一来数字１２３４５６７８９０和ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ就全部变成２个字节了，这时候取出字数的两倍的字节的内容准没错，不会乱码。完事后再把他们转换会半角字符即可。

纠正删文本的一个错误。

  

子程序名	返回值类型	公开	备 注
删除文本	文本型		删除一段文字前面或者后面指定数量的字数，可以区分单双字节字符。
参数名	类 型	参考	可空	数组	备 注
原文本	文本型
删除的字符数	整数型				可以为负数，负数从后面开始删除（如：2删除前面两个字，-2删除末尾两个字）。不能为零，否则返回空文本。

变量名	类 型	静态	数组	备 注
找到的文本	文本型

判断 (删除的字符数 ＞ 0)
返回 (子文本替换 (原文本, 到半角 (取文本左边 (到全角 (原文本), 删除的字符数 × 2)), , ,1 , 真))
判断 (删除的字符数 ＜ 0)
找到的文本 ＝ 到半角 (取文本右边 (到全角 (原文本), －删除的字符数 × 2))
返回 (子文本替换 (原文本, 找到的文本, , 倒找文本 (原文本, 找到的文本, , 假), , 真))
返回 (“”)

<br /> .子程序 删除文本, 文本型, 公开, 删除一段文字前面或者后面指定数量的字数，可以区分单双字节字符。<br /> .参数 原文本, 文本型<br /> .参数 删除的字符数, 整数型, , 可以为负数，负数从后面开始删除（如：2删除前面两个字，-2删除末尾两个字）。不能为零，否则返回空文本。<br /> .局部变量 找到的文本, 文本型<br /> <br /> .判断开始 (删除的字符数 ＞ 0)<br />     返回 (子文本替换 (原文本, 到半角 (取文本左边 (到全角 (原文本), 删除的字符数 × 2)), , ,1 , 真))<br /> .判断 (删除的字符数 ＜ 0)<br />     找到的文本 ＝ 到半角 (取文本右边 (到全角 (原文本), －删除的字符数 × 2))<br />     返回 (子文本替换 (原文本, 找到的文本, , 倒找文本 (原文本, 找到的文本, , 假), , 真))<br /> .默认<br />     返回 (“”)<br /> .判断结束

真的实现了多列，谢谢分享

学习一下

retn 0x0000   retn 0x0000  

辛苦了

感谢分享，很给力！~

给新手一个简单的教程，试验调测。、

辛苦了。