PB9写的一个拆解SQL语句的通用函数

将以下内容复制，另存为 f_split_sql.srf 然后导入pbl中

[cpp]  view plain copy

1. $PBExportHeader$f_split_sql.srf  
2. $PBExportComments$SQL操作：分割SQL语句为select、from、where、group by、order by 5个子句  
3. global type f_split_sql from function_object  
4. end type  
5.   
6. forward prototypes  
7. global subroutine replace_n (ref string input_str,readonly string replaced_str,readonly string replace_str)  
8. global subroutine f_split_sql (string as_sql, ref string as_select, ref string as_from, ref string as_where, ref string as_group, ref string as_order)  
9. end prototypes  
10.   
11. global subroutine replace_n (ref string input_str,readonly string replaced_str,readonly string replace_str);string s1  
12. string s2  
13. long p  
14. long n  
15.   
16. p = 1  
17.   
18. do while 1 = 1  
19.     p = pos(input_str,replaced_str,p)  
20.   
21.     if p = 0 then  
22.         exit  
23.     end if  
24.   
25.     s1 = mid(input_str,1,p - 1)  
26.     s2 = mid(input_str,p + len(replaced_str))  
27.     input_str = s1 + replace_str + s2  
28.     p = p + len(replace_str)  
29. loop  
30. end subroutine  
31.   
32. global subroutine f_split_sql (string as_sql, ref string as_select, ref string as_from, ref string as_where, ref string as_group, ref string as_order);//====================================================================  
33. // 过程(函数|Function): f_split_sql()  
34. //--------------------------------------------------------------------  
35. // 描述(Description): 拆解SQL语句  
36. //--------------------------------------------------------------------  
37. // 变量(Arguments):   
38. //              string  as_sql      传入的SQL语句（如：select a from t where b = 1 group by c order by c）  
39. //      ref     string  as_select   拆解后的select语句（如：select a）  
40. //      ref     string  as_from     拆解后的from  语句（如：from t）  
41. //      ref     string  as_where    拆解后的where 语句（如：where b = 1）   
42. //      ref     string  as_group    拆解后的group 语句（如：group by c）    
43. //      ref     string  as_order    拆解后的order 语句（如：order by c）    
44. //--------------------------------------------------------------------  
45. // 返回(Returns):  (none)  
46. //--------------------------------------------------------------------  
47. // 作者(Author):  yyoinge     Date: 2012-02-17 13:26  
48. //--------------------------------------------------------------------  
49. // 修改历史(Modify History):   
50. //    
51. //--------------------------------------------------------------------  
52. as_sql = lower(trim(as_sql))  
53. if as_sql = '' then return  
54. as_select = ''; as_from = ''; as_group = ''; as_order = ''  
55.   
56. replace_n(as_sql,'~r',' ')   
57. replace_n(as_sql,'~n',' ')   
58. replace_n(as_sql,'~r~n',' ')   
59. replace_n(as_sql,'~t',' ')   
60. replace_n(as_sql, '(select ',' ( select ')  
61. replace_n(as_sql, ',select ',' , select ')  
62. replace_n(as_sql,';','  ')   
63. if leftw(as_sql, 7) <> 'select ' then return  
64. long ll_gb_p, ll_ob_p, ll_fr_p, ll_se_p, ll_wh_p, ll_tmp, ll_yh_p  
65. int li_leap = 0  
66. //先剔除''内的内容,如：'abc'替换为@@@@@  
67. string ls_sql  
68. ls_sql = as_sql  
69. do while true  
70.     ll_yh_p = posw(ls_sql, "'")   
71.     if ll_yh_p <= 0 then exit  
72.     ll_tmp = posw(ls_sql, "'", ll_yh_p + 1)  
73.     if ll_tmp <= 0 then return  
74.     ls_sql = leftw(ls_sql, ll_yh_p - 1) + fill('@', ll_tmp - ll_yh_p + 1) + midw(ls_sql, ll_tmp + 1)      
75. loop  
76.   
77. //********************************  select  
78. ll_tmp = 8  
79. li_leap = -1  
80. do while true  
81.     ll_fr_p = posw(ls_sql, " from ", ll_tmp)  
82.     ll_se_p = posw(ls_sql, " select ", ll_tmp)  
83.     if ll_fr_p <= 0 then return  
84.     if ll_fr_p < ll_se_p or ll_se_p = 0 then  
85.         li_leap ++  
86.     else  
87.         li_leap --  
88.     end if  
89.     if li_leap = 0 then  
90.         as_select = leftw(as_sql, ll_fr_p)  
91.         exit  
92.     end if  
93.     if ll_fr_p <= 0 then ll_fr_p = 999999  
94.     if ll_se_p <= 0 then ll_se_p = 999999  
95.     ll_tmp = min(ll_fr_p, ll_se_p) + 5  
96. loop  
97.   
98. if as_select = '' then return  
99.   
100.   
101. //********************************  group by  
102. ll_gb_p = lastpos(ls_sql, " group by ")  
103. ll_ob_p = lastpos(ls_sql, " order by ")  
104. if ll_gb_p > 0 then  
105.     if posw(ls_sql, " from ", ll_gb_p + 1) > 0 or posw(ls_sql, " where ", ll_gb_p + 1) > 0 then  
106.         as_group = ''  
107.         ll_gb_p = 0  
108.     else  
109.         if ll_ob_p > ll_gb_p then  
110.             as_group = midw(as_sql, ll_gb_p, ll_ob_p - ll_gb_p)  
111.         else  
112.             as_group = midw(as_sql, ll_gb_p)  
113.         end if  
114.     end if  
115. else  
116.     as_group = ''  
117. end if  
118.   
119. //********************************  order by  
120. if ll_ob_p > 0 then  
121.     if posw(ls_sql, " from ", ll_ob_p + 1) > 0 or posw(ls_sql, " where ", ll_ob_p + 1) > 0 then  
122.         as_order = ''  
123.         ll_ob_p = 0  
124.     else  
125.         as_order = midw(as_sql, ll_ob_p)  
126.     end if  
127. else  
128.     as_order = ''  
129. end if  
130. //取得select from where 语句的最后一个字符的位置+1  
131. if ll_gb_p <= 0 then ll_gb_p = ll_ob_p  
132. if ll_gb_p <= 0 then ll_gb_p = lenw(as_sql) + 1  
133.   
134. //********************************  where  
135. as_sql = midw(leftw(as_sql,ll_gb_p - 1), ll_fr_p)  
136. ls_sql = midw(leftw(ls_sql,ll_gb_p - 1), ll_fr_p)  
137. ll_wh_p = lastpos(ls_sql, " where ")  
138. if ll_wh_p <= 0 then  
139.     as_where = ''  
140. else  
141.     ll_tmp = 5  
142.     li_leap = 0  
143.     do while true  
144.         ll_se_p = posw(ls_sql, "(", ll_tmp)  
145.         ll_fr_p = posw(ls_sql, ")", ll_tmp)  
146.         if ll_se_p > ll_wh_p then ll_se_p = 0  
147.         if ll_fr_p > ll_wh_p then ll_fr_p = 0  
148.         if (ll_se_p = 0 and ll_fr_p = 0) then exit  
149.         if ll_fr_p < ll_se_p or ll_se_p = 0 then  
150.             li_leap ++  
151.         else  
152.             li_leap --  
153.         end if  
154.         if ll_fr_p <= 0 then ll_fr_p = 999999  
155.         if ll_se_p <= 0 then ll_se_p = 999999  
156.         ll_tmp = min(ll_fr_p, ll_se_p) + 1  
157.     loop  
158.     if li_leap <> 0 then  
159.         as_where = ''  
160.     else  
161.         as_where = midw(as_sql, ll_wh_p)  
162.         as_sql = leftw(as_sql, ll_wh_p)  
163.     end if  
164. end if  
165.   
166. //********************************  from  
167. as_from = as_sql  
168.   
169. end subroutine  

调用时，这样写：

[cpp]  view plain copy

1. string ls_sql, ls_select, ls_from, ls_where, ls_group, ls_order  
2.   
3. ls_sql = dw_1.getsqlselect()  
4.   
5. f_split_sql(ls_sql, ls_select, ls_from, ls_where, ls_group, ls_order)  

 

即可将SQL语句ls_sql ，拆解为5个部分，之后就可以对各个部分进行添加、修改，然后重新组成新的SQL语句了