取出文本与删除文本文本源码【可按字数取左边、取右边、删左边、删右边】

墨影0620 · 发表于 2018-10-23 09:08:30

我估计这个源码已经没法再简化了。。。

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

判断 (取出的字数＞ 0)

返回 (到半角 (取文本左边 (到全角 (原文本), 取出的字数 × 2)))

判断 (取出的字数＜ 0)

返回 (到半角 (取文本右边 (到全角 (原文本), －取出的字数 × 2)))

返回 (“”)

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

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

判断 (删除的字符数＞ 0)

返回 (子文本替换 (原文本, 到半角 (取文本左边 (到全角 (原文本), 删除的字符数 × 2)), , , , 真))

判断 (删除的字符数＜ 0)

找到的文本＝到半角 (取文本右边 (到全角 (原文本), －删除的字符数 × 2))

返回 (子文本替换 (原文本, 找到的文本, , 倒找文本 (原文本, 找到的文本, , 假), , 真))

返回 (“”)

因为实在是太简单了我把左右合成一个了

补充内容 (2018-10-24 20:48):
删除文本那里有一个错误！详见置顶帖纠正！

墨影0620 · 发表于 2018-10-23 10:34:48

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

墨影0620 · 发表于 2018-10-24 20:49:50

纠正删文本的一个错误。

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

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

判断 (删除的字符数＞ 0)

返回 (子文本替换 (原文本, 到半角 (取文本左边 (到全角 (原文本), 删除的字符数 × 2)), , ,1 , 真))

判断 (删除的字符数＜ 0)

找到的文本＝到半角 (取文本右边 (到全角 (原文本), －删除的字符数 × 2))

返回 (子文本替换 (原文本, 找到的文本, , 倒找文本 (原文本, 找到的文本, , 假), , 真))

返回 (“”)

kike · 发表于 2018-10-23 09:43:56

辛苦了。

华浮 · 发表于 2018-10-25 09:45:08

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

玩导弹的驴 · 发表于 2018-10-25 10:35:30

感谢分享，很给力！~

gazingat · 发表于 2018-10-26 12:10:02

辛苦了

a3960382663 · 发表于 2019-4-28 16:07:48

retn 0x0000 retn 0x0000

我的yyy123 · 发表于 2024-1-11 14:37:34

学习一下

初学者1 · 发表于 2025-1-29 00:43:16

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

		自动登录	找回密码
密码			注册

[易语言纯源码] 取出文本与删除文本文本源码【可按字数取左边、取右边、删左边、删右边】