Set Library To St_Denis Additive

Clear
Sum_Elems =  0 
?IFOR("i=1", 25 ,"dimension laArr(i) ;laArr(i) = i**2;?laArr(i);Sum_Elems=Sum_Elems+laArr(i)", 1 ,"Sum_Elems")
* это полностью аналогично следующему коду
Sum_Elems =  0 
For i =  1  To  25 
   Dimension laArr(i)
   laArr(i) = i** 2 
   ?laArr(i)
   Sum_Elems = Sum_Elems + laArr(i)
Endfor
?Sum_Elems

Release Library  St_Denis

Set Exact On
pnStart =  30 
For pnI = pnStart To  42 
   Dimension laTestAsort(pnI +  1  - pnStart,  1 )
   laTestAsort(Alen(laTestAsort, 1 ),  1  ) = Chr(pnI)
Endfor
laTestAsort( 1 ,  1  ) = ""
=Asort(laTestAsort, 1 )
Display Memory Like laTestAsort
?[ Set Exact  ]+Set("exact"), [ массив отсортирован неправильно, поскольку первый элемент больше второго элемента, должно быть наоборот ]
?[ laTestAsort( 1 ,  1  )  >   laTestAsort( 2 ,  1  ) ], laTestAsort( 1 ,  1  )  >   laTestAsort( 2 ,  1  )

* символы, при наличии которых в массиве, функция Asort()
* в случае сортировки нечувствительной к регистру
* сортирует неправильно
* ЂђЃѓЉљЊњЌќЋћЏџЎўЈјҐґЁёЄєЇїІіЅѕ
Dimension laBugAsort( 5 )

laBugAsort( 1 ) = Chr( 134 )  && †
laBugAsort( 2 ) = Chr( 175 )  && Ї
laBugAsort( 3 ) = Chr( 128 )  && Ђ
laBugAsort( 4 ) = Chr( 191 )  && ї
laBugAsort( 5 ) = Chr( 144 )  && ђ
?[первоначальный массив]
For lnI =  1  To Alen(laBugAsort,  1 )
   ? laBugAsort(lnI), Asc(laBugAsort(lnI))
Endfor

=Asort(laBugAsort, - 1 , - 1 ,  0 ,  0 )
?[массив, отсортированный по возрастанию]
For lnI =  1  To Alen(laBugAsort,  1 )
   ? laBugAsort(lnI), Asc(laBugAsort(lnI))
Endfor

** сортируем с порядком нечувствительным к регистру
=Asort(laBugAsort, - 1 , - 1 ,  0 ,  1 )
?[массив, отсортированный по возрастанию, нечувствительным к регистру ]
?[ символ с ASCII кодом  134  оказался после символа с ASCII  кодом  144 , что неправильно]
For lnI =  1  To Alen(laBugAsort,  1 )
   ? laBugAsort(lnI), Asc(laBugAsort(lnI)), [ Is letter ], Isalpha(laBugAsort(lnI))
Endfor
?[ для массива отсортированного по возрастанию с нечувствительным к регистру способом]
?[ каждая предыдущая строка в нижнем регистре должна быть меньше либо равна]
?[ последующей строки в нижнем регистре]
?[ это не соблюдается !]
For lnI =  1  To Alen(laBugAsort,  1 ) -  1 
   If Lower(laBugAsort(lnI)) > Lower(laBugAsort(lnI+ 1 ))
      ? [Lower(']+laBugAsort(lnI)+[') > Lower(']+laBugAsort(lnI+1)+[')]
   Endif
Endfor

pnStart =  32 
For pnI = pnStart To  156 
            Dimension laTestAsort(pnI +  1  - pnStart)
            laTestAsort(Alen(laTestAsort, 1 ) ) = Chr(pnI)
Endfor
Display Memory Like laTestAsort

=Asort(laTestAsort, - 1 , - 1 , - 1 ,  1 )
Display Memory Like laTestAsort

 
 1 ) Functions Getwordcount, Getwordnum 
Public Shared Function GetWordCount(ByVal cString As String) As Long
 
Your  implementation:   the delimiters are space, tab, carriage return, line feed, and ascii( 160 )   ( method  IsWhiteSpace() )
 
VFP and my  implementation (please see the attachment):  the user can pass an optional parameter
cDelimiters Optional. Specifies one or more optional characters used to separate words in cString. 
The default delimiters are space, tab, carriage return, and line feed.
Note that GetWordCount( ) uses each of the characters in cDelimiters as individual delimiters, 
not the entire string as a single delimiter. 
 
 2 ) Functions Padc, Padr, Padl
Your  implementation:    
 Public Shared Function PadC(ByVal cExpression As String, ByVal nResultSize As Integer, ByVal cPaddingChar As Char) As String
 
Parameter cPaddingChar is one character
VFP and my  implementation:  cPaddingChar is string 
let's consider an example
?Padl("Padl", 40, "=!=")
 ' your  implementation returns  "====================================Padl"
' VFP and my  implementation  returns "=!==!==!==!==!==!==!==!==!==!==!==!=Padl"

3) Function Strtran
 
