生成字符表格 Ansi编码统一长度 [改]

已注销41434 · 发表于 2020-4-8 17:24:52

┏------------------------------┓
┣-----------鸿徒传奇-----------┨
┣-------------2020-------------┨
┣遥忆昔日传奇梦  剑影刀光杀气浓┨
┣兄弟情深悲欢共  夫妻恩爱生死同┨
┣杀猫逐鹿出新村  斩妖除魔入盟重┨
┣近观绿涛汇碧海  远眺青山有苍松┨
┣也曾毒谷遭蛇吻  也曾矿区做苦工┨
┣也曾惊喜暴神兵  也曾郁闷砍蛆虫┨
┣熬到三五学终技  从此天下我英雄┨
┣初次攻城显身手  沙城遍地是蛟龙┨
┣道法施威电符猛  战士逞强火腾空┨
┣龙纹骨玉加裁决  对酒当歌铲皇宫┨
┣三更战罢有余悸  旷野处处闻哀鸿┨
┣为报友仇下祖玛  为雪妻恨清蜈蚣┨
┣哪有英雄怕诅咒  何来好汉惧名红┨
┗------------------------------┛

子程序名	返回值类型	公开	备注
_临时子程序

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

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
加入成员 (Str, “鸿徒传奇”)
加入成员 (Str, “2020”)
加入成员 (Str, “遥忆昔日传奇梦  剑影刀光杀气浓”)
加入成员 (Str, “兄弟情深悲欢共  夫妻恩爱生死同”)
加入成员 (Str, “杀猫逐鹿出新村  斩妖除魔入盟重”)
加入成员 (Str, “近观绿涛汇碧海  远眺青山有苍松”)
加入成员 (Str, “也曾毒谷遭蛇吻  也曾矿区做苦工”)
加入成员 (Str, “也曾惊喜暴神兵  也曾郁闷砍蛆虫”)
加入成员 (Str, “熬到三五学终技  从此天下我英雄”)
加入成员 (Str, “初次攻城显身手  沙城遍地是蛟龙”)
加入成员 (Str, “道法施威电符猛  战士逞强火腾空”)
加入成员 (Str, “龙纹骨玉加裁决  对酒当歌铲皇宫”)
加入成员 (Str, “三更战罢有余悸  旷野处处闻哀鸿”)
加入成员 (Str, “为报友仇下祖玛  为雪妻恨清蜈蚣”)
加入成员 (Str, “哪有英雄怕诅咒  何来好汉惧名红”)
调试输出 (getStr (Str))

子程序名	返回值类型	公开	备注
getStr	文本型
参数名	类型	参考	可空	数组	备注
Str	文本型
result	文本型

变量名	类型	静态	数组	备注
Nums	整数型
Index	整数型
iLength	整数型
Length	整数型
Padding	文本型
String	文本型
Len	整数型

清除数组 (result)
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]))
Padding ＝取重复文本 ( (iLength － Len) ÷ 2, “-”)
String ＝ String ＋ “┣” ＋ Padding ＋ Str [Index] ＋ Padding ＋ “┨” ＋ #换行符
加入成员 (result, Padding ＋ Str [Index] ＋ Padding)
.CounterLoop ()
String ＝ String ＋ “┗” ＋取重复文本 (iLength, “-”) ＋ “┛” ＋ #换行符
return (String)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br />
.支持库 spec<br />
<br />
.子程序 _临时子程序<br />
.局部变量 Str, 文本型, , "0"<br />
<br />
' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。<br />
加入成员 (Str, “鸿徒传奇”)<br />
加入成员 (Str, “2020”)<br />
加入成员 (Str, “遥忆昔日传奇梦  剑影刀光杀气浓”)<br />
加入成员 (Str, “兄弟情深悲欢共  夫妻恩爱生死同”)<br />
加入成员 (Str, “杀猫逐鹿出新村  斩妖除魔入盟重”)<br />
加入成员 (Str, “近观绿涛汇碧海  远眺青山有苍松”)<br />
加入成员 (Str, “也曾毒谷遭蛇吻  也曾矿区做苦工”)<br />
加入成员 (Str, “也曾惊喜暴神兵  也曾郁闷砍蛆虫”)<br />
加入成员 (Str, “熬到三五学终技  从此天下我英雄”)<br />
加入成员 (Str, “初次攻城显身手  沙城遍地是蛟龙”)<br />
加入成员 (Str, “道法施威电符猛  战士逞强火腾空”)<br />
加入成员 (Str, “龙纹骨玉加裁决  对酒当歌铲皇宫”)<br />
加入成员 (Str, “三更战罢有余悸  旷野处处闻哀鸿”)<br />
加入成员 (Str, “为报友仇下祖玛  为雪妻恨清蜈蚣”)<br />
加入成员 (Str, “哪有英雄怕诅咒  何来好汉惧名红”)<br />
调试输出 (getStr (Str))<br />
<br />
.子程序 getStr, 文本型<br />
.参数 Str, 文本型, 数组<br />
.参数 result, 文本型, 参考 可空 数组<br />
.局部变量 Nums, 整数型<br />
.局部变量 Index, 整数型<br />
.局部变量 iLength, 整数型<br />
.局部变量 Length, 整数型<br />
.局部变量 Padding, 文本型<br />
.局部变量 String, 文本型<br />
.局部变量 Len, 整数型<br />
<br />
清除数组 (result)<br />
Nums ＝ 取数组成员数 (Str)<br />
.counter (Nums, Index)<br />
    Length ＝ 取字节集长度 (到字节集 (Str [Index]))<br />
    .if (Length ％ 2 ≠ 0)<br />
        Str [Index] ＝ Str [Index] ＋ “ ”<br />
    .如果真结束<br />
    .if (Length ＞ iLength)<br />
        iLength ＝ Length<br />
    .如果真结束<br />
<br />
.CounterLoop ()<br />
.if (iLength ％ 2 ≠ 0)<br />
    iLength ＝ iLength ＋ 1<br />
.如果真结束<br />
String ＝ String ＋ #换行符<br />
String ＝ String ＋ “┏” ＋ 取重复文本 (iLength, “-”) ＋ “┓” ＋ #换行符<br />
.counter (Nums, Index)<br />
    Len ＝ 取字节集长度 (到字节集 (Str [Index]))<br />
    Padding ＝ 取重复文本 ((iLength － Len) ÷ 2, “-”)<br />
    String ＝ String ＋ “┣” ＋ Padding ＋ Str [Index] ＋ Padding ＋ “┨” ＋ #换行符<br />
    加入成员 (result, Padding ＋ Str [Index] ＋ Padding)<br />
.CounterLoop ()<br />
String ＝ String ＋ “┗” ＋ 取重复文本 (iLength, “-”) ＋ “┛” ＋ #换行符<br />
return (String)

StrLength.e (5.11 KB, 下载次数: 22)