更新自由切换填充位置 文本填充指定文本到指定长度 写了个汇编版的给大家

cf2006a

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

编辑框_结果.内容 ＝ “”
编辑框_结果.内容 ＝ 文本_补后位 (编辑框_填充文本.内容, 编辑框_填充文本.内容, 到数值 (编辑框_填充长度.内容))

子程序名	返回值类型	公开	备 注
文本_补后位	文本型		汇编_补文本位 (源文本, 补符, 10)
参数名	类 型	参考	可空	数组	备 注
参_源文本	文本型
参_补符	文本型				如：“0”
参_补位长度	整数型

变量名	类 型	静态	数组	备 注
局_缓存	文本型

局_缓存 ＝ 取空白文本 (参_补位长度 ＋ 1)
置入代码 ({ 49, 210, 139, 125, 8, 139, 63, 133, 255, 116, 53, 139, 77, 16, 133, 201, 118, 46, 138, 28, 23, 128, 251, 0, 116, 6, 136, 28, 16, 66, 235, 242, 139, 125, 12, 139, 63, 57, 209, 118, 23, 41, 209, 49, 246, 138, 28, 55, 128, 251, 0, 117, 4, 49, 246, 235, 244, 136, 28, 16, 66, 70, 226, 237, 198, 4, 16, 0, 88, 201, 194, 12, 0 })
返回 (“”)

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 编辑框_结果.内容 ＝ “”<br /> 编辑框_结果.内容 ＝ 文本_补后位 (编辑框_填充文本.内容, 编辑框_填充文本.内容, 到数值 (编辑框_填充长度.内容))<br /> <br /> .子程序 文本_补后位, 文本型, 公开, 汇编_补文本位 (源文本, 补符, 10)<br /> .参数 参_源文本, 文本型<br /> .参数 参_补符, 文本型, , 如：“0”<br /> .参数 参_补位长度, 整数型<br /> .局部变量 局_缓存, 文本型<br /> <br /> 局_缓存 ＝ 取空白文本 (参_补位长度 ＋ 1)<br /> 置入代码 ({ 49, 210, 139, 125, 8, 139, 63, 133, 255, 116, 53, 139, 77, 16, 133, 201, 118, 46, 138, 28, 23, 128, 251, 0, 116, 6, 136, 28, 16, 66, 235, 242, 139, 125, 12, 139, 63, 57, 209, 118, 23, 41, 209, 49, 246, 138, 28, 55, 128, 251, 0, 117, 4, 49, 246, 235, 244, 136, 28, 16, 66, 70, 226, 237, 198, 4, 16, 0, 88, 201, 194, 12, 0 })<br /> 返回 (“”)

文本填充.e (8.28 KB, 下载次数: 25)

2019-5-30 21:28 上传

点击文件名下载附件

  

子程序名	返回值类型	公开	备 注
文本_补位	文本型		可以自由选择补前位还是后位
参数名	类 型	参考	可空	数组	备 注
参_源文本	文本型
参_补符	文本型				如：“0”
参_补位长度	整数型
参_补位方向	逻辑型				真补后位  假 反之

变量名	类 型	静态	数组	备 注
局_缓存	文本型
局_差值	整数型
局_源长	整数型

局_缓存 ＝ 取空白文本 (参_补位长度 × 3)
局_源长 ＝ 取文本长度 (参_源文本)
局_差值 ＝ 参_补位长度 － 局_源长
置入代码 ({ 80, 139, 125, 8, 139, 63, 139, 85, 244, 82, 139, 69, 252, 49, 246, 139, 77, 248, 48, 255, 138, 28, 55, 136, 28, 16, 66, 70, 226, 246, 139, 125, 12, 139, 63, 89, 81, 49, 246, 138, 28, 55, 128, 251, 0, 117, 4, 49, 246, 235, 244, 136, 28, 16, 66, 70, 226, 237, 254, 199, 128, 255, 1, 117, 8, 89, 82, 49, 210, 49, 246, 235, 222, 89, 198, 4, 8, 0, 88 })
如果 (参_补位方向 ＝ 真)
局_缓存 ＝ 取文本右边 (局_缓存, 参_补位长度)
局_缓存 ＝ 取文本左边 (局_缓存, 参_补位长度)
返回 (局_缓存)

