哪位大神帮我看一下程序，哪里出错了

oabuw

.版本 2
.支持库 spec
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 a, 文本型
.局部变量 b, 文本型, , "0"
.局部变量 c, 整数型
.局部变量 d, 整数型
.局部变量 i, 整数型
.局部变量 x, 字节集
.局部变量 a1, 文本型, , "0"
x ＝ 读入文件 (“d:\123.doc”)
' d:\123.doc内容为手机号码
a1 ＝ 分割文本 (到文本 (x), #换行符, )
.计次循环首 (取数组成员数 (a1), i)
    调试输出 (a1 [i])
    a ＝ a1 [i]
    编辑框24.内容 ＝ a1 [i]
    .计次循环首 (取文本长度 (a), c)
        加入成员 (b, 取文本中间 (a, c, 1))
    .计次循环尾 ()
    编辑框1.内容 ＝ b [1]
    编辑框2.内容 ＝ b [2]
    编辑框3.内容 ＝ b [3]
    编辑框4.内容 ＝ b [4]
    编辑框5.内容 ＝ b [5]
    编辑框6.内容 ＝ b [6]
    编辑框7.内容 ＝ b [7]
    编辑框8.内容 ＝ b [8]
    编辑框9.内容 ＝ b [9]
    编辑框10.内容 ＝ b [10]
    编辑框11.内容 ＝ b [11]
    .如果 (编辑框1.内容 ＝ 到文本 (1))
        编辑框22.内容 ＝ “MT”
    .否则
    .如果结束
    .如果 (编辑框2.内容 ＝ 到文本 (0))
        编辑框21.内容 ＝ “A”
    .否则
        .如果 (编辑框2.内容 ＝ 到文本 (1))
            编辑框21.内容 ＝ “E”
        .否则
            .如果 (编辑框2.内容 ＝ 到文本 (2))
                编辑框21.内容 ＝ “I”
            .否则
                .如果 (编辑框2.内容 ＝ 到文本 (3))
                    编辑框21.内容 ＝ “M”
                .否则
                    .如果 (编辑框2.内容 ＝ 到文本 (4))
                        编辑框21.内容 ＝ “Q”
                    .否则
                        .如果 (编辑框2.内容 ＝ 到文本 (5))
                            编辑框21.内容 ＝ “U”
                        .否则
                            .如果 (编辑框2.内容 ＝ 到文本 (6))
                                编辑框21.内容 ＝ “Y”
                            .否则
                                .如果 (编辑框2.内容 ＝ 到文本 (7))
                                    编辑框21.内容 ＝ “c”
                                .否则
                                    .如果 (编辑框2.内容 ＝ 到文本 (8))
                                        编辑框21.内容 ＝ “g”
                                    .否则
                                        .如果 (编辑框2.内容 ＝ 到文本 (9))
                                            编辑框21.内容 ＝ “k”
                                        .否则
                                        .如果结束
                                    .如果结束
                                .如果结束
                            .如果结束
                        .如果结束
                    .如果结束
                .如果结束
            .如果结束
        .如果结束
    .如果结束
    .如果 (编辑框3.内容 ＝ 到文本 (0))
        编辑框20.内容 ＝ “w”
    .否则
        .如果 (编辑框3.内容 ＝ 到文本 (1))
            编辑框20.内容 ＝ “x”
        .否则
            .如果 (编辑框3.内容 ＝ 到文本 (2))
                编辑框20.内容 ＝ “y”
            .否则
                .如果 (编辑框3.内容 ＝ 到文本 (3))
                    编辑框20.内容 ＝ “z”
                .否则
                    .如果 (编辑框3.内容 ＝ 到文本 (4))
                        编辑框20.内容 ＝ “0”
                    .否则
                        .如果 (编辑框3.内容 ＝ 到文本 (5))
                            编辑框20.内容 ＝ “1”
                        .否则
                            .如果 (编辑框3.内容 ＝ 到文本 (6))
                                编辑框20.内容 ＝ “2”
                            .否则
                                .如果 (编辑框3.内容 ＝ 到文本 (7))
                                    编辑框20.内容 ＝ “3”
                                .否则
                                    .如果 (编辑框3.内容 ＝ 到文本 (8))
                                        编辑框20.内容 ＝ “4”
                                    .否则
                                        .如果 (编辑框3.内容 ＝ 到文本 (9))
                                            编辑框20.内容 ＝ “5”
                                        .否则
                                        .如果结束
                                    .如果结束
                                .如果结束
                            .如果结束
                        .如果结束
                    .如果结束
                .如果结束
            .如果结束
        .如果结束
    .如果结束
    .如果 (编辑框4.内容 ＝ 到文本 (0))
        编辑框19.内容 ＝ “MD”
    .否则
        .如果 (编辑框4.内容 ＝ 到文本 (1))
            编辑框19.内容 ＝ “MT”
        .否则
            .如果 (编辑框4.内容 ＝ 到文本 (2))
                编辑框19.内容 ＝ “Mj”
            .否则
                .如果 (编辑框4.内容 ＝ 到文本 (3))
                    编辑框19.内容 ＝ “Mz”
                .否则
                    .如果 (编辑框4.内容 ＝ 到文本 (4))
                        编辑框19.内容 ＝ “ND”
                    .否则
                        .如果 (编辑框4.内容 ＝ 到文本 (5))
                            编辑框19.内容 ＝ “NT”
                        .否则
                            .如果 (编辑框4.内容 ＝ 到文本 (6))
                                编辑框19.内容 ＝ “Nj”
                            .否则
                                .如果 (编辑框4.内容 ＝ 到文本 (7))
                                    编辑框19.内容 ＝ “Nz”
                                .否则
                                    .如果 (编辑框4.内容 ＝ 到文本 (8))
                                        编辑框19.内容 ＝ “OD”
                                    .否则
                                        .如果 (编辑框4.内容 ＝ 到文本 (9))
                                            编辑框19.内容 ＝ “OT”
                                        .否则
                                        .如果结束
                                    .如果结束
                                .如果结束
                            .如果结束
                        .如果结束
                    .如果结束
                .如果结束
            .如果结束
        .如果结束
    .如果结束
    .如果 (编辑框5.内容 ＝ 到文本 (0))
        编辑框18.内容 ＝ “A”
    .否则
        .如果 (编辑框5.内容 ＝ 到文本 (1))
            编辑框18.内容 ＝ “E”
        .否则
            .如果 (编辑框5.内容 ＝ 到文本 (2))
                编辑框18.内容 ＝ “I”
            .否则
                .如果 (编辑框5.内容 ＝ 到文本 (3))
                    编辑框18.内容 ＝ “M”
                .否则
                    .如果 (编辑框5.内容 ＝ 到文本 (4))
                        编辑框18.内容 ＝ “Q”
                    .否则
                        .如果 (编辑框5.内容 ＝ 到文本 (5))
                            编辑框18.内容 ＝ “U”
                        .否则
                            .如果 (编辑框5.内容 ＝ 到文本 (6))
                                编辑框18.内容 ＝ “Y”
                            .否则
                                .如果 (编辑框5.内容 ＝ 到文本 (7))
                                    编辑框18.内容 ＝ “c”
                                .否则
                                    .如果 (编辑框5.内容 ＝ 到文本 (8))
                                        编辑框18.内容 ＝ “g”
                                    .否则
                                        .如果 (编辑框5.内容 ＝ 到文本 (9))
                                            编辑框18.内容 ＝ “k”
                                        .否则
                                        .如果结束
                                    .如果结束
                                .如果结束
                            .如果结束
                        .如果结束
                    .如果结束
                .如果结束
            .如果结束
        .如果结束
    .如果结束
    .如果 (编辑框6.内容 ＝ 到文本 (0))
        编辑框17.内容 ＝ “w”
    .否则
        .如果 (编辑框6.内容 ＝ 到文本 (1))
            编辑框17.内容 ＝ “x”
        .否则
            .如果 (编辑框6.内容 ＝ 到文本 (2))
                编辑框17.内容 ＝ “y”
            .否则
                .如果 (编辑框6.内容 ＝ 到文本 (3))
                    编辑框17.内容 ＝ “z”
                .否则
                    .如果 (编辑框6.内容 ＝ 到文本 (4))
                        编辑框17.内容 ＝ “0”
                    .否则
                        .如果 (编辑框6.内容 ＝ 到文本 (5))
                            编辑框17.内容 ＝ “1”
                        .否则
                            .如果 (编辑框6.内容 ＝ 到文本 (6))
                                编辑框17.内容 ＝ “2”
                            .否则
                                .如果 (编辑框6.内容 ＝ 到文本 (7))
                                    编辑框17.内容 ＝ “3”
                                .否则
                                    .如果 (编辑框6.内容 ＝ 到文本 (8))
                                        编辑框17.内容 ＝ “4”
                                    .否则
                                        .如果 (编辑框6.内容 ＝ 到文本 (9))
                                            编辑框17.内容 ＝ “5”
                                        .否则
                                        .如果结束
                                    .如果结束
                                .如果结束
                            .如果结束
                        .如果结束
                    .如果结束
                .如果结束
            .如果结束
        .如果结束
    .如果结束
    .如果 (编辑框7.内容 ＝ 到文本 (0))
        编辑框16.内容 ＝ “MD”
    .否则
        .如果 (编辑框7.内容 ＝ 到文本 (1))
            编辑框16.内容 ＝ “MT”
        .否则
            .如果 (编辑框7.内容 ＝ 到文本 (2))
                编辑框16.内容 ＝ “Mj”
            .否则
                .如果 (编辑框7.内容 ＝ 到文本 (3))
                    编辑框16.内容 ＝ “Mz”
                .否则
                    .如果 (编辑框7.内容 ＝ 到文本 (4))
                        编辑框16.内容 ＝ “ND”
                    .否则
                        .如果 (编辑框7.内容 ＝ 到文本 (5))
                            编辑框16.内容 ＝ “NT”
                        .否则
                            .如果 (编辑框7.内容 ＝ 到文本 (6))
                                编辑框16.内容 ＝ “Nj”
                            .否则
                                .如果 (编辑框7.内容 ＝ 到文本 (7))
                                    编辑框16.内容 ＝ “Nz”
                                .否则
                                    .如果 (编辑框7.内容 ＝ 到文本 (8))
                                        编辑框16.内容 ＝ “OD”
                                    .否则
                                        .如果 (编辑框7.内容 ＝ 到文本 (9))
                                            编辑框16.内容 ＝ “OT”
                                        .否则
                                        .如果结束
                                    .如果结束
                                .如果结束
                            .如果结束
                        .如果结束
                    .如果结束
                .如果结束
            .如果结束
        .如果结束
    .如果结束
    .如果 (编辑框8.内容 ＝ 到文本 (0))
        编辑框15.内容 ＝ “A”
    .否则
        .如果 (编辑框8.内容 ＝ 到文本 (1))
            编辑框15.内容 ＝ “E”
        .否则
            .如果 (编辑框8.内容 ＝ 到文本 (2))
                编辑框15.内容 ＝ “I”
            .否则
                .如果 (编辑框8.内容 ＝ 到文本 (3))
                    编辑框15.内容 ＝ “M”
                .否则
                    .如果 (编辑框8.内容 ＝ 到文本 (4))
                        编辑框15.内容 ＝ “Q”
                    .否则
                        .如果 (编辑框8.内容 ＝ 到文本 (5))
                            编辑框15.内容 ＝ “U”
                        .否则
                            .如果 (编辑框8.内容 ＝ 到文本 (6))
                                编辑框15.内容 ＝ “Y”
                            .否则
                                .如果 (编辑框8.内容 ＝ 到文本 (7))
                                    编辑框15.内容 ＝ “c”
                                .否则
                                    .如果 (编辑框8.内容 ＝ 到文本 (8))
                                        编辑框15.内容 ＝ “g”
                                    .否则
                                        .如果 (编辑框8.内容 ＝ 到文本 (9))
                                            编辑框15.内容 ＝ “k”
                                        .否则
                                        .如果结束
                                    .如果结束
                                .如果结束
                            .如果结束
                        .如果结束
                    .如果结束
                .如果结束
            .如果结束
        .如果结束
    .如果结束
    .如果 (编辑框9.内容 ＝ 到文本 (0))
        编辑框14.内容 ＝ “w”
    .否则
        .如果 (编辑框9.内容 ＝ 到文本 (1))
            编辑框14.内容 ＝ “x”
        .否则
            .如果 (编辑框9.内容 ＝ 到文本 (2))
                编辑框14.内容 ＝ “y”
            .否则
                .如果 (编辑框9.内容 ＝ 到文本 (3))
                    编辑框14.内容 ＝ “z”
                .否则
                    .如果 (编辑框9.内容 ＝ 到文本 (4))
                        编辑框14.内容 ＝ “0”
                    .否则
                        .如果 (编辑框9.内容 ＝ 到文本 (5))
                            编辑框14.内容 ＝ “1”
                        .否则
                            .如果 (编辑框9.内容 ＝ 到文本 (6))
                                编辑框14.内容 ＝ “2”
                            .否则
                                .如果 (编辑框9.内容 ＝ 到文本 (7))
                                    编辑框14.内容 ＝ “3”
                                .否则
                                    .如果 (编辑框9.内容 ＝ 到文本 (8))
                                        编辑框14.内容 ＝ “4”
                                    .否则
                                        .如果 (编辑框9.内容 ＝ 到文本 (9))
                                            编辑框14.内容 ＝ “5”
                                        .否则
                                        .如果结束
                                    .如果结束
                                .如果结束
                            .如果结束
                        .如果结束
                    .如果结束
                .如果结束
            .如果结束
        .如果结束
    .如果结束
    .如果 (编辑框10.内容 ＝ 到文本 (0))
        编辑框13.内容 ＝ “MD”
    .否则
        .如果 (编辑框10.内容 ＝ 到文本 (1))
            编辑框13.内容 ＝ “MT”
        .否则
            .如果 (编辑框10.内容 ＝ 到文本 (2))
                编辑框13.内容 ＝ “Mj”
            .否则
                .如果 (编辑框10.内容 ＝ 到文本 (3))
                    编辑框13.内容 ＝ “Mz”
                .否则
                    .如果 (编辑框10.内容 ＝ 到文本 (4))
                        编辑框13.内容 ＝ “ND”
                    .否则
                        .如果 (编辑框10.内容 ＝ 到文本 (5))
                            编辑框13.内容 ＝ “NT”
                        .否则
                            .如果 (编辑框10.内容 ＝ 到文本 (6))
                                编辑框13.内容 ＝ “Nj”
                            .否则
                                .如果 (编辑框10.内容 ＝ 到文本 (7))
                                    编辑框13.内容 ＝ “Nz”
                                .否则
                                    .如果 (编辑框10.内容 ＝ 到文本 (8))
                                        编辑框13.内容 ＝ “OD”
                                    .否则
                                        .如果 (编辑框10.内容 ＝ 到文本 (9))
                                            编辑框13.内容 ＝ “OT”
                                        .否则
                                        .如果结束
                                    .如果结束
                                .如果结束
                            .如果结束
                        .如果结束
                    .如果结束
                .如果结束
            .如果结束
        .如果结束
    .如果结束
    .如果 (编辑框11.内容 ＝ 到文本 (0))
        编辑框12.内容 ＝ “A=”
    .否则
        .如果 (编辑框11.内容 ＝ 到文本 (1))
            编辑框12.内容 ＝ “E=”
        .否则
            .如果 (编辑框11.内容 ＝ 到文本 (2))
                编辑框12.内容 ＝ “I=”
            .否则
                .如果 (编辑框11.内容 ＝ 到文本 (3))
                    编辑框12.内容 ＝ “M=”
                .否则
                    .如果 (编辑框11.内容 ＝ 到文本 (4))
                        编辑框12.内容 ＝ “Q=”
                    .否则
                        .如果 (编辑框11.内容 ＝ 到文本 (5))
                            编辑框12.内容 ＝ “U=”
                        .否则
                            .如果 (编辑框11.内容 ＝ 到文本 (6))
                                编辑框12.内容 ＝ “Y=”
                            .否则
                                .如果 (编辑框11.内容 ＝ 到文本 (7))
                                    编辑框12.内容 ＝ “c=”
                                .否则
                                    .如果 (编辑框11.内容 ＝ 到文本 (8))
                                        编辑框12.内容 ＝ “g=”
                                    .否则
                                        .如果 (编辑框11.内容 ＝ 到文本 (9))
                                            编辑框12.内容 ＝ “k=”
                                        .否则
                                        .如果结束
                                    .如果结束
                                .如果结束
                            .如果结束
                        .如果结束
                    .如果结束
                .如果结束
            .如果结束
        .如果结束
    .如果结束
    编辑框23.内容 ＝ 编辑框22.内容 ＋ 编辑框21.内容 ＋ 编辑框20.内容 ＋ 编辑框19.内容 ＋ 编辑框18.内容 ＋ 编辑框17.内容 ＋ 编辑框16.内容 ＋ 编辑框15.内容 ＋ 编辑框14.内容 ＋ 编辑框13.内容 ＋ 编辑框12.内容 ＋ #换行符
    写到文件 (“d;\456.doc”, 到字节集 (编辑框23.内容))
    编辑框25.加入文本 (编辑框23.内容)
.计次循环尾 ()

nha30

你这代码挺牛的，其他的我看不懂。不过doc文件不能直接读入，或者写入。要用word程序组件，或者类去操作。

中楠海保镖

这个代码好像一条蛇啊

中楠海保镖

易语言 读入文件） 不能直接读取doc文件

oabuw

中楠海保镖 发表于 2018-8-12 18:41
易语言 读入文件） 不能直接读取doc文件

可以读入啊，只是会覆盖以前的文件，第二个循环出问题了，不知道出在哪

oabuw

nha30 发表于 2018-8-12 16:24
你这代码挺牛的，其他的我看不懂。不过doc文件不能直接读入，或者写入。要用word程序组件，或者类去操作。

可以读入，只是会覆盖以前的内容