2.006功能强大了很多，准备全面转向2.006版本。另发起开源基础函数运动！！！详情入内

zzx198461

一个语言只所有为什么好用，用的人多，其中有两部分：
第一部分是：语言平台本身强大
第二部分是：基于些平台的开源基函数强大
所以，为了TC语方更好用，更强大。更多的提高大家的编码效率，本人向所有高手们发发起开源运动呼吁，把你们的珍藏的基础工具函数拿出来吧。让大家共享吧。
列表代码：

1. 
   
2. //用数组实现在列表,模似2.03中变量队列的功能,可保存随意个元素
   
3. namespace 列表
   
4. 
   
5. //一个多行二列的数组，第一列为id,第二列为数据
   
6. int[][] date
   
7. 
   
8. //当前列表中有多少个元素
   
9. int size
   
10. 
    
11. //当前数组的长度
    
12. int length
    
13. 
    
14. //每次扩大值
    
15. int growth
    
16. 
    
17. //多线程同步标识
    
18. bool isinit
    
19. 
    
20. //初始化数组与数组长度，初始大小为100
    
21. function bool 初始化(int 初始大小,int 扩张值)
    
22. if( isinit == false)
    
23. length = 初始大小
    
24. date = int[length][2]
    
25. 
    
26. growth = 扩张值
    
27. 
    
28. isinit = true
    
29. endif
    
30. 
    
31. return true
    
32. endfunction
    
33. 
    
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
    
43. 
    
44. return true
    
45. endfunction
    
46. 
    
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
    
54. 
    
55. //列表已满
    
56. if( size >= length )
    
57. 列表.扩张数组()
    
58. endif
    
59. 
    
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
    
67. 
    
68. size = size + 1
    
69. break
    
70. endif
    
71. 
    
72. i = i + 1
    
73. endwhile
    
74. 
    
75. return true
    
76. endfunction
    
77. 
    
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
    
86. 
    
87. size = size - 1
    
88. 
    
89. return true
    
90. endif
    
91. 
    
92. i = i + 1
    
93. endwhile
    
94. 
    
95. return false
    
96. endfunction
    
97. 
    
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
     
106. 
     
107. i = i + 1
     
108. endwhile
     
109. 
     
110. return false
     
111. endfunction
     
112. 
     
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
     
121. 
     
122. i = i + 1
     
123. endwhile
     
124. 
     
125. endfunction
     
126. 
     
127. //根据编号取出列表中的元素
     
128. //成功,返回指定的值。失败返回-2147483647，约定此值为失败
     
129. function int 取出元素(int id)
     
130. if( 列表.编号是否存在(id) == false)
     
131. return -2147483647
     
132. endif
     
133. 
     
134. int i = 0
     
135. while(i < length)
     
136. if( date[i][0] == id )
     
137. return date[i][1]
     
138. endif
     
139. 
     
140. i = i + 1
     
141. endwhile
     
142. 
     
143. endfunction
     
144. 
     
145. //得到当前列表元数个数
     
146. function int 列表元素个数()
     
147. return size
     
148. endfunction
     
149. 
     
150. //得到当前列表的大小
     
151. function int 列表大小()
     
152. return length
     
153. endfunction
     
154. 
     
155. //这个函数可以得到所有id值，返回一个int类型数组
     
156. //返回数组的0下标值为数组的长度
     
157. function int[] 得到所有编号()
     
158. int[] ids = int[size + 1]
     
159. ids[0] = size
     
160. 
     
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
     
169. 
     
170. return ids
     
171. endfunction
     
172. 
     
173. //这个函数可以得到所有值，返回一个int类型数组
     
174. //返回数组的0下标值为数组的长度
     
175. function int[] 得到所有值()
     
176. int[] values = int[size + 1]
     
177. values[0] = size
     
178. 
     
179. int i = 0,j = 1
     
180. while( i < length)
     
181. if(date[i][0] != 0)
     
182. values[j] = date[i][1]
     
183. endif
     
184. 
     
185. i = i + 1
     
186. endwhile
     
187. 
     
188. return values
     
189. endfunction
     
190. 
     