Public Shared Function StrTran(ByVal cSearchIn As String, ByVal cSearchFor As String, ByVal cReplaceWith As String, ByVal nStartoccurence As Integer, ByVal nCount As Integer) As String
 
let's consider fourth parameter nStartoccurence 
Your  implementation:    
nStartoccurence  The position in this instance where the substring begins. 
VFP and my  implementation:  
nStartOccurrence 
Specifies which occurrence of cSearchFor is the first to be replaced.
For example, if nStartOccurrence is  4 , replacement begins with the fourth occurrence of cSearchFor in cSearchIn and the first three occurrences
of cSearchFor remain unchanged. 
The occurrence where replacement begins defaults to the first occurrence of cSearchFor if you omit nStartOccurrence
let's consider fifth parameter nCount
Your  implementation:    nCount  The length of the substring. 
VFP and my  implementation:  
nCount  
Specifies the number of occurrences of cSearchFor  to replace.
If you omit nCount, all occurrences of cSearchFor , starting with the occurrence specified with nStartOccurrence, are replaced. 
 
let's consider an example
?Strtran("ABCDEFABCGHJabcQWE", "ABC", "", 2 , 1 )    ' your  implementation returns "DEFGHJabcQWE"
' VFP and my  implementation  returns "ABCDEFGHJabcQWE"
 
 4 ) Function Chrtran 
        Public Shared Function ChrTran(ByVal cSearchIn As String, ByVal cSearchFor As String, ByVal cReplaceWith As String) As String
            Dim lcRetVal As String = cSearchIn
            Dim cReplaceChar As String
            Dim i As Integer
            For i =  0  To cSearchFor.Length -  1  Step i +  1 
                If cReplaceWith.Length <= i Then
                    cReplaceChar = ""
                Else
                    cReplaceChar = cReplaceWith.Chars(i).ToString()
                End If
 
                lcRetVal = StrTran(lcRetVal, cSearchFor.Chars(i).ToString(), cReplaceChar)
            Next
            Return lcRetVal
        End Function
 
let's consider an example 
 ?Chrtran("eaba","ba","a")
Your  implementation:   Chrtran("eaba","ba","a")  ' returns "e"  Error !!!  "ea" is correctly
 
VFP and my  implementation:  Chrtran("eaba","ba","a")  ' returns "ea" 
 

5) Function  Rat
Your  implementation:   
The search performed by Rat() is excluding overlaps (method String.LastIndexOf )
let's consider an example 
?Rat("ABCA", "ABCABCABCA", 3 )
Run-time exception thrown : System.ArgumentOutOfRangeException - Index was out of range.  Must be non-negative and less than the size of the collection.
VFP and my  implementation:  - The search performed by Rat() is including  overlaps
?Rat("ABCA", "ABCABCABCA", 3 )  ' returns 1
 

6) Function  Occurs 
Here's a cooler and faster way to do occurs (excluding overlaps)
 
        Public Shared Function Occurs2(ByVal cSearchExpression As String, ByVal cExpressionSearched As String) As Integer
            Select Case cSearchExpression.Length
                Case  0 
                    Return  0 
                Case Else
                    Return (cExpressionSearched.Length - cExpressionSearched.Replace(cSearchExpression, "").Length) / cSearchExpression.Length
            End Select
        End Function
 
 7 ) Function  Replicate
Your  implementation:  
        Public Shared Function Replicate(ByVal cExpression As String, ByVal nTimes As Integer) As String
            'Create a stringBuilder
            Dim sb As StringBuilder = New StringBuilder()
 
            'Insert the expression into the StringBuilder for nTimes
            sb.Insert( 0 , cExpression, nTimes)
 
            'Convert it to a string and return it back
            Return sb.ToString()
        End Function
 
When nTimes is 0 
Run-time exception thrown : System.ArgumentOutOfRangeException - Value must be positive. Parameter name: count
 
My correction without error:  
    Public Shared  Function Replicate(ByVal cExpression As String, ByVal nTimes As Integer) As String
        Dim sb As StringBuilder = New StringBuilder   'Create a stringBuilder
        If nTimes >  0  Then
            Return sb.Insert( 0 , cExpression, nTimes).ToString()
        Else
            Return String.Empty
        End If
    End Function

pnStart =  32 
For pnI = pnStart To  156 
	Dimension laTestAsort(pnI +  1  - pnStart)
	laTestAsort(Alen(laTestAsort, 1 ) ) = Chr(pnI)
Endfor
Display Memory Like laTestAsort

=Asort(laTestAsort, - 1 , - 1 , - 1 ,  1 )
Display Memory Like laTestAsort

?ASC('Z')  && display  90 
?ASC('[')   && display  91 
?ASC('a')  && display  97 

pnStart =  89 
For pnI = pnStart To  101 
   Dimension laTestAsort(pnI +  1  - pnStart)
   laTestAsort(Alen(laTestAsort, 1 ) ) = Chr(pnI)  && создаем массив содержащий символы, идущие последовательно от символа с ASCII кодом  89  до символа с ASCII  кодом   101 
