易语言文本型和字节集型数据相互转换的工具

163 阅读 0 评论 108 点赞

我是靠谱客的博主丰富服饰，最近开发中收集的这篇文章主要介绍易语言文本型和字节集型数据相互转换的工具，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

文本和字节集数据互相转换的代码

.版本 2
.程序集 窗口程序集1
.子程序 文本到字节集, 文本型, 公开
.参数 要转换的文本, 文本型
.局部变量 字节集变量, 字节集
.局部变量 循环次数, 整数型
.局部变量 字节型变量, 字节集
.局部变量 要输出的文本, 文本型
.局部变量 文本数据, 文本型
文本数据 ＝ 要转换的文本
字节集变量 ＝ 到字节集 (文本数据)
.计次循环首 (取字节集长度 (字节集变量), 循环次数)
  字节型变量 ＝ 取字节集中间 (字节集变量, 循环次数, 1)
  .如果 (循环次数 ＜ 取字节集长度 (字节集变量))
    要输出的文本 ＝ 要输出的文本 ＋ 到文本 (取字节集数据 (字节型变量, #字节型, )) ＋ “,”
  .否则
    要输出的文本 ＝ 要输出的文本 ＋ 到文本 (取字节集数据 (字节型变量, #字节型, ))
  .如果结束
.计次循环尾 ()
返回 (要输出的文本)
.子程序 字节集到文本, 文本型, 公开, 数据必须以“,”分割，且无｛｝
.参数 要转换的文本型数据, 文本型, , 数据必须以“,”分割，且无｛｝
.局部变量 循环次数, 整数型
.局部变量 整数数组, 整数型, , "0"
.局部变量 文本数组, 文本型, , "0"
.局部变量 文本数据, 文本型
文本数据 ＝ 要转换的文本型数据
文本数组 ＝ 分割文本 (文本数据, “,”, )
.计次循环首 (取数组成员数 (文本数组), 循环次数)
  加入成员 (整数数组, 到整数 (文本数组 [循环次数]))
.计次循环尾 ()
返回 (到文本 (子字节集替换 (到字节集 (整数数组), { 0 }, { }, , )))
.子程序 字节集型文本到字节集, 字节集, 公开, 数据必须以“,”分割，且无｛｝
.参数 要转换的文本型数据, 文本型, , 数据必须以“,”分割，且无｛｝
.局部变量 循环次数, 整数型
.局部变量 整数数组, 整数型, , "0"
.局部变量 文本数组, 文本型, , "0"
.局部变量 文本数据, 文本型
文本数据 ＝ 要转换的文本型数据
文本数组 ＝ 分割文本 (文本数据, “,”, )
.计次循环首 (取数组成员数 (文本数组), 循环次数)
  加入成员 (整数数组, 到整数 (文本数组 [循环次数]))
.计次循环尾 ()
返回 (子字节集替换 (到字节集 (整数数组), { 0 }, { }, , ))
.子程序 _文本到字节集按钮_被单击
字节集编辑框.内容 ＝ 文本到字节集 (文本编辑框.内容)
.子程序 _字节集转换文本按钮_被单击
文本编辑框.内容 ＝ 字节集到文本 (字节集编辑框.内容)

运行结果：