|
分享源码
界面截图: |
- |
是否带模块: |
- |
备注说明: |
- |
本帖最后由 Nameker 于 2020-4-7 08:49 编辑
生成字符表格
来波关注来波赞
┏------------------------------------------------┓
┣--------------------逸豪方明--------------------┨
┣------------------QQ:782765640------------------┨
┣------------2020年4月6日21时0分37秒 ------------┨
┣--------------------逸豪方明--------------------┨
┣------------------QQ:782765640------------------┨
┣------------2020年4月6日21时0分37秒 ------------┨
┣--------------------逸豪方明--------------------┨
┣------------------QQ:782765640------------------┨
┣------------2020年4月6日21时0分37秒 ------------┨
┣--------------------逸豪方明--------------------┨
┣------------------QQ:782765640------------------┨
┣------------2020年4月6日21时0分37秒 ------------┨
┣--------------------逸豪方明--------------------┨
┣------------------QQ:782765640------------------┨
┣------------2020年4月6日21时0分37秒 ------------┨
┣--------------------逸豪方明--------------------┨
┣------------------QQ:782765640------------------┨
┣------------2020年4月6日21时0分37秒 ------------┨
┣--------------------逸豪方明--------------------┨
┣------------------QQ:782765640------------------┨
┣------------2020年4月6日21时0分37秒 ------------┨
┣--------------------逸豪方明--------------------┨
┣------------------QQ:782765640------------------┨
┣------------2020年4月6日21时0分37秒 ------------┨
┣--------------------逸豪方明--------------------┨
┣------------------QQ:782765640------------------┨
┣------------2020年4月6日21时0分37秒 ------------┨
┣--------------------逸豪方明--------------------┨
┣------------------QQ:782765640------------------┨
┣------------2020年4月6日21时0分37秒 ------------┨
┗------------------------------------------------┛
.版本 2
.子程序 getStr, 文本型
.参数 Str, 文本型, 数组
.局部变量 Nums, 整数型
.局部变量 Index, 整数型
.局部变量 iLength, 整数型
.局部变量 Length, 整数型
.局部变量 Padding, 文本型
.局部变量 String, 文本型
.局部变量 Len, 整数型
Nums = 取数组成员数 (Str)
.counter (Nums, Index)
Length = 取字节集长度 (到字节集 (Str [Index]))
.if (Length % 2 ≠ 0)
Str [Index] = Str [Index] + “ ”
.如果真结束
.if (Length > iLength)
iLength = Length
.如果真结束
.CounterLoop ()
.if (iLength % 2 ≠ 0)
iLength = iLength + 1
.如果真结束
String = String + #换行符
String = String + “┏” + 取重复文本 (iLength, “--”) + “┓” + #换行符
.counter (Nums, Index)
Len = 取字节集长度 (到字节集 (Str [Index])) ÷ 2
Padding = 取重复文本 (iLength - Len, “-”)
String = String + “┣” + Padding + Str [Index] + Padding + “┨” + #换行符
.CounterLoop ()
String = String + “┗” + 取重复文本 (iLength, “--”) + “┛” + #换行符
return (String)
|
|