TC官方合作论坛

标题: 2.006功能强大了很多，准备全面转向2.006版本。另发起开源基础函数运动！！！详情入内 [打印本页]
作者: zzx198461    时间: 2011-12-26 17:23
标题: 2.006功能强大了很多，准备全面转向2.006版本。另发起开源基础函数运动！！！详情入内
一个语言只所有为什么好用，用的人多，其中有两部分：
第一部分是：语言平台本身强大
第二部分是：基于些平台的开源基函数强大
所以，为了TC语方更好用，更强大。更多的提高大家的编码效率，本人向所有高手们发发起开源运动呼吁，把你们的珍藏的基础工具函数拿出来吧。让大家共享吧。
列表代码：


  2. //用数组实现在列表,模似2.03中变量队列的功能,可保存随意个元素
  3. namespace 列表

  5. //一个多行二列的数组，第一列为id,第二列为数据
  6. int[][] date

  8. //当前列表中有多少个元素
  9. int size

  11. //当前数组的长度
  12. int length

  14. //每次扩大值
  15. int growth

  17. //多线程同步标识
  18. bool isinit

  20. //初始化数组与数组长度，初始大小为100
  21. function bool 初始化(int 初始大小,int 扩张值)
  22. if( isinit == false)
  23. length = 初始大小
  24. date = int[length][2]

  26. growth = 扩张值

  28. isinit = true
  29. endif

  31. return true
  32. endfunction

  34. //销毁列表
  35. function bool 销毁()
  36. if( isinit == true )
  37. date = int[1][2]
  38. length = 0
  39. growth = 0
  40. size = 0
  41. isinit = false
  42. endif

  44. return true
  45. endfunction

  47. //增加一个元素到列表中,id为编号，value为值,不能是0做为id值
  48. //true为增加成功,false为增加失败
  49. //如果id重复,会将原有值进行覆盖
  50. function bool 增加元素(int id,int value)
  51. if( id == 0 )
  52. return false
  53. endif

  55. //列表已满
  56. if( size >= length )
  57. 列表.扩张数组()
  58. endif

  60. //循环数组,查看是否存在空位，如果有空位，则将数据放入
  61. int i = 0
  62. while(i < length)
  63. //如果查找到为0,则表示此位没有被使用
  64. if( date[i][0] == 0 )
  65. date[i][0] = id
  66. date[i][1] = value

  68. size = size + 1
  69. break
  70. endif

  72. i = i + 1
  73. endwhile

  75. return true
  76. endfunction

  78. //根据编号删除元素
  79. //成功返回true 失败返回false
  80. function bool 删除元素(int id)
  81. int i = 0
  82. while(i < length)
  83. if( date[i][0] == id)
  84. date[i][0] = 0
  85. date[i][1] = 0

  87. size = size - 1

  89. return true
  90. endif

  92. i = i + 1
  93. endwhile

  95. return false
  96. endfunction

  98. //查看编号是否已存在
  99. //true表示已存在 false表示不存在
  100. function bool 编号是否存在(int id)
  101. int i = 0
  102. while(i < length)
  103. if( date[i][0] == id )
  104. return true
  105. endif

  107. i = i + 1
  108. endwhile

  110. return false
  111. endfunction

  113. //查看此值是否在列表中已存
  114. //不能判度0值是否存在
  115. function bool 值是否存在(int value)
  116. int i = 0
  117. while(i < length)
  118. if( date[i][1] == value )
  119. return true
  120. endif

  122. i = i + 1
  123. endwhile

  125. endfunction

  127. //根据编号取出列表中的元素
  128. //成功,返回指定的值。失败返回-2147483647，约定此值为失败
  129. function int 取出元素(int id)
  130. if( 列表.编号是否存在(id) == false)
  131. return -2147483647
  132. endif

  134. int i = 0
  135. while(i < length)
  136. if( date[i][0] == id )
  137. return date[i][1]
  138. endif

  140. i = i + 1
  141. endwhile

  143. endfunction

  145. //得到当前列表元数个数
  146. function int 列表元素个数()
  147. return size
  148. endfunction

  150. //得到当前列表的大小
  151. function int 列表大小()
  152. return length
  153. endfunction

  155. //这个函数可以得到所有id值，返回一个int类型数组
  156. //返回数组的0下标值为数组的长度
  157. function int[] 得到所有编号()
  158. int[] ids = int[size + 1]
  159. ids[0] = size

  161. int i = 0,j = 1
  162. while( i < length)
  163. if(date[i][0] != 0)
  164. ids[j] = date[i][0]
  165. j = j + 1
  166. endif
  167. i = i + 1
  168. endwhile

  170. return ids
  171. endfunction

  173. //这个函数可以得到所有值，返回一个int类型数组
  174. //返回数组的0下标值为数组的长度
  175. function int[] 得到所有值()
  176. int[] values = int[size + 1]
  177. values[0] = size

  179. int i = 0,j = 1
  180. while( i < length)
  181. if(date[i][0] != 0)
  182. values[j] = date[i][1]
  183. endif

  185. i = i + 1
  186. endwhile

  188. return values
  189. endfunction

  191. //此函数为内部函数
  192. function bool 扩张数组()
  193. //定义新的数组,比原数组大扩张值
  194. int[][] temp = int[length + growth][2]

  196. //将原数组中的数据拷贝到新数组中
  197. int i = 0
  198. while(i < length)
  199. temp[i][0] = date[i][0]
  200. temp[i][1] = date[i][1]
  201. i = i + 1
  202. endwhile

  204. //将原数组替换成新数组
  205. date = temp
  206. //长度修改为扩张后的长度
  207. length = length + growth

  209. return true
  210. endfunction

  212. endnamespace
