Set Library To St_Denis Additive

Clear
Local lcStr1, lcStr2, lcStr3
Local Array ArExpressionSought( 1 ), ArStartOccurrence( 1 ), ArNumberOfOccurrences( 1 ), ArFlags( 1 )

Dimension ArExpressionSought( 2 ), ArStartOccurrence( 2 ), ArNumberOfOccurrences( 2 ), ArFlags( 2 )

ArExpressionSought( 1 ) = "a"
ArExpressionSought( 2 ) = "b"

*** в данном примере функция StrfilterEx делает то же самое, что и функция Strfilter, но вдобавок создает отчет о проделанной функцией работе
lcStr1 = "The fifth of the Twelve Labours set to Heracles was to clean the Augean stables in a single day."
?Strfilter(lcStr1, "ab")
?StrfilterEx(lcStr1, @ArExpressionSought, - 1 , - 1 ,  0 , "gArRapp")
Display Memory Like gArRapp  && displays the status information about the work done by the function StrfilterEx
Wait

Dimension ArExpressionSought( 4 )
ArExpressionSought( 1 ) = "ab"
ArExpressionSought( 2 ) = "ly"
ArExpressionSought( 3 ) = "ea"
ArExpressionSought( 4 ) = "as"

lcStr2 = "The reasoning behind this being set as a labour was twofold: firstly, all the previous labours exalted Heracles in the eyes of the people and this one would surely degrade him;"+;
   " secondly, as the livestock were a divine gift to Augeas they were immune from disease and thus the amount of dirt and filth amassed in the uncleaned stables made the task surely impossible."
*** в данном примере функция StrfilterEx удаляет все из строки  все символы, за исключением подстрок из массива ArExpressionSought
?StrfilterEx(lcStr2, @ArExpressionSought)
Wait

*** в данном примере функция удаляет все из строки  все символы, за исключением подстрок из массива ArExpressionSought, причем поиск  подстрок из массива ArExpressionSought нечувствительный к регистру
?StrfilterEx(lcStr2, @ArExpressionSought,  - 1 , - 1 ,  1 )
Wait

** в данном примере функция StrfilterEx работает как фильтр, оставляя только одно вхождение каждого слова из массива ArExpressionSought, причем поиск  чувствительный к регистру
?StrfilterEx(lcStr2, @ArExpressionSought,   1 ,  1 )
** сравните предыдущий пример с тем, что делает функция StrtranEx, она также убирает все вхождения строк массива ArExpressionSought кроме первого вхождения,  но не трогает, в отличии от StrfilterEx,  остальные символы строки lcStr2
?StrtranEx(lcStr2, @ArExpressionSought,  "",   2 , - 1 )

Wait

*** в данном примере создается ошибочный параметр ArExpressionSought в котором пятый элемент не является строкой, вызов функции порождает ошибку "Function argument value, type, or count is invalid (Error 11)"
Local lcSaveError
lcSaveError = On("error")
On Error Messagebox([ArExpressionSought( 5 ) is not of character type !],  0 + 48 , [This is an error "Function argument value, type, or count is invalid (Error 11)"],  10000 )
Dimension ArExpressionSought( 5 )
?StrfilterEx(lcStr2, @ArExpressionSought,  - 1 , - 1 ,  1 ) && error "Function argument value, type, or count is invalid (Error 11)" because ArExpressionSought( 5 ) is not of character type !
On Error &lcSaveError
Wait

Dimension ArExpressionSought( 4 ), ArStartOccurrence( 4 ), ArNumberOfOccurrences( 4 ), ArFlags( 4 )

ArStartOccurrence( 1 ) = - 1 
ArStartOccurrence( 2 ) =  1 
ArStartOccurrence( 3 ) =  2 
ArStartOccurrence( 4 ) =  3 

ArNumberOfOccurrences( 1 ) = - 1 
ArNumberOfOccurrences( 2 ) =  1 
ArNumberOfOccurrences( 3 ) =  2 
ArNumberOfOccurrences( 4 ) =  3 

ArFlags( 1 ) =  0 
ArFlags( 2 ) =  1 
ArFlags( 3 ) =  1 
ArFlags( 4 ) =  0 

*** данный пример показывает использование индивидуальных критериев  для каждой строки массива ArExpressionSought, служащего фильтром
?StrfilterEx(lcStr2, @ArExpressionSought,  @ArStartOccurrence, @ArNumberOfOccurrences, @ArFlags, "gArRapp")
Display Memory Like gArRapp  && displays the status information about the work done by the function StrfilterEx

Wait

Dimension ArExpressionSought( 6 )
ArExpressionSought( 1 ) = "B"
ArExpressionSought( 2 ) = "THIS"
ArExpressionSought( 3 ) = "to"
ArExpressionSought( 4 ) = "As"
ArExpressionSought( 5 ) = "Augeas"
ArExpressionSought( 6 ) = "was"


*** данный пример также показывает использование индивидуальных критериев  для каждой строки массива ArExpressionSought, служащего фильтром
?StrfilterEx(lcStr2, @ArExpressionSought,  @ArStartOccurrence, @ArNumberOfOccurrences, @ArFlags, "gArRapp")
Display Memory Like gArRapp  && displays the status information about the work done by the function StrfilterEx
Wait

