易语⾔⽂本型和字节集型数据相互转换的⼯具
⽂本和字节集数据互相转换的代码
.版本 2
.程序集窗⼝程序集1
.⼦程序⽂本到字节集, ⽂本型, 公开
.参数要转换的⽂本, ⽂本型
.局部变量字节集变量, 字节集
.局部变量循环次数, 整数型
.局部变量字节型变量, 字节集
.局部变量要输出的⽂本, ⽂本型
.局部变量⽂本数据, ⽂本型
⽂本数据=要转换的⽂本
字节集变量=到字节集 (⽂本数据)
.计次循环⾸ (取字节集长度 (字节集变量), 循环次数)
字节型变量=取字节集中间 (字节集变量, 循环次数, 1)
.如果 (循环次数<取字节集长度 (字节集变量))
要输出的⽂本=要输出的⽂本+到⽂本 (取字节集数据 (字节型变量, #字节型, )) + “,”
.否则
要输出的⽂本=要输出的⽂本+到⽂本 (取字节集数据 (字节型变量, #字节型, ))
.如果结束
.计次循环尾 ()
返回 (要输出的⽂本)
.
⼦程序字节集到⽂本, ⽂本型, 公开, 数据必须以“,”分割,且⽆{}
.参数要转换的⽂本型数据, ⽂本型, , 数据必须以“,”分割,且⽆{}
.局部变量循环次数, 整数型
.局部变量整数数组, 整数型, , "0"
.局部变量⽂本数组, ⽂本型, , "0"
.局部变量⽂本数据, ⽂本型
⽂本数据=要转换的⽂本型数据
⽂本数组=分割⽂本 (⽂本数据, “,”, )
.计次循环⾸ (取数组成员数 (⽂本数组), 循环次数)
加⼊成员 (整数数组, 到整数 (⽂本数组 [循环次数]))
.计次循环尾 ()
返回 (到⽂本 (⼦字节集替换 (到字节集 (整数数组), { 0 }, { }, , )))
.⼦程序字节集型⽂本到字节集, 字节集, 公开, 数据必须以“,”分割,且⽆{}
.参数要转换的⽂本型数据, ⽂本型, , 数据必须以“,”分割,且⽆{}
.局部变量循环次数, 整数型
.局部变量整数数组, 整数型, , "0"
.局部变量⽂本数组, ⽂本型, , "0"
.局部变量⽂本数据, ⽂本型
⽂本数据=要转换的⽂本型数据
⽂本数组=分割⽂本 (⽂本数据, “,”, )
.计次循环⾸ (取数组成员数 (⽂本数组), 循环次数)
加⼊成员 (整数数组, 到整数 (⽂本数组 [循环次数]))
.
代码转换计次循环尾 ()
返回 (⼦字节集替换 (到字节集 (整数数组), { 0 }, { }, , ))
.⼦程序 _⽂本到字节集按钮_被单击
字节集编辑框.内容=⽂本到字节集 (⽂本编辑框.内容)
.⼦程序 _字节集转换⽂本按钮_被单击
⽂本编辑框.内容=字节集到⽂本 (字节集编辑框.内容)
运⾏结果:
总结
以上就是这篇⽂章的全部内容了,希望本⽂的内容对⼤家的学习或者⼯作具有⼀定的参考学习价值,谢谢⼤家对的⽀持。如果你想了解更多相关内容请查看下⾯相关链接
版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。
发表评论