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群找寒心月，就是我。

全世界失眠

给力啊，非常好的想法！:strong:

Abin

这么好的文章和代码，必须顶！！ 献花~~~  :rose

全世界失眠

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


^_^
收徒弟了，收徒弟了！大家积极报名啊!寒心大大收徒弟了!走过路过，不要错过！

zzx198461

大家帮我测测啊，这个列表中包括了对数组操作的一些经典方法。比较容易出问题的。

lyf1314

:*

qq84914122

顶一个

我就喜欢呵呵呵

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

ltsi001

不错，有想法，顶个

chaizhikang

支持！:-o