TC官方合作论坛

标题: 请教一下编码简写方式 [打印本页]
作者: 2211504505    时间: 2017-3-17 19:14
标题: 请教一下编码简写方式
  1. 功能 算()
  2.     循环(A1<9)
  3.         A1=A1+1
  4.         如果(A1!=A2&&A1!=A3&&A1!=A4&&A1!=A5&&A1!=A6&&A1!=A7&&A1!=A8&&A1!=A9)
  5.             如果(A1!=B1&&A1!=B2&&A1!=B3&&A1!=C1&&A1!=C2&&A1!=C3)
  6.                 如果(A1!=D1&&A1!=D4&&A1!=D7&&A1!=G1&&A1!=G4&&A1!=G7)
  7.                     表格设置内容("表格0",1,0,表格获取内容("表格0",1,0)&A1)
  8.                 结束
  9.             结束
  10.         结束
  11.     结束
  12.     A1=""
  13. 结束
复制代码


作者: 2211504505    时间: 2017-3-17 19:16
比如:
如果(-------------------------------------------------
       -------------------------------------------------
       -------------------------------------------------)

结束
作者: cjxdn    时间: 2017-3-17 22:01
  1. 功能 算()
  2.     变量 对比数组=数组(A2,A3,A4,A5,A6,A7,A8,A9,B1,B2,B3,C1,C2,C3,D1,D4,D7,G1,G4,G7)
  3.     循环(A1<9)
  4.         A1=A1+1
  5.         遍历(变量 i = 0; i < 数组大小(对比数组); i++)
  6.             如果(A1!=对比数组[i])
  7.                 如果(i==数组大小(对比数组)-1)
  8.                     表格设置内容("表格0",1,0,表格获取内容("表格0",1,0)&A1)
  9.                 结束
  10.             否则
  11.                 跳出
  12.             结束
  13.         结束
  14.     结束
  15.     A1=""
  16. 结束
复制代码
作者: good    时间: 2017-3-18 06:58
讲下想法,不知道合适不

把B几C几D几G几的定义成数组,
遍历数组, 如果(A1!=retarr[i]),把A1赋给新变量AA1
然后用 遍历代替你的循环(A1<9),遍历里一样是AA1=AA1+1
最后给表格的值只是把A1换成AA1
在数组里有种叫数组键,有种叫数组值,B几C几的应该照样可以当变量用
作者: 2211504505    时间: 2017-3-18 12:57
good 发表于 2017-3-18 06:58
讲下想法,不知道合适不

把B几C几D几G几的定义成数组,

很感谢两位的回答,我这里不显示回复提醒...
我可能表达的不是很清楚,又或许我理解能力不够.
我试过楼上cjxdn 的编码...结果不是我想象中的那样
变量 对比数组=数组(A2,A3,A4,A5,A6,A7,A8,A9,B1,B2,B3,C1,C2,C3,D1,D4,D7,G1,G4,G7)
它的过程是A1对比A2,然后再对比A3类推...我的A1+1是有用的
而且我的A2----G7里面有相同的,比如1,2,3,5,1,2,3,6,9,7,8
我上面---如果(A1!=A2&&A1!=A3.....)编码是一次性连贯的对比全部,和数组对比性质就不一样了.
就好像A1是一个石头,,, 如果编码里也是一个石头
比如 A1:石头------对比-------------如果:石头
换数组来对比的话,就是将--------如果:石头------转换成-------敲碎装进一个袋子里
然后再用  A1:石头-------------对比--------------袋子里敲碎的石头
本来可以对比一整块石头,,,,,却敲碎来对比.........结果虽然一样但过程繁琐了
我本来是想让  如果这块石头体积变小,但石头质量不变.
数组是让这块石头体积变小了,但是面积又变大了......
我感觉数组是用来探测内部是否含有玉石的,只是我对比的只是石头...
真心感谢两位大神的回答!
作者: 2211504505    时间: 2017-3-18 13:00
cjxdn 发表于 2017-3-17 22:01

我的回复被吞掉了,下面有
作者: cjxdn    时间: 2017-3-18 14:07
2211504505 发表于 2017-3-18 13:00
我的回复被吞掉了,下面有
  1. 变量 原=0,新=0
  2. 变量 A1=0,A2=1,A3=2,A4=3,A5=1,A6=2,A7=3,A8=6,A9=9
  3. 变量 B1=7,B2=8,B3=0
  4. 变量 C1=1,C2=2,C3=3
  5. 变量 D1=100,D4=100,D7=100,G1=7,G4=8,G7=100
  6. 功能 算()
  7.     变量 对比数组=数组(A2,A3,A4,A5,A6,A7,A8,A9,B1,B2,B3,C1,C2,C3,D1,D4,D7,G1,G4,G7)
  8.     循环(A1<9)
  9.         A1=A1+1
  10.         如果(A1!=A2&&A1!=A3&&A1!=A4&&A1!=A5&&A1!=A6&&A1!=A7&&A1!=A8&&A1!=A9)
  11.             如果(A1!=B1&&A1!=B2&&A1!=B3&&A1!=C1&&A1!=C2&&A1!=C3)
  12.                 如果(A1!=D1&&A1!=D4&&A1!=D7&&A1!=G1&&A1!=G4&&A1!=G7)
  13.                     调试输出("原: "&原++)//测试同步输出次数
  14.                     //表格设置内容("表格0",1,0,表格获取内容("表格0",1,0)&A1)
  15.                 结束
  16.             结束
  17.         结束
  18.         
  19.         遍历(变量 i = 0; i < 数组大小(对比数组); i++)
  20.             如果(A1!=对比数组[i])
  21.                 如果(i==数组大小(对比数组)-1)
  22.                     调试输出("新: "&新++)//测试同步输出次数
  23.                     //表格设置内容("表格0",1,0,表格获取内容("表格0",1,0)&A1)
  24.                 结束
  25.             否则
  26.                 跳出
  27.             结束
  28.         结束
  29.     结束
  30.     A1=""
  31. 结束
复制代码


唯一不同的是会遍历很多次
不过输出结果是一样的
也就是你想要的结果应该一样的吧
作者: 2211504505    时间: 2017-3-18 20:03
cjxdn 发表于 2017-3-18 14:07
唯一不同的是会遍历很多次
不过输出结果是一样的
也就是你想要的结果应该一样的吧 ...

结果是可以一样,我的目的是简化...如果用数组就繁琐化了
功能 过滤A()
变量 查,全
获取信息A()
全 = A2&A3&A4&A5&A6&A7&A8&A9&A10&A11&A12&A19&A20&A21&A28&A37&A46&A55&A64&A73
循环(数 < 9)
数 = 数 + 1
查 = 字符串查找(全, 数)
如果(查 == -1)
结果A = 结果A&数
结束
结束
消息框(结果A)
结束
我把之前的改成这样了



欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1