 Metla
   ______      .     ,      _______.
   :
 "" 
   
       
"-"

  :

1) Fulltrim(cExpression)
   ,             


? goMetla.Fulltrim('OOO       ')	 'OOO  '

2) Soundrus(cExpression)
        
   SOUNDEX()  VFP.         :)


         Soundex(): 
       ,     :
-   ;        -  
-  -,        
-, ,   
-     
-   5 ,     "0"

    '',      ,  ,  ,        .        -  


? goMetla.Soundrus(' "" ')		 '3487'
? goMetla.Soundrus('   ')		 '3487'
? goMetla.Soundrus('       ')	 '3487'
? goMetla.Soundrus(""-"")		 '3487'
? goMetla.Soundrus("-")			 '4875'
? goMetla.Soundrus("")					 '4800'

.     ,      lnLenRet,             8 - 10 

3) Soundlike(cExpression1,cExpression2,[.T.])
               0  5 ( 5-  ,     )
  ,    .   DIFFERENCE()  VFP.

  .. ,      ( )    Soundrus(),     .   .. ,         .


? goMetla.Soundlike(' "" ','   ') 	 5
? goMetla.Soundlike(' "" ','-') 	 0
? goMetla.Soundlike('3487','3487',.T.) 				 5
? goMetla.Soundlike('3487','3450',.T.) 				 3

4) Numcod(cExpression)
      .  Soundrus(). 

   8 .     .  .        "0"

     ,         ,       .

? goMetla.Numcod('2-23-0,125 - 510 +-10% --') 	 '23125110'
? goMetla.Numcod('2-23-0,125 510 +-10% ') 		 '23125110'
? goMetla.Numcod('2-23-0,125-550 +-10% --') 		 '23125100'

    Soundrus()  Numcod() 

.     ,      lnLenRet 

5) SelectSound(cListFieldName,cFieldName)

cListFieldName -  ,  ,   - !!! (       ,  )
cFieldName -       

   ,    ,        Result.


SelectSound('Filed1,Field2,Field3,','cFieldBoss')
SelectSound('','cFieldBoss')

        : cText -     , nDigit -     , NumRec -     .      ,        . 
      cText  nDigit,    ' ""   '   '  ,    ... -  .
       ,     Excel -    . 

  "  ",     . 

  :       ,      ,    nDigit      "00000000".       ,      . !       !!!           :

1) [THIS.numcod(&lcBossField) AS nDigit,]

 

SELECT  &lcListField THIS.soundrus(&lcBossField) AS cText,;
	THIS.numcod(&lcBossField) AS nDigit, RECNO() AS numrec FROM (ALIAS());
	INTO CURSOR megdu

2) [AND THIS.soundlike(nDigit,lnfindDig ,.T.) > 6]

 

LOCATE FOR cText = lcfindTex ;
	AND THIS.soundlike(nDigit,lnfindDig ,.T.) > 6 REST

3) [AND THIS.soundlike(nDigit,lnfindDig ,.T.) > 6;]

 

SELECT * FROM megdu;
	WHERE RECNO()>= lnRecord AND;
	cText = lcfindTex;
	AND THIS.soundlike(nDigit,lnfindDig ,.T.) > 6;
	INTO CURSOR grouppa

,     ,             .

-----------
      Main.prg


 

