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

gytxtx

简介

一个简单的方法实现长文本与 ASCII 字符代码互转的源码。

毫无技术含量，大佬勿喷

参考

https://125.confly.eu.org/forum.php?mod=viewthread&tid=13889381

下载

您可以从下面的附件中下载源代码：

ASCII 字符代码生成与还原.e (6.16 KB, 下载次数: 12)

2025-1-30 22:49 上传

点击文件名下载附件
下载积分: 精币 -2 枚

  

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

变量名	类 型	静态	数组	备 注
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)

614430887

谢谢分享

283688410

谢谢分享

卡卡1111

支持开源~！感谢分享

qq2518

学习一下。感谢分享

wh1234567

学习进步！......

杨明煜

学习进步！......

亿万

感谢分享

半夏微凉ゝ

谢谢分享

renhe2018

必须支持啊