复制代码
测试代码
  1. #include "列表.t"

  3. namespace 工具
  4. //定义默认空间

  6. function bool start_click()
  7. 列表.初始化(10,10)
  8. //string id,value
  9. //repeat(11)
  10. // help.inputbox("id","id",id)
  11. // help.inputbox("value","value",value)
  12. // help.sleep(100)
  13. //
  14. // 列表.增加元素(convert.strtoint(id,0),convert.strtoint(value,0))
  15. //endrepeat

  17. //先加10个元素
  18. 列表.增加元素(1,1)
  19. 列表.增加元素(2,2)
  20. 列表.增加元素(3,3)
  21. 列表.增加元素(4,4)
  22. 列表.增加元素(5,5)
  23. 列表.增加元素(6,6)
  24. 列表.增加元素(7,7)
  25. 列表.增加元素(8,8)
  26. 列表.增加元素(9,9)
  27. 列表.增加元素(10,10)

  29. //打出列表大小和元数个数
  30. help.messagebox("列表大小是：" + convert.inttostr(列表.列表大小()))
  31. help.messagebox("列表元素个数是：" + convert.inttostr(列表.列表元素个数()))

  33. //多加一个，打出列表大小和元素个数
  34. 列表.增加元素(11,11)

  36. help.messagebox("增加一个元素后列表大小是：" + convert.inttostr(列表.列表大小()))
  37. help.messagebox("增加一个元素后列表元素个数是：" + convert.inttostr(列表.列表元素个数()))

  39. //取出一个元素
  40. help.messagebox("id:11对应的值为：" + convert.inttostr(列表.取出元素(11)))

  42. //判断元素是否存在
  43. if( 列表.编号是否存在(1) )
  44. help.messagebox("编号1存在")
  45. endif
  46. if( 列表.值是否存在(1) )
  47. help.messagebox("值1存在")
  48. endif
  49. if( 列表.编号是否存在(15) )
  50. help.messagebox("编号15存在")
  51. else
  52. help.messagebox("编号15不存在")
  53. endif
  54. if( 列表.值是否存在(15) )
  55. help.messagebox("值15存在")
  56. else
  57. help.messagebox("值15不存在")
  58. endif

  60. //删除一个元素
  61. 列表.删除元素(1)
  62. help.messagebox("删除一个元素后列表大小是：" + convert.inttostr(列表.列表大小()))
  63. help.messagebox("删除一个元素后元素个数是：" + convert.inttostr(列表.列表元素个数()))

  65. //得到元素的编号数组
  66. help.messagebox("删除后所有编号是")
  67. int[] ids
  68. ids = 列表.得到所有编号()
  69. int i = 0
  70. while( i < ids[0] )
  71. help.messagebox(convert.inttostr(ids[i+1]))
  72. i = i + 1
  73. endwhile

  75. help.messagebox("增加一个元素100，这个元素将会在第一位置")
  76. //再加一个元素
  77. 列表.增加元素(100,100)
  78. //得到元素的编号数组
  79. ids = 列表.得到所有编号()
  80. i = 0
  81. while( i < ids[0] )
  82. help.messagebox(convert.inttostr(ids[i+1]))
  83. i = i + 1
  84. endwhile

  86. 列表.销毁()

  88. return true
  89. //函数返回语句
  90. endfunction

  92. function bool exit_click()
  93. //这里添加你要执行的代码
  94. help.exit()

  96. return true
  97. //函数返回语句
  98. endfunction

  100. endnamespace
  101. //空间结束语句
