TC官方合作论坛

标题: 求大神翻译，把易语言源码翻译成tc的 [打印本页]

作者: p6301854 时间: 2017-2-19 22:29
标题: 求大神翻译，把易语言源码翻译成tc的
.版本 2

.程序集窗口程序集1
.程序集变量 bjk, 编辑框
.程序集变量 bccca, 文本型, , "9"
.程序集变量 bcccb, 文本型, , "9"
.程序集变量 bcccc, 文本型, , "9"
.程序集变量 bd, 整数型, , "9"
.程序集变量 e1, 文本型, , "81"
.程序集变量 e2, 文本型, , "81"

.子程序 __启动窗口_创建完毕

.子程序 _按钮1_被单击
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 z, 整数型
.局部变量 a, 整数型
.局部变量 yccy, 文本型

yccy ＝ “”
.计次循环首 (9, y)
bccca [y] ＝ “”
.计次循环首 (9, x)
      bjk ＝取标记组件 ((y － 1) × 9 ＋ x)
      .如果真 (取文本长度 (bjk.内容) ＝ 1)
         bccca [y] ＝ bccca [y] ＋ bjk.内容
      .如果真结束

.计次循环尾 ()
.计次循环首 (取文本长度 (bccca [y]), x)
      .如果真 (寻找文本 (bccca [y], 取文本中间 (bccca [y], x, 1), x ＋ 1, 假) ≠ -1)
         yccy ＝ yccy ＋ “第” ＋到文本 (y) ＋ “横行有重复数字 ” ＋取文本中间 (bccca [y], x, 1) ＋ #换行符
      .如果真结束

.计次循环尾 ()

.计次循环尾 ()
.计次循环首 (9, x)
bcccb [x] ＝ “”
.计次循环首 (9, y)
      bjk ＝取标记组件 ((y － 1) × 9 ＋ x)
      .如果真 (取文本长度 (bjk.内容) ＝ 1)
         bcccb [x] ＝ bcccb [x] ＋ bjk.内容
      .如果真结束

.计次循环尾 ()
.计次循环首 (取文本长度 (bcccb [x]), y)
      .如果真 (寻找文本 (bcccb [x], 取文本中间 (bcccb [x], y, 1), y ＋ 1, 假) ≠ -1)
         yccy ＝ yccy ＋ “第” ＋到文本 (x) ＋ “竖行有重复数字 ” ＋取文本中间 (bcccb [x], y, 1) ＋ #换行符
      .如果真结束

.计次循环尾 ()
.计次循环尾 ()
.计次循环首 (3, a)
.计次循环首 (3, z)
      bcccc [(a － 1) × 3 ＋ z] ＝ “”
      .计次循环首 (3, y)
         .计次循环首 (3, x)
            bjk ＝取标记组件 ((a － 1) × 27 ＋ (z － 1) × 3 ＋ (y － 1) × 9 ＋ x)
            .如果真 (取文本长度 (bjk.内容) ＝ 1)
                  bcccc [(a － 1) × 3 ＋ z] ＝ bcccc [(a － 1) × 3 ＋ z] ＋ bjk.内容
            .如果真结束

         .计次循环尾 ()
      .计次循环尾 ()
      .计次循环首 (取文本长度 (bcccc [(a － 1) × 3 ＋ z]), x)
         .如果真 (寻找文本 (bcccc [(a － 1) × 3 ＋ z], 取文本中间 (bcccc [(a － 1) × 3 ＋ z], x, 1), x ＋ 1, 假) ≠ -1)
            yccy ＝ yccy ＋ “第” ＋到文本 ((a － 1) × 3 ＋ z) ＋ “区有重复数字 ” ＋取文本中间 (bcccc [(a － 1) × 3 ＋ z], x, 1) ＋ #换行符
         .如果真结束

      .计次循环尾 ()
.计次循环尾 ()
.计次循环尾 ()
.如果 (yccy ≠ “”)
信息框 (yccy, 0, “错误”)
.否则
数组清零 (e1)
.计次循环首 (81, x)
      bjk ＝取标记组件 (x)
      .如果 (bjk.内容 ≠ “”)
         e1 [x] ＝ bjk.内容
      .否则
         e1 [x] ＝ “”
      .如果结束

.计次循环尾 ()
出结果 ()
.如果结束

.子程序出结果
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 z, 整数型
.局部变量 a, 整数型
.局部变量 b, 整数型
.局部变量 f, 整数型