.版本 2<br /> <br /> .子程序 文本_补位, 文本型, 公开, 可以自由选择补前位还是后位<br /> .参数 参_源文本, 文本型<br /> .参数 参_补符, 文本型, , 如：“0”<br /> .参数 参_补位长度, 整数型<br /> .参数 参_补位方向, 逻辑型, 可空, 真补后位  假 反之<br /> .局部变量 局_缓存, 文本型<br /> .局部变量 局_差值, 整数型<br /> .局部变量 局_源长, 整数型<br /> <br /> 局_缓存 ＝ 取空白文本 (参_补位长度 × 3)<br /> 局_源长 ＝ 取文本长度 (参_源文本)<br /> 局_差值 ＝ 参_补位长度 － 局_源长<br /> 置入代码 ({ 80, 139, 125, 8, 139, 63, 139, 85, 244, 82, 139, 69, 252, 49, 246, 139, 77, 248, 48, 255, 138, 28, 55, 136, 28, 16, 66, 70, 226, 246, 139, 125, 12, 139, 63, 89, 81, 49, 246, 138, 28, 55, 128, 251, 0, 117, 4, 49, 246, 235, 244, 136, 28, 16, 66, 70, 226, 237, 254, 199, 128, 255, 1, 117, 8, 89, 82, 49, 210, 49, 246, 235, 222, 89, 198, 4, 8, 0, 88 })<br /> .如果 (参_补位方向 ＝ 真)<br />     局_缓存 ＝ 取文本右边 (局_缓存, 参_补位长度)<br /> .否则<br />     局_缓存 ＝ 取文本左边 (局_缓存, 参_补位长度)<br /> .如果结束<br /> 返回 (局_缓存)

这个满足大家要求自由切换填充前或后

pyms

        支持开源~！感谢分享

wjswzj0

谢谢分享.值得学习

10008508

文本填充.e

snadong

谢谢分享.值得学习

cf2006a

orjg 发表于 2019-5-30 11:18
应该还弄个参数（前补或后补），为空默认后补

.版本 2

.子程序 文本_补位, 文本型, 公开, 可以自由选择补前位还是后位
.参数 参_源文本, 文本型
.参数 参_补符, 文本型, , 如：“0”
.参数 参_补位长度, 整数型
.参数 参_补位方向, 逻辑型, 可空, 真补后位  假 反之
.局部变量 局_缓存, 文本型
.局部变量 局_差值, 整数型
.局部变量 局_源长, 整数型

局_缓存 ＝ 取空白文本 (参_补位长度 × 3)
局_源长 ＝ 取文本长度 (参_源文本)
局_差值 ＝ 参_补位长度 － 局_源长
置入代码 ({ 80, 139, 125, 8, 139, 63, 139, 85, 244, 82, 139, 69, 252, 49, 246, 139, 77, 248, 48, 255, 138, 28, 55, 136, 28, 16, 66, 70, 226, 246, 139, 125, 12, 139, 63, 89, 81, 49, 246, 138, 28, 55, 128, 251, 0, 117, 4, 49, 246, 235, 244, 136, 28, 16, 66, 70, 226, 237, 254, 199, 128, 255, 1, 117, 8, 89, 82, 49, 210, 49, 246, 235, 222, 89, 198, 4, 8, 0, 88 })
.如果 (参_补位方向 ＝ 真)
    局_缓存 ＝ 取文本右边 (局_缓存, 参_补位长度)
.否则
    局_缓存 ＝ 取文本左边 (局_缓存, 参_补位长度)
.如果结束
返回 (局_缓存)

cf2006a

kyo9766 发表于 2019-5-30 14:00
如果有补前 和 补后 就更好了 ，感谢分享

.版本 2

