文本转换问题

airpppp

回复  airpppp


      临时子文本 ＝ 临时子文本 ＋ 数组 [到数值 (单字符)]   数组排序,数组[1]=数字 ...
上帝是姑娘 发表于 2011-4-26 13:48

    那就把数字0放到数组第一个,修改如下即可
数组 [到数值 (单字符)+1]

上帝是姑娘

回复 11# airpppp


    又要麻烦你了

我加个0后 文本好像乱了。  

.版本 2

.局部变量 临时子文本, 文本型
.局部变量 数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 单字符, 文本型

数组 ＝ { “0”, “7”, “5”, “9”, “B”, “E”, “A”, “3”, “1”, “C”, “4”, “8”, “6”, “F”, “D”, “2” }
.计次循环首 (取文本长度 (编辑框1.内容), i)
    单字符 ＝ 取文本中间 (编辑框1.内容, i, 1)
    .如果 (取代码 (单字符, ) ＜ 65)
        临时子文本 ＝ 临时子文本 ＋ 数组 [到数值 (单字符) ＋ 1]
    .否则
        临时子文本 ＝ 临时子文本 ＋ 数组 [取代码 (单字符, ) － 64 ＋ 9]
    .如果结束

.计次循环尾 ()
返回 (临时子文本)

你看看有什么问题么

airpppp

临时子文本 ＝ 临时子文本 ＋ 数组 [取代码 (单字符, ) － 64 ＋ 9]
这个也要加1的嘛,改成:
临时子文本 ＝ 临时子文本 ＋ 数组 [取代码 (单字符, ) － 64 ＋ 10]