复制代码
本人最近想研究脚本日志模块，有想一起研究的朋友到18群找寒心月，就是我。
作者: 全世界失眠    时间: 2011-12-26 17:37
给力啊，非常好的想法！:strong:
作者: Abin    时间: 2011-12-26 17:37
这么好的文章和代码，必须顶！！ 献花~~~  :rose
作者: 全世界失眠    时间: 2011-12-26 17:39
本人最近想研究脚本日志模块，有想一起研究的朋友到18群找寒心月，就是我。


^_^
收徒弟了，收徒弟了！大家积极报名啊!寒心大大收徒弟了!走过路过，不要错过！
作者: zzx198461    时间: 2011-12-26 17:53
大家帮我测测啊，这个列表中包括了对数组操作的一些经典方法。比较容易出问题的。
作者: lyf1314    时间: 2011-12-26 17:53
:*
作者: qq84914122    时间: 2011-12-26 21:55
顶一个
作者: 我就喜欢呵呵呵    时间: 2011-12-26 23:38
恩，思路比较普遍，经典~
将int数组改为string数组的话，更实用，比如编号 "1"，内容  “ 撒旦法撒旦法”，这样好用多了
提供给用户的接口，比如编号，还是int型，内容为string型，
可以改改，就是多了些数据转换的工作，加油~
赞个:strong:
作者: ltsi001    时间: 2011-12-27 03:37
不错，有想法，顶个
作者: chaizhikang    时间: 2011-12-27 09:50
支持！:-o
作者: 114500955    时间: 2011-12-27 12:35
小白飘过  表示看不懂
作者: zzx198461    时间: 2011-12-27 13:28
恩，思路比较普遍，经典~
将int数组改为string数组的话，更实用，比如编号 "1"，内容  “ 撒旦法撒旦法”，这样好用多了
提供给用户的接口，比如编号，还是int型，内容为string型，
可以改改，就是多了些数据转换的工作，加油~
赞个:strong:

我就喜欢呵呵呵 发表于 2011-12-26 23:38:26

TC的数组好像不支持 int型 与 string混用的吧，要是有重载就好了，可以再写一个string[][]类型的。思路都差不多。
作者: 小丶笨笨    时间: 2011-12-28 03:34
好家伙   顶顶顶
作者: 我就喜欢呵呵呵    时间: 2011-12-28 09:35
[quote]恩，思路比较普遍，经典~
将int数组改为string数组的话，更实用，比如编号 "1"，内容  “ 撒旦法撒旦法”，这样好用多了
提供给用户的接口，比如编号，还是int型，内容为string型，
可以改改，就是多了些数据转换的工作，加油~
赞个:strong:

