关于替换编辑框内的内容

christ

比如编辑框里的内容是write(":"+r+d+r+b)
                              write(":"+r+d)
                              write(":"+z+c+k+m)
我想把编辑框里所有的 r 替换成 8
                               d替换成 0
                               z替换成3
                               c替换成1
                               k替换成2
                               m替换成4
然后把文本里的除write和刚刚替换的文本，其他的全部删除，把括号双引号，冒号，加号，括号全部删除，
希望各位帮下，我实在想不到了

czlin521

看看是不是可以达到你的要求
.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击

替换1 (编辑框1)

.子程序 替换1, , 公开
.参数 编辑框, 编辑框
.局部变量 欲查找文本, 文本型
.局部变量 欲替换文本, 文本型
.局部变量 查找位置, 整数型
.局部变量 找到位置, 整数型
.局部变量 替换次数, 整数型

欲查找文本 ＝ 编辑框2.内容
欲替换文本 ＝ 编辑框3.内容
.如果真 (欲查找文本 ＝ “”)
    返回 ()
.如果真结束
.判断循环首 (找到位置 ≠ -1)
    替换次数 ＝ 替换次数 ＋ 1
    查找位置 ＝ 编辑框.起始选择位置 ＋ 1
    查找位置 ＝ 查找位置 ＋ 编辑框.被选择字符数
    找到位置 ＝ 寻找文本 (编辑框.内容, 欲查找文本, 查找位置, 假)
    .如果 (找到位置 ≠ -1)
        编辑框.获取焦点 ()
        编辑框.起始选择位置 ＝ 找到位置 － 1
        编辑框.被选择字符数 ＝ 取文本长度 (欲查找文本)
    .否则

    .如果结束
    .如果真 (编辑框.被选择文本 ＝ 欲查找文本)
        编辑框.被选择文本 ＝ 欲替换文本
    .如果真结束

.判断循环尾 ()
编辑框.获取焦点 ()
编辑框.起始选择位置 ＝ 0
11.zip (1.65 KB, 下载次数: 59)

2011-3-22 09:07 上传

点击文件名下载附件

airpppp

光想不做的伸手党,BS之!

christ

回复 2# airpppp


    我试了，但是替换符号的时候老是错误，你试试。。。

弎巳◎

坐等高手！

airpppp

回复  airpppp


    我试了，但是替换符号的时候老是错误，你试试。。。
christ 发表于 2011-3-21 18:52

    引号在易语言里表示文本
所以写代码的时候,用#引号表示,或放入文本常量
提问最好上传源码

qq285628163

路过路过路过~~~~~~~~~

christ

回复 5# airpppp


    文本常量，我试试，也许可以哟，

微凉

子文本替换

阿柳

伸手党，。。。。