LOCAL lc_PathL,ln_File,lc_String,ln_Dim, lc_StringCursor, lc_Tmp1,ln_Tmp2,ln_Tmp3,ln_Tmp4,lc_Field,lc_Count,;
	lc_InsertCursor, lc_InsertCursorValue,lc_Tmp2
STORE '' TO lc_StringCursor,lc_InsertCursor, lc_InsertCursorValue

lc_PathL=SYS( 5 )+SYS( 2003 )
SET DEFAULT TO &lc_PathL

ln_File=FOPEN('Text.txt')

IF ln_File=- 1 
	WAIT WINDOW 'Не удалось открыть файл!'
ELSE 
	lc_String=FGETS(ln_File)
	FOR i= 1  TO  100 
		ln_Dim=AT('/',lc_String,i)	
		IF ln_Dim= 0 
			EXIT 
		ENDIF
	ENDFOR 
ENDIF 

ln_Dim=i- 2 
DIMENSION MyArray(ln_Dim, 2 )
FOR i= 1  TO ln_Dim
	lc_Tmp='a'+ALLTRIM(STR(i, 5 , 0 ))+' '+'c(10)'
	lc_Tmp1='a'+ALLTRIM(STR(i, 5 , 0 ))+' '
	lc_StringCursor=lc_StringCursor+IIF(EMPTY(lc_StringCursor),lc_Tmp,','+lc_Tmp)
	lc_InsertCursor=lc_InsertCursor+IIF(EMPTY(lc_InsertCursor),lc_Tmp1,','+lc_Tmp1)
ENDFOR 
lc_StringCursor='('+lc_StringCursor+')'
lc_InsertCursor='('+lc_InsertCursor+')'
CREATE CURSOR MyCursor &lc_StringCursor
FCLOSE(ln_File)

ln_File=FOPEN('Text.txt')

IF ln_File=- 1 
	WAIT WINDOW 'Не удалось открыть файл!'
ELSE 
	DO WHILE !FEOF(ln_File)
	lc_String=FGETS(ln_File)
	FOR i= 1  TO ln_Dim
		ln_tmp2=AT('/',lc_String,i)	
		ln_Tmp3=AT('/',lc_String,i+ 1 )
		lc_Tmp1=RIGHT(LEFT(lc_String,ln_Tmp3- 1 ),ln_Tmp3-ln_Tmp2- 1 )
		ln_Tmp2=AT('=',lc_Tmp1)
		lc_Field=LEFT(lc_Tmp1,ln_Tmp2- 1 )
		lc_Count=SUBSTR(lc_Tmp1,ln_Tmp2+ 1 )
		MyArray(i, 1 )=lc_Tmp1
		MyArray(i, 2 )=lc_Count
		lc_Tmp2='MyArray('+ALLTRIM(STR(i, 5 , 0 ))+',2)'
		lc_InsertCursorValue=lc_InsertCursorValue+IIF(EMPTY(lc_InsertCursorValue),lc_Tmp2,','+lc_Tmp2)
	ENDFOR 
		lc_InsertCursorValue='('+lc_InsertCursorValue+')'
		INSERT INTO MyCursor &lc_InsertCursor VALUES &lc_InsertCursorValue
	
		lc_InsertCursorValue=''

	ENDDO 
ENDIF 


FCLOSE(ln_File)
BROWSE