我就喜欢呵呵呵 发表于 2011-12-26 23:38
zzx198461 发表于 2011-12-27 13:28:08

没看懂我的意思，他是不支持重载，我们也没必要写重载，你可以这样
function int MyList（int no,string content）
在这里判断content是什么类型的，tc自带的判断类型函数可以用用，
根据类型，将传进来的content分配到对应的数组里
也就是说  我们会有好几个类型不同的数组，
编号怎么对应的，可以自己想办法，最简单的就是，比如编号2，是string，那么就在string数组的编号为1的位置上写入content
编号5，int  那就在int数组的编号为4的地方写入content
这样可能比较耗空间，不过也耗不了多少，你喜欢也可以再进行优化
然后这样需要我们返回的就是好几个数组了
建议就是用全局数组，这样可以不用返回，用户直接调用
缺点在于你只能有固定数目的列表，因为全局参数在运行前就确定了，在运行时无法改变
重载功能跟工作人员说过了，暂时不会开放~
加油哦，多写些出来，拿来就可以用，真好，嘿嘿~

endfunction
作者: 我就喜欢呵呵呵    时间: 2011-12-28 09:48
接着楼上补充下：
还应该有个索引数组，可以定义为 int[ ] index
传进来编号no时，先看看 index[no]的值是什么，1代表int数组，2代表string数组，3代表。。。。等等
这个数组用来维护数据的存放以及索引
作者: zzx198461    时间: 2011-12-29 12:33
接着楼上补充下：
还应该有个索引数组，可以定义为 int[ ] index
传进来编号no时，先看看 index[no]的值是什么，1代表int数组，2代表string数组，3代表。。。。等等
这个数组用来维护数据的存放以及索引
我就喜欢呵呵呵 发表于 2011-12-28 9:48:27

基本上明白你要做什么了。我现在列表可不限定长度，如果要做到不限定类型。也是可以的。先做一个索引数组，索引数组是一个多行三列的数组，第一列为编号，第二列为类型，第三列为值存放的位置。在列表中会有多个类型的数组，int string bool类型。在增加时，首先判断传入的类型，然后再将值放到对应的数组中。再把位置记录下来，放入索引数组中。理论上是可行的，不过有点麻烦了。个人觉得，做一个字符串类型的列表，或者也能搞定这个事情，因为字符串可以表示任意数据。在多写几个转换函数。
作者: 我就喜欢呵呵呵    时间: 2011-12-30 10:53
[quote]接着楼上补充下：
还应该有个索引数组，可以定义为 int[ ] index
传进来编号no时，先看看 index[no]的值是什么，1代表int数组，2代表string数组，3代表。。。。等等
这个数组用来维护数据的存放以及索引
我就喜欢呵呵呵 发表于 2011-12-28 9:48:27 [url=http://bbs.tcm
zzx198461 发表于 2011-12-29 12:33:33


恩，对的，你也可以自己将传进来的参数进行判断，做出来后功能就强大了，现在TC没有结构的概念，有些类型混杂的复合数据传递起来特麻烦，要是有这样的数组，可以直接丢数组里，传递就行了，期待您做出来了~

作者: dzh    时间: 2011-12-30 13:25
回复 4楼全世界失眠的帖子

我要拜您为师！不知道收不收？低调的华丽
作者: zzx198461    时间: 2011-12-30 14:05
[quote][quote]接着楼上补充下：
还应该有个索引数组，可以定义为 int[ ] index
传进来编号no时，先看看 index[no]的值是什么，1代表int数组，2代表string数组，3代表。。。。等等
这个数组用来维护数据的存放以及索引
我就喜欢呵呵呵 发表于 2011-12-28 9:48:27 [url=http://
我就喜欢呵呵呵 发表于 2011-12-30 10:53:49

暂时还没有想做，要死脑细胞的。以后用到再做。呵呵



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