.子程序 文本_补位, 文本型, 公开, 可以自由选择补前位还是后位
.参数 参_源文本, 文本型
.参数 参_补符, 文本型, , 如：“0”
.参数 参_补位长度, 整数型
.参数 参_补位方向, 逻辑型, 可空, 真补后位  假 反之
.局部变量 局_缓存, 文本型
.局部变量 局_差值, 整数型
.局部变量 局_源长, 整数型

局_缓存 ＝ 取空白文本 (参_补位长度 × 3)
局_源长 ＝ 取文本长度 (参_源文本)
局_差值 ＝ 参_补位长度 － 局_源长
置入代码 ({ 80, 139, 125, 8, 139, 63, 139, 85, 244, 82, 139, 69, 252, 49, 246, 139, 77, 248, 48, 255, 138, 28, 55, 136, 28, 16, 66, 70, 226, 246, 139, 125, 12, 139, 63, 89, 81, 49, 246, 138, 28, 55, 128, 251, 0, 117, 4, 49, 246, 235, 244, 136, 28, 16, 66, 70, 226, 237, 254, 199, 128, 255, 1, 117, 8, 89, 82, 49, 210, 49, 246, 235, 222, 89, 198, 4, 8, 0, 88 })
.如果 (参_补位方向 ＝ 真)
    局_缓存 ＝ 取文本右边 (局_缓存, 参_补位长度)
.否则
    局_缓存 ＝ 取文本左边 (局_缓存, 参_补位长度)
.如果结束
返回 (局_缓存)

cf2006a

kyo9766 发表于 2019-5-30 14:00
如果有补前 和 补后 就更好了 ，感谢分享

  

子程序名	返回值类型	公开	备 注
文本_补位	文本型		可以自由选择补前位还是后位
参数名	类 型	参考	可空	数组	备 注
参_源文本	文本型
参_补符	文本型				如：“0”
参_补位长度	整数型
参_补位方向	逻辑型				真补后位  假 反之

变量名	类 型	静态	数组	备 注
局_缓存	文本型
局_差值	整数型
局_源长	整数型

局_缓存 ＝ 取空白文本 (参_补位长度 × 3)
局_源长 ＝ 取文本长度 (参_源文本)
局_差值 ＝ 参_补位长度 － 局_源长
置入代码 ({ 80, 139, 125, 8, 139, 63, 139, 85, 244, 82, 139, 69, 252, 49, 246, 139, 77, 248, 48, 255, 138, 28, 55, 136, 28, 16, 66, 70, 226, 246, 139, 125, 12, 139, 63, 89, 81, 49, 246, 138, 28, 55, 128, 251, 0, 117, 4, 49, 246, 235, 244, 136, 28, 16, 66, 70, 226, 237, 254, 199, 128, 255, 1, 117, 8, 89, 82, 49, 210, 49, 246, 235, 222, 89, 198, 4, 8, 0, 88 })
如果 (参_补位方向 ＝ 真)
局_缓存 ＝ 取文本右边 (局_缓存, 参_补位长度)
局_缓存 ＝ 取文本左边 (局_缓存, 参_补位长度)
返回 (局_缓存)

.版本 2<br /> <br /> .子程序 文本_补位, 文本型, 公开, 可以自由选择补前位还是后位<br /> .参数 参_源文本, 文本型<br /> .参数 参_补符, 文本型, , 如：“0”<br /> .参数 参_补位长度, 整数型<br /> .参数 参_补位方向, 逻辑型, 可空, 真补后位  假 反之<br /> .局部变量 局_缓存, 文本型<br /> .局部变量 局_差值, 整数型<br /> .局部变量 局_源长, 整数型<br /> <br /> 局_缓存 ＝ 取空白文本 (参_补位长度 × 3)<br /> 局_源长 ＝ 取文本长度 (参_源文本)<br /> 局_差值 ＝ 参_补位长度 － 局_源长<br /> 置入代码 ({ 80, 139, 125, 8, 139, 63, 139, 85, 244, 82, 139, 69, 252, 49, 246, 139, 77, 248, 48, 255, 138, 28, 55, 136, 28, 16, 66, 70, 226, 246, 139, 125, 12, 139, 63, 89, 81, 49, 246, 138, 28, 55, 128, 251, 0, 117, 4, 49, 246, 235, 244, 136, 28, 16, 66, 70, 226, 237, 254, 199, 128, 255, 1, 117, 8, 89, 82, 49, 210, 49, 246, 235, 222, 89, 198, 4, 8, 0, 88 })<br /> .如果 (参_补位方向 ＝ 真)<br />     局_缓存 ＝ 取文本右边 (局_缓存, 参_补位长度)<br /> .否则<br />     局_缓存 ＝ 取文本左边 (局_缓存, 参_补位长度)<br /> .如果结束<br /> 返回 (局_缓存)

