祝贺大鸟论坛开张，发个purebasic源码，mini正则调试小工具

grooveli

1. 
   
2. ; 迷你正则表达式小助手1.0  copyright grooveli  [url=http://www.8do8.com]http://www.8do8.com[/url]
   
3. Declare BalloonTip(WindowID, Gadget, Text$ , Title$, Icon)
   
4. Declare Open_Window_0()
   
5. Declare ReadCatalog(Filename$)
   
6. Declare StrProc_0(hWnd, uMsg, wParam, lParam)
   
7. Declare StrProc_1(hWnd, uMsg, wParam, lParam)
   
8. ;- Window Constants
   
9. ;
   
10. Enumeration
    
11.       #Window_0
    
12. EndEnumeration
    
13. ;- Gadget Constants
    
14. ;
    
15. Enumeration
    
16.       #Combo_0
    
17.       #Frame3D_0
    
18.       #Frame3D_1
    
19.       #String_0
    
20.       #Text_0
    
21.       #String_1
    
22.       #Text_3
    
23.       #String_2
    
24.       #Frame3D_2
    
25.       #Text_4
    
26.       #String_3
    
27.       #String_4
    
28.       #Frame3D_3
    
29.       #Text_5
    
30.       #String_5
    
31.       #String_6
    
32.       #Button_0
    
33.       #Button_1
    
34.       #Link_0
    
35. EndEnumeration
    
36. Global  FontID1 = LoadFont(1, "Tahoma", 8)
    
37. Global Dim Language$(11)
    
38. Global StrProc_0,StrProc_1
    
39. 
    
40. Procedure BalloonTip(WindowID, Gadget, Text$ , Title$, Icon)
    
41.       ToolTip=CreateWindowEx_(0,"ToolTips_Class32","",#WS_POPUP | #TTS_NOPREFIX | #TTS_BALLOON,0,0,0,0,WindowID,0,GetModuleHandle_(0),0)
    
42.       SendMessage_(ToolTip,#TTM_SETTIPTEXTCOLOR,GetSysColor_(#COLOR_INFOTEXT),0)
    
43.       SendMessage_(ToolTip,#TTM_SETTIPBKCOLOR,GetSysColor_(#COLOR_INFOBK),0)
    
44.       SendMessage_(ToolTip,#TTM_SETMAXTIPWIDTH,0,180)
    
45.       Balloon.TOOLINFO\cbSize=SizeOf(TOOLINFO)
    
46.       Balloon\uFlags=#TTF_IDISHWND | #TTF_SUBCLASS
    
47.       Balloon\hWnd=GadgetID(Gadget)
    
48.       Balloon\uId=GadgetID(Gadget)
    
49.       Balloon\lpszText=@Text$
    
50.       SendMessage_(ToolTip, #TTM_ADDTOOL, 0, Balloon)
    
51.       If Title$ > ""
    
52.             SendMessage_(ToolTip, #TTM_SETTITLE, Icon, @Title$)
    
53.       EndIf
    
54. EndProcedure
    
55. Procedure Open_Window_0()
    
56.       If OpenWindow(#Window_0, 780, 243, 393, 465, "Mini RegularEXP Tools1.00",  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
    
57.             If CreateGadgetList(WindowID(#Window_0))
    
58.                   ComboBoxGadget(#Combo_0, 18, 141, 313, 150, #PB_ComboBox_Editable)
    
59.                   BalloonTip(GadgetID(#Combo_0), #Combo_0, Language$(0), "", #TOOLTIP_NO_ICON)
    
60.                   Frame3DGadget(#Frame3D_0, 8, 123, 378, 50, Language$(1))
    
61.                   Frame3DGadget(#Frame3D_1, 8, -2, 378, 124, Language$(2))
    
62.                   StringGadget(#String_0, 18, 12, 358, 100, "",#ES_MULTILINE|#WS_VSCROLL|#WS_HSCROLL)
    
63.                   StrProc_0 = SetWindowLong_(GadgetID(#String_0), #GWL_WNDPROC, @StrProc_0())
    
64.                   BalloonTip(GadgetID(#String_0), #String_0, Language$(3), "", #TOOLTIP_NO_ICON)
    
65.                   TextGadget(#Text_0, 14, 187, 66, 16, Language$(4))
    
66.                   StringGadget(#String_1, 80, 185, 66, 18, "", #PB_String_ReadOnly)
    
67.                   TextGadget(#Text_3, 153, 187, 63, 16, Language$(5))
    
68.                   StringGadget(#String_2, 218, 185, 66, 18, "", #PB_String_ReadOnly)
    
69.                   Frame3DGadget(#Frame3D_2, 8, 174, 378, 134, "")
    
70.                   TextGadget(#Text_4, 289, 187, 39, 16, Language$(6))
    
71.                   StringGadget(#String_3, 330, 185, 46, 18, "", #PB_String_ReadOnly)
    
72.                   ListViewGadget(#String_4, 18, 207, 358, 92)
    
73.                   SetGadgetColor(#String_4,#PB_Gadget_FrontColor,$8B321E)
    
74.                   Frame3DGadget(#Frame3D_3, 8, 309, 378, 134, Language$(7))
    
75.                   TextGadget(#Text_5, 18, 324, 99, 16, Language$(8))
    
76.                   StringGadget(#String_5, 123, 321, 202, 21, "")
    
77.                   SetGadgetColor(#String_5,#PB_Gadget_FrontColor,$1E6CC1)
    
78.                   StringGadget(#String_6, 18, 347, 358, 89, "",#ES_MULTILINE|#WS_VSCROLL|#WS_HSCROLL)
    
79.                   StrProc_1 = SetWindowLong_(GadgetID(#String_6), #GWL_WNDPROC, @StrProc_1())
    
80.                   BalloonTip(GadgetID(#String_6), #String_6, Language$(9), "", #TOOLTIP_NO_ICON)
    
81.                   ButtonGadget(#Button_0, 336, 141, 39, 21, Language$(10),#BS_FLAT)
    
82.                   ButtonGadget(#Button_1, 337, 321, 39, 21, Language$(11),#BS_FLAT)
    
83.                   HyperLinkGadget(#Link_0,38,446,320,18,"Copyright LOADSTONE grooveli 2008.7             [url=http://www.8do8.com]www.8do8.com",$AB4019[/url])
    
84.             EndIf
    
85.             For i=0 To #Link_0
    
86.                   SetGadgetFont(i, FontID1)
    
87.             Next
    
88.       EndIf
    
89. EndProcedure
    
90. Procedure ReadCatalog(Filename$)
    
91.       If ReadFile(0, Filename$)
    
92.             If ReadString(0) = "Catalog"
    
93.                   For k=0 To 11
    
94.                         Language$(k) = ReadString(0)
    
95.                   Next
    
96.             EndIf
    
97.             CloseFile(0)
    
98.       EndIf
    
99. EndProcedure
    
100. Procedure StrProc_0(hWnd, uMsg, wParam, lParam)
     
101.       Protected result
     
102.       result = CallWindowProc_(StrProc_0, hWnd, uMsg, wParam, lParam)
     
103.       Select uMsg
     
104.             Case #WM_LBUTTONDBLCLK
     
105.                   Pattern$ = "Text (*.txt)|*.txt;*.bat|All files (*.*)|*.*"
     
106.                   PatternPS = 0
     
107.                   File$ = OpenFileRequester("Please choose file to open", "", Pattern$, PatternPS)
     
108.                   If File$
     
109.                         ;MessageRequester("Information", "You have selected following file:" + Chr(10) + File$, 0)
     
110.                         If ReadFile(0,File$)
     
111.                               length = Lof(0)
     
112.                               *MemoryID = AllocateMemory(length)
     
113.                               If *MemoryID
     
114.                                     ReadData(0, *MemoryID, length)
     
115.                               EndIf
     
116.                               CloseFile(0)
     
117.                               SetGadgetText(#String_0,PeekS(*MemoryID,length,#PB_Ascii))
     
118.                         EndIf
     
119.                   EndIf
     
120.       EndSelect
     
121.       ProcedureReturn result
     
122. 
     
123. EndProcedure
     
124. 
     
125. 
     

复制代码

grooveli

1. 
   
2. 
   
3. Procedure StrProc_1(hWnd, uMsg, wParam, lParam)
   
4. 
   
5.       Protected result
   
6.       result = CallWindowProc_(StrProc_1, hWnd, uMsg, wParam, lParam)
   
7.       Select uMsg
   
8.             Case #WM_LBUTTONDBLCLK
   
9.                   Pattern$ = "Text (*.txt)|*.txt;*.bat|All files (*.*)|*.*"
   
10.                   PatternPS = 0
    
11.                   File$ = SaveFileRequester("Please choose file to save", "", Pattern$, PatternPS)
    
12.                   If File$
    
13.                         ;MessageRequester("Information", "You have selected following file:" + Chr(10) + File$, 0)
    
14.                         If OpenFile(0,File$)
    
15.                               Temp.s = GetGadgetText(#String_6)
    
16.                               WriteString(0,Temp)
    
17.                               CloseFile(0)
    
18.                         EndIf
    
19.                   EndIf
    
20.       EndSelect
    
21.       ProcedureReturn result
    
22. EndProcedure
    
23. 
    
24. Procedure GoMatch()
    
25.       Flag=0
    
26.       RegTxt.s=GetGadgetText(#Combo_0)
    
27.       If RegTxt<>""
    
28.             For i =0 To CountGadgetItems(#Combo_0)-1
    
29.                   If RegTxt=GetGadgetItemText(#Combo_0,i)
    
30.                         Flag=1
    
31.                         Break
    
32.                   EndIf
    
33.             Next
    
34.             If Flag=0
    
35.                   AddGadgetItem(#Combo_0,-1,RegTxt)
    
36.                   File$=GetCurrentDirectory()+"Reg.ini"
    
37.                   If FileSize(File$)<>0
    
38.                         If OpenFile(0,File$)
    
39.                               FileSeek(0,Lof(0))
    
40.                               WriteStringN(0,RegTxt)
    
41.                               CloseFile(0)
    
42.                         EndIf
    
43.                   Else
    
44.                         If CreateFile(0,File$)
    
45.                               WriteStringN(0,RegTxt)
    
46.                               CloseFile(0)
    
47.                         EndIf
    
48.                   EndIf
    
49.             EndIf
    
50. 
    
51.             If CreateRegularExpression(0,RegTxt)
    
52.                   Match=MatchRegularExpression(0,GetGadgetText(#String_0))
    
53.                   Debug Match
    
54.                   If  Match
    
55.                         Dim Result$(0)
    
56.                         No=ExtractRegularExpression(0,GetGadgetText(#String_0),Result$())
    
57.                         SetGadgetText(#String_1,"Ture")
    
58.                         SetGadgetText(#string_2,Str(No))
    
59.                         ClearGadgetItemList(#string_4)
    
60.                         For i=0 To No-1
    
61.                               AddGadgetItem(#String_4,-1,Result$(i)) ;#string_4 is a listviewgadget!
    
62.                         Next
    
63.                         SetGadgetText(#string_4,OutPut$)
    
64.                   Else
    
65.                         SetGadgetText(#String_1,"False")
    
66.                         SetGadgetText(#string_2,Str(0))
    
67.                         ClearGadgetItemList(#string_4)
    
68.                   EndIf
    
69.                   FreeRegularExpression(0)
    
70.             Else
    
71.                   MessageRequester("Error!",RegularExpressionError())
    
72.             EndIf
    
73.       Else
    
74.             MessageRequester("error!","Please input a RegularExpression first :)")
    
75.             SetActiveGadget(#Combo_0)
    
76.       EndIf
    
77. 
    
78. 
    
79. EndProcedure
    
80. 
    
81. Procedure GoReplace()
    
82.       RegTxt.s=GetGadgetText(#Combo_0)
    
83.       If RegTxt<>""
    
84.             If CreateRegularExpression(0,RegTxt)
    
85.                   Match=MatchRegularExpression(0,GetGadgetText(#String_0))
    
86.                   Debug Match
    
87.                   If  Match
    
88.                         Result$=ReplaceRegularExpression(0,GetGadgetText(#String_0),GetGadgetText(#String_5))
    
89.                         SetGadgetText(#String_6,Result$)
    
90.                   EndIf
    
91.                   FreeRegularExpression(0)
    
92.             Else
    
93.                   MessageRequester("Error!",RegularExpressionError())
    
94.             EndIf
    
95.       Else
    
96.             MessageRequester("error!","Please input a RegularExpression first :)")
    
97.             SetActiveGadget(#Combo_0)
    
98.       EndIf
    
99. EndProcedure
    
100. 
     
101. ;{ini()
     
102. ; Procedure Ini()
     
103. ;       File$=GetCurrentDirectory()+"Reg.ini"
     
104. ;       If FileSize(File$)<>0
     
105. ;             If ReadFile(0,File$)
     
106. ;                   ClearGadgetItemList(#Combo_0)
     
107. ;                   While Eof(0)=0
     
108. ;                         AddGadgetItem(#Combo_0,-1,ReadString(0))
     
109. ;                   Wend
     
110. ;                   CloseFile(0)
     
111. ;             EndIf
     
112. ;       EndIf
     
113. ; EndProcedure
     
114. ;}
     
115. 
     
116. Restore BaseLanguage
     
117. For k=0 To 11
     
118.       Read.s Language$(k)
     
119. Next
     
120. 
     
121. ; DataSection
     
122. ;       BaseLanguage:
     
123. ;       Data$ "Input a RegularExpression:)"
     
124. ;       Data$ "RegularExpression"
     
125. ;       Data$ "Text"
     
126. ;       Data$ "Double click to open a text file :)"
     
127. ;       Data$ "Match result:"
     
128. ;       Data$ "Match total:"
     
129. ;       Data$ "Length:"
     
130. ;       Data$ "Replace"
     
131. ;       Data$ "Input replace string:"
     
132. ;       Data$ "Double click to save file :)"
     
133. ;       Data$ "Go"
     
134. ;       Data$ "Go"
     
135. ;   EndDataSection
     
136.   
     
137. DataSection
     
138.       BaseLanguage:
     
139.       Data$ "输入正则表达式:)"
     
140.       Data$ "正则表达式"
     
141.       Data$ "文本"
     
142.       Data$ "双击打开一个文本文件 :)"
     
143.       Data$ "匹配结果:"
     
144.       Data$ "匹配总数:"
     
145.       Data$ "长度:"
     
146.       Data$ "替换"
     
147.       Data$ "输入替换字符串:"
     
148.       Data$ "双击保存到文件 :)"
     
149.       Data$ "Go"
     
150.       Data$ "Go"
     
151. EndDataSection
     
152. 
     
153. Open_Window_0()
     
154. ;Ini()
     
155. 
     
156. 
     
157. Repeat ; Start of the event loop
     
158. 
     
159.       Event = WaitWindowEvent() ; This line waits until an event is received from Windows
     
160. 
     
161.       WindowID = EventWindow() ; The Window where the event is generated, can be used in the gadget procedures
     
162. 
     
163.       GadgetID = EventGadget() ; Is it a gadget event?
     
164. 
     
165.       EventType = EventType() ; The event type
     
166. 
     
167.       ;You can place code here, and use the result as parameters for the procedures
     
168. 
     
169.       If Event = #PB_Event_Gadget
     
170. 
     
171.             If GadgetID = #Combo_0
     
172. 
     
173.             ElseIf GadgetID = #String_4
     
174.                   Temp.s=GetGadgetItemText(#String_4,GetGadgetState(#string_4))
     
175.                   SetGadgetText(#String_3,Str(Len(Temp)))
     
176. 
     
177.             ElseIf GadgetID = #Button_0
     
178.                   GoMatch()
     
179. 
     
180.             ElseIf GadgetID = #Button_1
     
181.                   GoReplace()
     
182.             ElseIf GadgetID = #Link_0
     
183.                   ShellExecute_(#Null,"open","Http://www.8do8.com/",#NULL$,#NULL$,#SW_SHOWMAXIMIZED)
     
184.             EndIf
     
185. 
     
186.       EndIf
     
187. 
     
188. Until Event = #PB_Event_CloseWindow ; End of the event loop
     
189. 
     
190. End
     

复制代码

admin

这个论坛还有行号功能?

grooveli

admin 发表于 2010-10-7 22:58
这个论坛还有行号功能?

有啊，呵呵
用

1. 代码

复制代码

就出来了

小夜

我看我 ID是多少

微凉清风

貌似不错