Endfor
Display Memory Like laTestAsort

  
          (    1 )                                                                   C            "Y"
          (    2 )                                                                   C            "Z"
          (    3 )                                                                   C            "["
          (    4 )                                                                   C            "\"
          (    5 )                                                                   C            "]"
          (    6 )                                                                   C            "^"
          (    7 )                                                                   C            "_"
          (    8 )                                                                   C            "`"
          (    9 )                                                                   C            "a"
          (   10 )                                                                   C            "b"
          (   11 )                                                                   C            "c"
          (   12 )                                                                   C            "d"
          (   13 )                                                                   C            "e"

=Asort(laTestAsort, - 1 , - 1 , - 1 ,  1 )  && сортируем нечувствительным к регистру образом
Display Memory Like laTestAsort

 
          (    1 )                                                                   C            "a"
          (    2 )                                                                   C            "b"
          (    3 )                                                                   C            "c"
          (    4 )                                                                   C            "d"
          (    5 )                                                                   C            "e"
          (    6 )                                                                   C            "Y"
          (    7 )                                                                   C            "Z"
          (    8 )                                                                   C            "["
          (    9 )                                                                   C            "\"
          (   10 )                                                                   C            "]"
          (   11 )                                                                   C            "^"
          (   12 )                                                                   C            "_"
          (   13 )                                                                   C            "`"

?SETWINTITL('NewT',.f.,'cTitle1234567')

Rand(- 1 )
For pnI =  1  To  25 
   Dimension laArray(pnI)
   lnRand = Rand()
   Do Case
      Case lnRand  <  0 . 2 
         lcHasElem = ""
      Case lnRand  <  0 . 6 
         lcHasElem = Space( 1 )+Chr( 31 )
      Case lnRand  <  0 . 7 
         lcHasElem = Space( 1 )
      Case lnRand  <  0 . 8 
         lcHasElem = Space( 2 )
      Case lnRand  <  0 . 9 
         lcHasElem = Space( 3 )
      Otherwise
         lcHasElem = Chr( 31 )+Space( 1 )
   Endcase
   laArray(pnI) = lcHasElem
ENDFOR
?[до сортировки]
Display Memory Like laArray
=Asort(laArray)
?[после сортировки]
Display Memory Like laArray

Set Library To St_Denis Additive
Set Safety Off

Close Database
Open Database (Home( 2 ) + 'data\testdata') Noupdate
Use employee In  0  Noupdate


lnBegTime = Seconds()
lcMaxLenAllWord  = MakeKeyWordsFromAllMemoField([employee], [keywordsemployee])
* lcMaxLenAllWord  = MakeKeyWordsFromAllMemoField([employee], [keywordsemployee], '', [Between(Recno(), 5 , 10 )])
?[Maximal lenght of all words is ], lcMaxLenAllWord
?[performance is ],  Seconds() - lnBegTime, [ seconds ]

Release Library St_Denis



Function MakeKeyWordsFromAllMemoField
   Lparameters tcInputTableName,  tcOutputTableName, tcMemoFieldName, tcForClause
   Create Table (tcOutputTableName) Free  (nRecno N( 12 ), WORDNUM N( 6 ), Word C( 50 ), STARTWORD N( 6 ))
   Select (tcInputTableName)
   If Empty(tcForClause) Or Type('tcForClause') <> 'C'
      tcForClause = '.T.'
   Endif
   Local All
   If Empty(tcMemoFieldName) Or Type('tcMemoFieldName') <> 'C'
      Afields(laFields)
      * if this parameter is not valid
      * we are looking for a first memo field in the table
      For lnI =  1  To Alen(laFields, 1 )
         If laFields(lnI,  2 ) = [M]
            tcMemoFieldName = laFields(lnI,  1 )
            Exit
         Endif
      Endfor
   Endif
   If Empty(tcMemoFieldName) Or Type('tcMemoFieldName') <> 'C'
      Return 'Memo field does not exists !'
   Endif
   tcMemoFieldName = '@'+tcMemoFieldName
   lcUniqArrayName = Sys( 2015 )
   lcDelimiters = [ ,.:;<>|+-_-*&^$%#@~!?"'(){}/]+Chr( 10 )+Chr( 13 )+Chr( 9 )
   lcMaxLenAllWord  =  0 
   Scan For Evaluate(tcForClause)
      lcMaxLenWord  = GETALLWORDS(lcUniqArrayName, &tcMemoFieldName, lcDelimiters)
      If lcMaxLenWord >  0 
         lcMaxLenAllWord  = Max(lcMaxLenAllWord, lcMaxLenWord)
         m->nRecno = Recno()
         Select (tcOutputTableName)
         Append From Array (lcUniqArrayName) Fields WORDNUM, Word, STARTWORD
         Go (Reccount() - Alen((lcUniqArrayName), 1 ) +  1 )
         Replace nRecno With m->nRecno Rest
      Endif
   Endscan
   Release (lcUniqArrayName)
   Return lcMaxLenAllWord

?GETWORDCOUNT([abc]+CHR( 0 )+[  123 ]) && возвращает  1 , но там два слова