易语言字节集与文本转换
把字节集转换为文本(如a={1,2,3,4}转换后不变)。文本转字节集。字节集转换为文件怎么弄...
把字节集转换为文本(如a={1,2,3,4}转换后不变)。文本转字节集。字节集转换为文件怎么弄
展开
2013-07-25
展开全部
首先判断首位是否有“{}”然后将其删除
然后使用文本分割对字节集进行分割
最后写一个十到十六进制的子程序将这些文本型数值转换到文本型十六进制
具体方法如下:
.版本 2
.局部变量 I, 整数型
.局部变量 Text, 文本型
.局部变量 TextA, 文本型, , "0"
Text = 删首尾空 (编辑框1.内容)
Text = 子文本替换 (Text, “ ”, , , , 真)
Text = 子文本替换 (Text, “{”, , , , 真)
Text = 子文本替换 (Text, “}”, , , , 真)
.如果真 (Text = “”)
返回 ()
.如果真结束
TextA = 分割文本 (Text, “,”, )
Text = “”
.计次循环首 (取数组成员数 (TextA), I)
.如果 (到整数 (TextA [I]) > 15)
Text = Text + 取十六进制文本 (到整数 (TextA [I])) + “ ”
.否则
Text = Text + “0” + 取十六进制文本 (到整数 (TextA [I])) + “ ”
.如果结束
.计次循环尾 ()
编辑框2.内容 = Text
然后使用文本分割对字节集进行分割
最后写一个十到十六进制的子程序将这些文本型数值转换到文本型十六进制
具体方法如下:
.版本 2
.局部变量 I, 整数型
.局部变量 Text, 文本型
.局部变量 TextA, 文本型, , "0"
Text = 删首尾空 (编辑框1.内容)
Text = 子文本替换 (Text, “ ”, , , , 真)
Text = 子文本替换 (Text, “{”, , , , 真)
Text = 子文本替换 (Text, “}”, , , , 真)
.如果真 (Text = “”)
返回 ()
.如果真结束
TextA = 分割文本 (Text, “,”, )
Text = “”
.计次循环首 (取数组成员数 (TextA), I)
.如果 (到整数 (TextA [I]) > 15)
Text = Text + 取十六进制文本 (到整数 (TextA [I])) + “ ”
.否则
Text = Text + “0” + 取十六进制文本 (到整数 (TextA [I])) + “ ”
.如果结束
.计次循环尾 ()
编辑框2.内容 = Text
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询