cf2006a

kyo9766 发表于 2019-5-30 14:00
如果有补前 和 补后 就更好了 ，感谢分享

  

子程序名	返回值类型	公开	备 注
文本_补位	文本型		可以自由选择补前位还是后位
参数名	类 型	参考	可空	数组	备 注
参_源文本	文本型
参_补符	文本型				如：“0”
参_补位长度	整数型
参_补位方向	逻辑型				真补后位  假 反之

变量名	类 型	静态	数组	备 注
局_缓存	文本型
局_差值	整数型
局_源长	整数型

局_缓存 ＝ 取空白文本 (参_补位长度 × 3)
局_源长 ＝ 取文本长度 (参_源文本)
局_差值 ＝ 参_补位长度 － 局_源长
置入代码 ({ 80, 139, 125, 8, 139, 63, 139, 85, 244, 82, 139, 69, 252, 49, 246, 139, 77, 248, 48, 255, 138, 28, 55, 136, 28, 16, 66, 70, 226, 246, 139, 125, 12, 139, 63, 89, 81, 49, 246, 138, 28, 55, 128, 251, 0, 117, 4, 49, 246, 235, 244, 136, 28, 16, 66, 70, 226, 237, 254, 199, 128, 255, 1, 117, 8, 89, 82, 49, 210, 49, 246, 235, 222, 89, 198, 4, 8, 0, 88 })
如果 (参_补位方向 ＝ 真)
局_缓存 ＝ 取文本右边 (局_缓存, 参_补位长度)
局_缓存 ＝ 取文本左边 (局_缓存, 参_补位长度)
返回 (局_缓存)

.版本 2<br /> <br /> .子程序 文本_补位, 文本型, 公开, 可以自由选择补前位还是后位<br /> .参数 参_源文本, 文本型<br /> .参数 参_补符, 文本型, , 如：“0”<br /> .参数 参_补位长度, 整数型<br /> .参数 参_补位方向, 逻辑型, 可空, 真补后位  假 反之<br /> .局部变量 局_缓存, 文本型<br /> .局部变量 局_差值, 整数型<br /> .局部变量 局_源长, 整数型<br /> <br /> 局_缓存 ＝ 取空白文本 (参_补位长度 × 3)<br /> 局_源长 ＝ 取文本长度 (参_源文本)<br /> 局_差值 ＝ 参_补位长度 － 局_源长<br /> 置入代码 ({ 80, 139, 125, 8, 139, 63, 139, 85, 244, 82, 139, 69, 252, 49, 246, 139, 77, 248, 48, 255, 138, 28, 55, 136, 28, 16, 66, 70, 226, 246, 139, 125, 12, 139, 63, 89, 81, 49, 246, 138, 28, 55, 128, 251, 0, 117, 4, 49, 246, 235, 244, 136, 28, 16, 66, 70, 226, 237, 254, 199, 128, 255, 1, 117, 8, 89, 82, 49, 210, 49, 246, 235, 222, 89, 198, 4, 8, 0, 88 })<br /> .如果 (参_补位方向 ＝ 真)<br />     局_缓存 ＝ 取文本右边 (局_缓存, 参_补位长度)<br /> .否则<br />     局_缓存 ＝ 取文本左边 (局_缓存, 参_补位长度)<br /> .如果结束<br /> 返回 (局_缓存)

懒人定制软件

支持开源~！感谢分享