易语言制作一个删除文本文档(TXT)中的所有文字和英文字母

君临天下

RT:
易语言制作一个能删除TXT中的 所有中文!!和所有英文!!! 是所有!!! 保留 数字和句点!!

在线等啊!!!QQ717598115

什么叫易

[e].版本 2

.子程序 取特定文本, 文本型, 公开, 取出特定的中文、英文、数字、标点符号，By:(彬)泪闯天涯
.参数 文本参数, 文本型
.参数 保留中文, 逻辑型
.参数 保留英文, 逻辑型
.参数 保留数字, 逻辑型
.参数 保留标点, 逻辑型
.局部变量 n, 整数型
.局部变量 Asc, 整数型
.局部变量 i, 整数型
.局部变量 length, 整数型
.局部变量 strRet, 文本型
.局部变量 bRet, 逻辑型

length ＝ 取文本长度 (文本参数)
.循环判断首 ()
    Asc ＝ 取代码 (文本参数, i)
    bRet ＝ 假
    .如果真 (Asc ＜ 0)
        Asc ＝ 256 ＋ Asc
    .如果真结束
    .如果 (Asc ＜ 127)
        n ＝ 1
        .判断开始 (Asc ＞ 96 且 Asc ＜ 123)  ' a-z   97-122
            bRet ＝ 保留英文
        .判断 (Asc ＞ 64 且 Asc ＜ 91)  ' A-Z   65-90
            bRet ＝ 保留英文
        .判断 (Asc ＞ 47 且 Asc ＜ 58)  ' 0-9   48-57
            bRet ＝ 保留数字
        .默认
            bRet ＝ 保留标点
        .判断结束

    .否则
        n ＝ 2
        bRet ＝ 保留中文
    .如果结束
    .如果真 (bRet)
        strRet ＝ strRet ＋ 取文本中间 (文本参数, i, n)
    .如果真结束
    i ＝ i ＋ n
.循环判断尾 (i ≤ length)
返回 (strRet)
[/e]这是彬哥的源码{:3_244:}

Apple。

2JB让大家做这个是不是有的为难了

君临天下

724971661 发表于 2012-1-14 15:02
2JB让大家做这个是不是有的为难了

怎么加精币...

wu9930

学习一下，刚好想要的

xjyehonghai

很好的源码，谢谢分享。