String.s = "строка в которой производится поиск"
Find.s ="шаблон поиска"
 
CreateRegularExpression(0,Find,#PB_RegularExpression_DotAll)
 Dim Matched.s(10)
 Matching.i = ExtractRegularExpression(0,String,Matched())
 For i = 0 To (Matching - 1)
 Debug Matched(i) ;результат
 Next 
FreeRegularExpression(0)
;

 

String.s = "Искомое слово начинаться например с 'динарные кавычки' Средний строка может 'быть' что угодно"
 
 ;(') ;Искомое слово начинаться например с ' 
 ;\S ;Не пробел
 ;(.*?) ;Средний строка может быть что угодно.
 ;(') ;Искомое слово должна заканчиваться например на ' 

 Find.s ="(')\S(.*?)(')"
 
CreateRegularExpression(0,Find,#PB_RegularExpression_DotAll)
 Dim Matched.s(10)
 Matching.i = ExtractRegularExpression(0,String,Matched())
 For i = 0 To (Matching - 1)
 Debug Matched(i)
 Next 
FreeRegularExpression(0)
;

 

String.s = "Искомое слово начинаться например с 'динарные кавычки' Средний строка может 'быть' что угодно"
 
 ;(?<=()') ;Искомое слово начинаться например с ' конструкция (?<=()') убирает '
 ;\S ;Не пробел
 ;(.*?) ;Средний строка может быть что угодно.
 ;(?=()') ;Искомое слово должна заканчиваться например на ' конструкция (?=()') убирает '

 Find.s ="(?<=()')\S(.*?)(?=()')"
 

CreateRegularExpression(0,Find,#PB_RegularExpression_DotAll)
 Dim Matched.s(10)
 Matching.i = ExtractRegularExpression(0,String,Matched())
 For i = 0 To (Matching - 1)
 Debug Matched(i)
 Next 
FreeRegularExpression(0)
;

String.s = "IP:92.113.63.76 нужно выделить из текста все IP адреса http://127.0.0.1/ " 
 
Find.s ="([0-9][0-9][0-9]|[0-9][0-9]|[0-9]).([0-9][0-9][0-9]|[0-9][0-9]|[0-9]).([0-9][0-9][0-9]|[0-9][0-9]|[0-9]).([0-9][0-9][0-9]|[0-9][0-9]|[0-9])"
 
CreateRegularExpression(0,Find,#PB_RegularExpression_DotAll)
 Dim Matched.s(10)
 Matching.i = ExtractRegularExpression(0,String,Matched())
 For i = 0 To (Matching - 1)
 Debug Matched(i)
 Next 
FreeRegularExpression(0)
;

Enumeration
#RegularExpression
EndEnumeration

CreateRegularExpression(#RegularExpression, "(?<![\.\w])[a-zA-Z_]\w*(?=(?:\.\w+\s*|\s*)\()")

Structure Befehl
Name$
Count.i
EndStructure

Global NewMap Befehl.i()
Global NewList Befehl2.Befehl()

Procedure FindAlFiles(DirectoryName$)
Debug ">> "+DirectoryName$
Protected File, Count, i
Protected Dim Result$(0)
Protected Directory = ExamineDirectory(#PB_Any, DirectoryName$, "*")
If Directory
 While NextDirectoryEntry(Directory)
 Select DirectoryEntryType(Directory)
 Case #PB_DirectoryEntry_Directory
 If DirectoryEntryName(Directory) <> "." And DirectoryEntryName(Directory) <> ".."
 FindAlFiles(DirectoryName$+"\"+DirectoryEntryName(Directory))
 EndIf
 Case #PB_DirectoryEntry_File
 If Left(GetExtensionPart(DirectoryEntryName(Directory)),2)="pb"
 File = ReadFile(#PB_Any, DirectoryName$+"\"+DirectoryEntryName(Directory)) 
 If File
 Repeat
 String$ = ReadString(File)
 Count = ExtractRegularExpression(#RegularExpression, String$, Result$())
 For i = 0 To Count-1
 Befehl(Result$(i)) + 1
 Next
 Until Eof(File)
 CloseFile(File)
 EndIf
 EndIf 
 EndSelect
 Wend
EndIf
EndProcedure

;FindAlFiles("D:\")
FindAlFiles("C:\")
FindAlFiles("F:\")

ForEach Befehl()
 AddElement(Befehl2())
 Befehl2()\Name$ = MapKey(Befehl())
 Befehl2()\Count = Befehl()
Next

SortStructuredList(Befehl2(), #PB_Sort_Descending, OffsetOf(Befehl\Count), #PB_Sort_Integer)

Top10 = 1
ForEach Befehl2() 
 Debug Str(Top10)+". "+Befehl2()\Name$+" [ "+Str(Befehl2()\Count)+" ]"
 Top10 + 1
 If Top10 = 21 : Break : EndIf
Next
;

1. sgx [ 8846 ]
2. RGB [ 8567 ]
3. Chr [ 7381 ]
4. Str [ 6967 ]
5. sgx_keyLay [ 5232 ]
6. MessageRequester [ 4265 ]
7. WindowID [ 3870 ]
8. ImageID [ 3682 ]
9. AddGadgetItem [ 3675 ]
10. SetGadgetText [ 3101 ]
11. OpenWindow [ 3069 ]
12. SetGadgetState [ 3032 ]
13. Box [ 2941 ]
14. Random [ 2896 ]
15. ButtonGadget [ 2651 ]
16. v4 [ 2569 ]
17. StartDrawing [ 2538 ]
18. StopDrawing [ 2537 ]
19. Len [ 2487 ]
20. CallFunction [ 2385 ]