IF FILE ('NormalTab.DBF')
      IF USED('NormalTab')
          SELECT NormalTab
      ELSE
          USE NormalTab IN 0 
      ENDIF
ELSE
      CREATE TABLE NormalTab (Word C(50),  NormalForm C(50))
      INDEX ON Word TAG Word 
      SET ORDER TO tag Word
ENDIF

Select NormalTab
          Set Order To Tag Word

          Set Exact On
          Seek (lcWord)
          
          If Found()          
              lcWord=NormalTab.NormalForm
          ENDIF

IF FILE ('NormalTab.DBF')  
    IF USED('NormalTab')  
      SELECT NormalTab  
    ELSE  
      USE NormalTab IN 0 ORDER TAG Word
    ENDIF  
ELSE  
    CREATE TABLE NormalTab (Word C(50),  NormalForm C(50))  
    INDEX ON Word TAG Word   
    SET ORDER TO tag Word  
ENDIF

Function content_to_freq
          
Cd h:\fox\dproject\worktab\
cd_worktables='h:\fox\dproject\worktab\' 
SET SAFETY OFF 
IF FILE ('DATAPRO.DBC')       
      OPEN DATABASE DATAPRO           
  ELSE
      CREATE DATABASE cd_worktables+'DATADPRO'
ENDIF 
IF FILE ('WordID.DBF')
      IF USED('WordID')
          SELECT WordID
      ELSE
          USE WordID IN 0       
      ENDIF
ELSE
      Create Table WordID (WordForm C(50), Word_ID I)
      INDEX ON WordForm TAG WordForm 
      SET ORDER TO tag WordForm
ENDIF
IF FILE ('NormalTab.DBF')
      IF USED('NormalTab')
          SELECT NormalTab
      ELSE
          USE NormalTab IN 0       
      ENDIF
ELSE
      CREATE TABLE NormalTab (Word C(50),  NormalForm C(50))
      INDEX ON Word TAG Word   
      Set Order To Tag Word    
ENDIF
...
...
...
  DO freq_count WITH lcSiteCatalog, lnI, lns, lcCursorName1, cd_worktables, laFile[m.lnI,1], lnk, lnIdw
...
...

PROCEDURE freq_count
LPARAMETERS lcSiteCatalog, lnI, lns, lcCursorName1, cd_worktables, laFile, lnk, lnIdw, lnA
Local min_count_words, lnIdw, lnC
#Define  min_count_words 21 
  
  lcFileStr=Filetostr(m.lcSiteCatalog+laFile)
  lcFileStr=Chrtran(lcFileStr,Chr(13)+Chr(10),Space(2))
  lnCountOfWords=Getwordcount(lcFileStr)
  
  If lnCountOfWords < min_count_words
      Loop
  Else
      lnk=lnk +1
      lnC= lnk +lnS
      Select (TableNameID)
      Append Blank
      Replace FileName With laFile
      Replace  FileNameID With lnC
      Replace  CountOfW With  lnCountOfWords
        Select (m.lcCursorName1)
      For m.lnA=1 To (lnCountOfWords)
          lcWord=Lower(Getwordnum(lcFileStr, m.lnA))
          lcWord=Alltrim(Chrtran(lcWord, Chrtran(lcWord, 'qwertyuiopasdfghjklzxcvbnm', ''), ''))
                    
          Select NormalTab          
          Set Order To Tag Word
          Set Exact On
          Seek (lcWord)
          If Found()          
              lcWord=NormalTab.NormalForm
          Else
              Do dos_normalizator  With lcWord,  cd_worktables
          ENDIF
...

CLOSE DATABASES ALL
IF FILE ('DATAPRO.DBC')
    * Открываем базу данных и таблицы
ELSE
    * Создаем заново базу данных и все таблицы
ENDIF