*!* Пример вытаскивания второго слова в каждой строке текстового файла
LOCAL ARRAY myArray[ 1 ]
LOCAL hFile as Integer 
LOCAL cString as String 
CREATE CURSOR temp (word C( 20 ))
hFile=FOPEN(GETFILE())
IF hFile<= 0 
	? 'file open error'
	CLOSE ALL
	CANCEL 
ENDIF 
DO WHILE !FEOF(hFile)
	cString=ALLTRIM(FGETS(hFile))
	IF GETWORDCOUNT(cString)>= 2 
		INSERT INTO temp VALUES (GETWORDNUM(cString, 2 ))
	ENDIF 	
ENDDO 
=FCLOSE(hFile)
DIMENSION myArray[RECCOUNT('temp'), 1 ]
COPY TO ARRAY myArray
USE IN temp
CLEAR 
DISPLAY MEMORY LIKE myArray