|
21.04.2009, 18:53
#35945361
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
|
|
Участник
Откуда: Boston, MA, USA (c 1989 ) б. Москва
Сообщения: 1 887
Рейтинг:
0
/ 0
|
|
|
|
Вот так
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
191.
192.
193.
194.
195.
196.
197.
198.
199.
200.
201.
202.
203.
$PBExportHeader$n_cst_deduplicator.sru
forward
global type n_cst_deduplicator from datastore
end type
end forward
global type n_cst_deduplicator from datastore
end type
global n_cst_deduplicator n_cst_deduplicator
type variables
protected:
string DW_SYNTAX_START
string DW_SYNTAX_END = ' name=sorter dbname="sorter") )'
end variables
forward prototypes
protected function long dedupe (ref any avalues[])
public function long of_dedupe_array (ref integer arr[])
public function long of_dedupe_array (ref long arr[])
public function long of_dedupe_array (ref string arr[])
public function long of_dedupe_array (ref double arr[])
end prototypes
protected function long dedupe (ref any avalues[]);/*------------------------------------------------------------------------------
Function: protected n_cst_deduplicator.Dedupe
Returns: Long
Parameters: reference Any avalues[]
Copyright ©2004 DTI - Philip Salgannik
Date Created: 2/24/2004
Description:
--------------------------------------------------------------------------------
Modifications:
Date Author Comments
------------------------------------------------------------------------------*/
IF IsNull(avalues) THEN RETURN 0
If UpperBound(avalues) < 2 THEN RETURN 0
long ll_dups
string ls_type, ls_dsdef, ls_err
Reset()
Choose Case ClassName(avalues[ 1 ])
Case "long", "unsignedlong", "ulong", "int","integer", "uint","unsignedinteger","unsignedint", "double"
ls_type = "number"
Case "char", "character", "string"
ls_type = "char(4000)"
CASE ELSE
//excercise for the reader
RETURN 0
END CHOOSE
ls_dsdef = DW_SYNTAX_START + ls_type + DW_SYNTAX_END
IF Create(ls_dsdef, ls_err) <> 1 THEN RETURN - 1
object.sorter.Primary = avalues
SetSort("sorter A")
Sort()
SetFilter("sorter <> sorter[-1] or GetRow () = 1" )
Filter()
ll_dups = FilteredCount()
IF ll_dups > 0 THEN
avalues = object.sorter.Primary
END IF
RETURN ll_dups
end function
public function long of_dedupe_array (ref integer arr[]);/*------------------------------------------------------------------------------
Function: public n_cst_deduplicator.of_Dedupe_array
Returns: Integer
Parameters: reference Integer arr[]
Copyright ©2004 DTI - Philip Salgannik
Date Created: 2/24/2004
Description:
--------------------------------------------------------------------------------
Modifications:
Date Author Comments
------------------------------------------------------------------------------*/
IF IsNull (arr) THEN RETURN - 1
long ll_dups
any temp[]
temp = arr
ll_dups = dedupe(temp)
IF ll_dups > 0 THEN
arr = temp
END IF
RETURN ll_dups
end function
public function long of_dedupe_array (ref long arr[]);IF IsNull (arr) THEN RETURN - 1
long ll_dups
any temp[]
temp = arr
ll_dups = dedupe(temp)
IF ll_dups > 0 THEN
arr = temp
END IF
RETURN ll_dups
end function
public function long of_dedupe_array (ref string arr[]);/*------------------------------------------------------------------------------
Function: public n_cst_deduplicator.of_Dedupe_array
Returns: Long
Parameters: reference String arr[]
Copyright ©2004 DTI - Philip Salgannik
Date Created: 2/24/2004
Description:
--------------------------------------------------------------------------------
Modifications:
Date Author Comments
------------------------------------------------------------------------------*/
IF IsNull (arr) THEN RETURN - 1
long ll_dups
any temp[]
temp = arr
ll_dups = dedupe(temp)
IF ll_dups > 0 THEN
arr = temp
END IF
RETURN ll_dups
end function
public function long of_dedupe_array (ref double arr[]);IF IsNull (arr) THEN RETURN - 1
long ll_dups
any temp[]
temp = arr
ll_dups = dedupe(temp)
IF ll_dups > 0 THEN
arr = temp
END IF
RETURN ll_dups
end function
on n_cst_deduplicator.create
call super::create
TriggerEvent( this, "constructor" )
end on
on n_cst_deduplicator.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on
event constructor;/*------------------------------------------------------------------------------
Event : n_cst_deduplicator.Constructor
Returns: Long
Parameters:
Copyright ©2004 DTI - Philip Salgannik
Date Created: 2/24/2004
Description: pbm_constructor
--------------------------------------------------------------------------------
Modifications:
Date Author Comments
------------------------------------------------------------------------------*/
Environment le_env
GetEnvironment(le_env)
DW_SYNTAX_START = 'release ' + String(le_env.PBMajorRevision) + '; datawindow() table(column=(type='
end event
|
|
|
