简易方法实现长文本与字符代码互转 - 精易论坛

子程序名	返回值类型	公开	备注
初始化

变量名	类型	静态	数组	备注
IptStr	文本型			Input String
Data	文本型

IptStr ＝ “精易论坛 - https://125.confly.eu.org/”
Data ＝根据字符串生成ASCII (IptStr)
调试输出 (Data)
调试输出 (根据ASCII生成字符串 (Data))
IptStr ＝ #常量_精易模块更新日志
Data ＝根据字符串生成ASCII (IptStr)
调试输出 (Data)
调试输出 (根据ASCII生成字符串 (Data))

子程序名	返回值类型	公开	备注
根据字符串生成ASCII	文本型
参数名	类型	参考	可空	数组	备注
str	文本型				String

变量名	类型	静态	数组	备注
i	整数型
str2	文本型

计次循环首 (取文本长度 (str), i)

' str2 ＝ str2 ＋到文本 (取代码 (str, i)) ＋ “, ”

如果 (str2 ＝ “”)

str2 ＝到文本 (取代码 (str, i))

str2 ＝ str2 ＋ “, ” ＋到文本 (取代码 (str, i))

计次循环尾 ()
' str2 ＝取文本左边 (str2, 取文本长度 (str2) － 4)
' str2 ＝取文本左边 (str2, 取文本长度 (str2) － 2)
返回 (str2)

子程序名	返回值类型	公开	备注
根据ASCII生成字符串	文本型
参数名	类型	参考	可空	数组	备注
str	文本型				String

变量名	类型	静态	数组	备注
StrArray	文本型		0	String Array
i	整数型
OptStr	文本型			Output String

StrArray ＝分割文本 (str, “, ”, )
调试输出 (StrArray)

计次循环首 (取数组成员数 (StrArray), i)

如果 (OptStr ＝ “”)

OptStr ＝字符 (到整数 (StrArray [i]))

OptStr ＝ OptStr ＋字符 (到整数 (StrArray [i]))

计次循环尾 ()
返回 (OptStr)

子程序名	返回值类型	公开	备注
子程序1	文本型		https://125.confly.eu.org/forum.php?mod=viewthread&tid=13889381
参数名	类型	参考	可空	数组	备注
str	文本型

变量名	类型	静态	数组	备注
i	整数型
str2	文本型

计次循环首 (取文本长度 (str), i)

str2 ＝ str2 ＋ “字符 (” ＋到文本 (取代码 (str, i)) ＋ “) ＋ ”

计次循环尾 ()
str2 ＝取文本左边 (str2, 取文本长度 (str2) － 4)
返回 (str2)

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

.版本 2<br />
.支持库 spec<br />
<br />
.子程序 初始化<br />
.局部变量 IptStr, 文本型, , , Input String<br />
.局部变量 Data, 文本型<br />
<br />
IptStr ＝ “精易论坛 - https://125.confly.eu.org/”<br />
Data ＝ 根据字符串生成ASCII (IptStr)<br />
调试输出 (Data)<br />
<br />
调试输出 (根据ASCII生成字符串 (Data))<br />
<br />
IptStr ＝ #常量_精易模块更新日志<br />
Data ＝ 根据字符串生成ASCII (IptStr)<br />
调试输出 (Data)<br />
<br />
调试输出 (根据ASCII生成字符串 (Data))<br />
<br />
<br />
.子程序 根据字符串生成ASCII, 文本型, 公开<br />
.参数 str, 文本型, , String<br />
.局部变量 i, 整数型<br />
.局部变量 str2, 文本型<br />
<br />
.计次循环首 (取文本长度 (str), i)<br />
    ' str2 ＝ str2 ＋ 到文本 (取代码 (str, i)) ＋ “, ”<br />
<br />
    .如果 (str2 ＝ “”)<br />
        str2 ＝ 到文本 (取代码 (str, i))<br />
    .否则<br />
        str2 ＝ str2 ＋ “, ” ＋ 到文本 (取代码 (str, i))<br />
    .如果结束<br />
<br />
.计次循环尾 ()<br />
' str2 ＝ 取文本左边 (str2, 取文本长度 (str2) － 4)<br />
' str2 ＝ 取文本左边 (str2, 取文本长度 (str2) － 2)<br />
<br />
返回 (str2)<br />
<br />
<br />
.子程序 根据ASCII生成字符串, 文本型, 公开<br />
.参数 str, 文本型, , String<br />
.局部变量 StrArray, 文本型, , "0", String Array<br />
.局部变量 i, 整数型<br />
.局部变量 OptStr, 文本型, , , Output String<br />
<br />
StrArray ＝ 分割文本 (str, “, ”, )<br />
<br />
调试输出 (StrArray)<br />
<br />
.计次循环首 (取数组成员数 (StrArray), i)<br />
    .如果 (OptStr ＝ “”)<br />
        OptStr ＝ 字符 (到整数 (StrArray <i>))<br />
<br />
    .否则<br />
        OptStr ＝ OptStr ＋ 字符 (到整数 (StrArray <i>))<br />
<br />
    .如果结束<br />
<br />
.计次循环尾 ()<br />
<br />
返回 (OptStr)<br />
<br />
<br />
.子程序 子程序1, 文本型, , https://125.confly.eu.org/forum.php?mod=viewthread&tid=13889381<br />
.参数 str, 文本型<br />
.局部变量 i, 整数型<br />
.局部变量 str2, 文本型<br />
<br />
.计次循环首 (取文本长度 (str), i)<br />
    str2 ＝ str2 ＋ “字符 (” ＋ 到文本 (取代码 (str, i)) ＋ “) ＋ ”<br />
.计次循环尾 ()<br />
str2 ＝ 取文本左边 (str2, 取文本长度 (str2) － 4)<br />
返回 (str2)

精易论坛

简介

参考

下载