.循环判断首 ()
f ＝ 0
.计次循环首 (81, x)
      bjk ＝取标记组件 (x)
      .如果 (取文本长度 (bjk.内容) ＝ 0)
         e2 [x] ＝ “123456789”
      .否则
         e2 [x] ＝ e1 [x]
      .如果结束
      a ＝ (x － 1) ÷ 9 ＋ 1
      .计次循环首 (取文本长度 (bccca [a]), y)
         b ＝寻找文本 (e2 [x], 取文本中间 (bccca [a], y, 1), 1, 假)
         .如果真 (b ≠ -1)
            e2 [x] ＝取文本左边 (e2 [x], b － 1) ＋取文本右边 (e2 [x], 取文本长度 (e2 [x]) － b)
         .如果真结束

      .计次循环尾 ()
      a ＝ (x － 1) ％ 9 ＋ 1
      .计次循环首 (取文本长度 (bcccb [a]), y)
         b ＝寻找文本 (e2 [x], 取文本中间 (bcccb [a], y, 1), 1, 假)
         .如果真 (b ≠ -1)
            e2 [x] ＝取文本左边 (e2 [x], b － 1) ＋取文本右边 (e2 [x], 取文本长度 (e2 [x]) － b)
         .如果真结束

      .计次循环尾 ()
      b ＝ (x － 1) ÷ 27
      a ＝ b × 3 ＋ ((x － 1) ％ 9) ÷ 3 ＋ 1
      .计次循环首 (取文本长度 (bcccc [a]), y)
         b ＝寻找文本 (e2 [x], 取文本中间 (bcccc [a], y, 1), 1, 假)
         .如果真 (b ≠ -1)
            e2 [x] ＝取文本左边 (e2 [x], b － 1) ＋取文本右边 (e2 [x], 取文本长度 (e2 [x]) － b)
         .如果真结束

      .计次循环尾 ()
      .如果真 (取文本长度 (e2 [x]) ＝ 1)
         bjk.内容＝到文本 (e2 [x])
      .如果真结束
      .如果 (e2 [x] ＝ e1 [x])
         f ＝ f ＋ 1
      .否则
         e1 [x] ＝ e2 [x]
      .如果结束

.计次循环尾 ()
.计次循环首 (9, y)
      bccca [y] ＝ “”
      .计次循环首 (9, x)
         bjk ＝取标记组件 ((y － 1) × 9 ＋ x)
         .如果真 (取文本长度 (bjk.内容) ＝ 1)
            bccca [y] ＝ bccca [y] ＋ bjk.内容
         .如果真结束

      .计次循环尾 ()
.计次循环尾 ()
.计次循环首 (9, x)
      bcccb [x] ＝ “”
      .计次循环首 (9, y)
         bjk ＝取标记组件 ((y － 1) × 9 ＋ x)
         .如果真 (取文本长度 (bjk.内容) ＝ 1)
            bcccb [x] ＝ bcccb [x] ＋ bjk.内容
         .如果真结束

      .计次循环尾 ()
.计次循环尾 ()
.计次循环首 (3, a)
      .计次循环首 (3, z)
         bcccc [(a － 1) × 3 ＋ z] ＝ “”
         .计次循环首 (3, y)
            .计次循环首 (3, x)
                  bjk ＝取标记组件 ((a － 1) × 27 ＋ (z － 1) × 3 ＋ (y － 1) × 9 ＋ x)
                  .如果真 (取文本长度 (bjk.内容) ＝ 1)
                     bcccc [(a － 1) × 3 ＋ z] ＝ bcccc [(a － 1) × 3 ＋ z] ＋ bjk.内容
                  .如果真结束

            .计次循环尾 ()
         .计次循环尾 ()
      .计次循环尾 ()
.计次循环尾 ()
.循环判断尾 (f ＜ 81)
.计次循环首 (81, x)
bjk ＝取标记组件 (x)
.如果真 (bjk.内容＝ “”)
      输出调试文本 (e1 [x])
      bjk.内容＝取文本左边 (e1 [x], 1)
      跳出循环 ()
.如果真结束

.计次循环尾 ()
f ＝ 0
.计次循环首 (81, x)
bjk ＝取标记组件 (x)
.如果真 (取文本长度 (bjk.内容) ＝ 1)
      f ＝ f ＋ 1
.如果真结束

.计次循环尾 ()
.如果真 (f ＝ 81)
信息框 (“解答完毕~”, 0, “完成”)
.如果真结束

.子程序 _按钮2_被单击
.局部变量 x, 整数型

.计次循环首 (81, x)
bjk ＝取标记组件 (x)
bjk.内容＝ “”
.计次循环尾 ()

作者: 2576605471 时间: 2017-2-20 00:49
讲道理,你真以为有人会看你这段?更别说翻译了...

作者: 这论坛不错 时间: 2017-2-21 09:59
你出个50-100块还可能会有人给你翻译

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)