191. //此函数为内部函数
     
192. function bool 扩张数组()
     
193. //定义新的数组,比原数组大扩张值
     
194. int[][] temp = int[length + growth][2]
     
195. 
     
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
     
203. 
     
204. //将原数组替换成新数组
     
205. date = temp
     
206. //长度修改为扩张后的长度
     
207. length = length + growth
     
208. 
     
209. return true
     
210. endfunction
     
211. 
     
212. endnamespace

复制代码

测试代码

1. #include "列表.t"
   
2. 
   
3. namespace 工具
   
4. //定义默认空间
   
5. 
   
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
    
16. 
    
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)
    
28. 
    
29. //打出列表大小和元数个数
    
30. help.messagebox("列表大小是：" + convert.inttostr(列表.列表大小()))
    
31. help.messagebox("列表元素个数是：" + convert.inttostr(列表.列表元素个数()))
    
32. 
    
33. //多加一个，打出列表大小和元素个数
    
34. 列表.增加元素(11,11)
    
35. 
    
36. help.messagebox("增加一个元素后列表大小是：" + convert.inttostr(列表.列表大小()))
    
37. help.messagebox("增加一个元素后列表元素个数是：" + convert.inttostr(列表.列表元素个数()))
    
38. 
    
39. //取出一个元素
    
40. help.messagebox("id:11对应的值为：" + convert.inttostr(列表.取出元素(11)))
    
41. 
    
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
    
59. 
    
60. //删除一个元素
    
61. 列表.删除元素(1)
    
62. help.messagebox("删除一个元素后列表大小是：" + convert.inttostr(列表.列表大小()))
    
63. help.messagebox("删除一个元素后元素个数是：" + convert.inttostr(列表.列表元素个数()))
    
64. 
    
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
    
74. 
    
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
    
85. 
    
86. 列表.销毁()
    
87. 
    
88. return true
    
89. //函数返回语句
    
90. endfunction
    
91. 
    
92. function bool exit_click()
    
93. //这里添加你要执行的代码
    
94. help.exit()
    
95. 
    
96. return true
    
97. //函数返回语句
    
98. endfunction
    
99. 
    
100. endnamespace
     
101. //空间结束语句

复制代码

本人最近想研究脚本日志模块，有想一起研究的朋友到18群找寒心月，就是我。

zzx198461

[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

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

dzh

回复 4楼全世界失眠的帖子

我要拜您为师！不知道收不收？低调的华丽

我就喜欢呵呵呵

[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没有结构的概念，有些类型混杂的复合数据传递起来特麻烦，要是有这样的数组，可以直接丢数组里，传递就行了，期待您做出来了~

zzx198461

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

基本上明白你要做什么了。我现在列表可不限定长度，如果要做到不限定类型。也是可以的。先做一个索引数组，索引数组是一个多行三列的数组，第一列为编号，第二列为类型，第三列为值存放的位置。在列表中会有多个类型的数组，int string bool类型。在增加时，首先判断传入的类型，然后再将值放到对应的数组中。再把位置记录下来，放入索引数组中。理论上是可行的，不过有点麻烦了。个人觉得，做一个字符串类型的列表，或者也能搞定这个事情，因为字符串可以表示任意数据。在多写几个转换函数。

我就喜欢呵呵呵

接着楼上补充下：
还应该有个索引数组，可以定义为 int[ ] index
传进来编号no时，先看看 index[no]的值是什么，1代表int数组，2代表string数组，3代表。。。。等等
这个数组用来维护数据的存放以及索引

我就喜欢呵呵呵

[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

小丶笨笨

好家伙   顶顶顶

zzx198461

恩，思路比较普遍，经典~
将int数组改为string数组的话，更实用，比如编号 "1"，内容  “ 撒旦法撒旦法”，这样好用多了
提供给用户的接口，比如编号，还是int型，内容为string型，
可以改改，就是多了些数据转换的工作，加油~
赞个:strong:

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

TC的数组好像不支持 int型 与 string混用的吧，要是有重载就好了，可以再写一个string[][]类型的。思路都差不多。

114500955

小白飘过  表示看不懂