<>强文本和字节集数据互相转换的代码
第2版。本
。程序集窗口程序集1
,子程序文本到字节集,文本型,公开
。参数要转换的文本,文本型
。局部变量字节集变量,字节集
。局部变量循环次数,整数型
。局部变量字节型变量,字节集
。局部变量要输出的文本,文本型
。局部变量文本数据,文本型
文本数据=要转换的文本
字节集变量=到字节集(文本数据)
计。次循环首(取字节集长度(字节集变量),循环次数)
字节型变量=取字节集中间(字节集变量,循环次数,1)
。如果(循环次数<取字节集长度(字节集变量))
要输出的文本=要输出的文本+到文本(取字节集数据(字节型变量,#字节型,))+”、“
否,则
要输出的文本=要输出的文本+到文本(取字节集数据(字节型变量,#字节型,))
。如果结束
计。次循环尾()
返回(要输出的文本)
,子程序字节集到文本,文本型,公开,数据必须以”、“分割,且无{}
。参数要转换的文本型数据,文本型,,数据必须以”、“分割,且无{}
。局部变量循环次数,整数型
。局部变量整数数组,整数型,,“0”
。局部变量文本数组,文本型,,“0”
。局部变量文本数据,文本型
文本数据=要转换的文本型数据
文本数组=分割文本(文本数据,“,”)
计。次循环首(取数组成员数(文本数组),循环次数)
加入成员(整数数组,到整数(文本数组[循环次数)))
计。次循环尾()
返回(到文本(子字节集替换(到字节集(整数数组),{0},{},,)))
,子程序字节集型文本到字节集,字节集,公开,数据必须以”、“分割,且无{}
。参数要转换的文本型数据,文本型,,数据必须以”、“分割,且无{}
。局部变量循环次数,整数型
。局部变量整数数组,整数型,,“0”
。局部变量文本数组,文本型,,“0”
。局部变量文本数据,文本型
文本数据=要转换的文本型数据
文本数组=分割文本(文本数据,“,”)
计。次循环首(取数组成员数(文本数组),循环次数)
加入成员(整数数组,到整数(文本数组[循环次数)))
计。次循环尾()
返回(子字节集替换(到字节集(整数数组),{0},{},,))
,子程序_文本到字节集按钮_被单击
字节集编辑框。内容=文本到字节集(文本编辑框。内容)
,子程序_字节集转换文本按钮_被单击
文本编辑框。内容=字节集到文本(字节集编辑框。内容)
<>强运行结果:
<强>总结
以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对的支持。如果你想了解更多相关内容请查看下面相关链接