Local lnS, lcStrT
lcStrT = Replicate(  Replicate("abcd",  2 ** 7 ),  2 ** 12 )+"1"
lnS = Seconds()
r1=Strfilter(lcStrT , "1")
?[ Strfilter], Len(lcStrT ),  Seconds() - lnS, [ seconds]

lnS = Seconds()
r2=StrfilterEx(lcStrT , "1")
?[ StrfilterEx], Len(lcStrT ),  Seconds() - lnS, [ seconds]
?Len(r1), Len(r2)

Open Database (Home( 2 ) + "data\testdata")
Select employee
Go  1 
lcUniqArrayName = Sys( 2015 )
lcMaxLenWord = GETALLWORDS(lcUniqArrayName, @employee.notes, "S")
lcStrOrig = employee.notes
=Acopy(&lcUniqArrayName, aMyArray1)
Release (lcUniqArrayName)


Dimension aMyArray(Alen(aMyArray1, 1 )+Iif( aMyArray1( 1 , 3 ) >  1 ,  1 ,  0 ), Alen(aMyArray1, 2 ))

If aMyArray1( 1 , 3 ) >  1 
   aMyArray( 1 , 1 ) =  0 
   aMyArray( 1 , 2 ) = Left(lcStrOrig,   aMyArray1( 1 , 3 ) -  1 )
   aMyArray( 1 , 3 ) =  1 
   aMyArray( 1 , 4 ) = aMyArray1( 1 , 3 ) -  1 
   lnS =  1 
Else
   lnS =  0 
Endif

For lnI =  1  To Alen(aMyArray1,  1 )
   aMyArray(lnI + lnS,  1 ) = aMyArray1(lnI ,  1 )
   If lnI < Alen(aMyArray1,  1 )
      aMyArray(lnI + lnS,  2 ) = aMyArray1(lnI ,  2 ) + Substr(lcStrOrig,   aMyArray1(lnI ,  3 ) + aMyArray1(lnI ,  4 ), aMyArray1(lnI+ 1 ,  3 ) - (aMyArray1(lnI ,  3 ) + aMyArray1(lnI ,  4 )))
   Else
      aMyArray(lnI + lnS,  2 ) = aMyArray1(lnI ,  2 ) + Substr(lcStrOrig,   aMyArray1(lnI ,  3 ) + aMyArray1(lnI ,  4 ))
   Endif
   aMyArray(lnI + lnS,  3 ) = aMyArray1(lnI ,  3 )
   aMyArray(lnI + lnS,  4 ) = Len(aMyArray1(lnI ,  2 ))
Endfor

Display Memory Like aMyArray

И где можно прочитать как самостоятельно скомпилировать вашу FLL.

FUNCTION RCUT
LPARAMETERS tcString, tnCutCharsN
RETURN IIF(LEN(m.tcString)>m.tnCutCharsN, LEFT(m.tcString,LEN(m.tcString)-m.tnCutCharsN), "")

FIELDNUM()  Функция определенная пользователем, возвращает порядковый номер поля в таблице по имени поля.

FIELDNUM (tcFieldName[,  tcAlias | nWorkArea])
Тип возвращаемого значения числовой
Параметры
Первый параметр tcFieldName символьный тип  имя поля, порядковый номер которого будет возвращен,
если такого поля не существует, функция возвратит  0 .
Второй  (необязательный) параметр 
tcAlias символьный тип  псевдоним таблицы, 
-или-
nWorkArea числовой тип номер рабочей области FIELDNUM( ), 
если псевдоним таблицы или номер рабочей области не передан, либо номер рабочей области равен  0 ,
то используется таблица открытая в текущей рабочей области,
если в текущей рабочей области ни одна таблица не открыта, функция возвратит  0 .
Если  такого псевдонима таблицы не существует или в рабочей области, соответствующей переданному номеру,
ни одна таблица не открыта, функция возвратит  0 .

Пример:

Set Library To St_Denis Additive

Clear
Close Database
Open Database (Home( 2 ) + 'data\testdata') Noupdate
Use customer Noupdate && Opens Customer table

* нам нужно упорядочить результирующую выборку по полям city и phone из таблицы customer
* в запросе используется UNION, поэтому мы не можем использовать имена полей после ORDER BY,
* нам необходимо знать порядковые номера полей, по которым необходимо  упорядочить результат запроса
pcOrderBy = Str(FieldNum([city],[ customer]))+[,]+Str(FieldNum([phone],[customer]))
Select customer.*, orders.order_id, orders.emp_id ;
   From customer, orders  Where customer.cust_id = orders.cust_id ;
   Union  Select customer.*, Space(Len(orders.order_id)), Space(Len(orders.emp_id)) ;
   From customer  Where customer.cust_id Not In ;
   (Select orders.cust_id From orders) Order By &pcOrderBy Into Cursor CurTest

For gnCount =  1  To Fcount( )  && Loop for number of fields
   ? FIELDNUM (Field(gnCount)), Field(gnCount)   && Display each number of field and field
Endfor

Release Library  St_Denis