Отправлено: 05.11.09 16:48. Заголовок: Не работает FILESIZE() и FILEPOS() в xHarbour'e

Всем привет !

Собрал пример для себя на xHarbour 1.0.0 для построчного считывания строк из файла и облом...
Не работают функции FILESIZE() и FILEPOS() !

Может быть я туплю... или совсем заработался....
Помогите кто может...

Пример здесь Скрытый текст

#include "fileio.ch" #include "common.ch" #define CRLF Chr( 13 ) + Chr( 10 ) FUNCTION MAIN() LOCAL aDim, cFilePrg := SUBSTR(EXENAME(),1,RAT(".",EXENAME()) - 1 )+'.prg' CLEAR SCREEN ? "Считываю файл - ",cFilePrg aDim := LOADFILE( cFilePrg ) ? Len( aDim) wait RETURN NIL FUNCTION LOADFILE( cFileInp ) LOCAL hFile, nStatus, nSizeFile, cFileJorn := "error.txt", cTemp LOCAL nI := 0, aFileDim := { }, cLine hFile := FOpen( cFileInp, 0 ) nStatus := FError() IF nStatus # 0 cTemp := "ОШИБКА ! ПРОПУСК !" + "Не смог открыть файл: " + cFileInp + " !" STRFILE( CRLF + cTemp + CRLF, cFileJorn, .T. ) RETURN {} //-1 ELSE nSizeFile := FSeek( hFile, 0, FS_END ) // конец файла = 2 IF nSizeFile == 0 // Считаем длину файла FClose( hFile ) cTemp := "ОШИБКА ! ПРОПУСК !" + "Файл: " + cFileInp + " ПУСТОЙ ! " STRFILE( cTemp + CRLF, cFileJorn, .T. ) RETURN {} //-2 ELSE STRFILE( "<< Начало файла >>" + CRLF, cFileJorn, .F. ) FSeek( hFile, 0, FS_SET ) // начало файла = 0 // Считаем файл в Массив WHILE ( ! FEOF( hFile ) ) nI ++ cLine := FREADLN( hFile ) ? ? " Номер строки в файле:", nI // Встретился конец файла, перевод строки и возврат каретки //cLine := STRTRAN( cLine, CHR( 26 ), "" ) //cLine := STRTRAN( cLine, CHR( 10 ), "" ) //cLine := STRTRAN( cLine, CHR( 13 ), "" ) cLine := StrTran( cLine, Chr( 13 ) + Chr( 10 ), "" ) // WIN code page -> DOS code page // cLine := HB_AnsiToOem(cLine) AAdd( aFileDim, cLine ) // Запись в журнал для контроля STRFILE( cLine + CRLF, cFileJorn, .T. ) IF nI == 169 EXIT ENDIF ENDDO FClose( hFile ) STRFILE("<< Конец файла >>"+CRLF+CRLF, cFileJorn, .T.) ENDIF // nSizeFile == 0 ENDIF // nStatus # 0 RETURN aFileDim /*** * * FReadLn( <nHandle>, [<nLines>], [<nLineLength>], [<cDelim>] ) --> cLines * * Считать одну или более строк из текстового файла * * ЗАМЕЧАНИЕ: * Длина строки включает символы разделители, поэтому максимальная * длина считанной строки равна (nLineLength - LEN( cDelim )) * * Возвращает строку с разделителями, если они были считаны * * nLines по умолчанию равна 1, nLineLength равна 256 и cDelim равен CRLF * * FERROR() должна проверить успешное завершение FReadLn() * * FReadLn() возвращает "" когда достигается EOF * */ FUNCTION FReadLn( nHandle, nLines, nLineLength, cDelim ) LOCAL nCurPos // Текущая позиция указателя в файле LOCAL nFileSize // Размер файла LOCAL nChrsToRead // Количество считанных символов LOCAL nChrsRead // Количество фактически прочитанных символов LOCAL cBuffer // Буффер для чтения файла LOCAL cLines // Возвращаемое значение, прочитанные строки LOCAL nCount // Количество прочитанных строк LOCAL nEOLPos // Позиция EOL в cBuffer DEFAULT nLines TO 1 DEFAULT nLineLength TO 256 DEFAULT cDelim TO ( Chr( 13 ) + Chr( 10 ) ) nCurPos := FilePos( nHandle ) nFileSize := FileSize( nHandle ) ? "Тек.позиция=",nCurPos, "Размер файла=",nFileSize Inkey( 0 ) // Удостовериться, что не будет попытки прочесть за EOF nChrsToRead := Min( nLineLength, nFileSize - nCurPos ) cLines := '' nCount := 1 DO WHILE ( ( nCount <= nLines ) .AND. ( nChrsToRead != 0 ) ) cBuffer := Space( nChrsToRead ) nChrsRead := FRead( nHandle, @cBuffer, nChrsToRead ) // Проверяется условие ошибки IF ! ( nChrsRead == nChrsToRead ) // Ошибка! // Для того чтобы оставаться концептуально совместимым с другими // функциями низкого уровня, вынуждены заставить проверять пользователя // FERROR() ( кот. выше определена функцией FREAD() ) // для обнаружения этого факта // nChrsToRead := 0 ENDIF nEOLPos := At( cDelim, cBuffer ) // Обновить буффер и пазицию указателя файла IF ( nEOLPos == 0 ) cLines += Left( cBuffer, nChrsRead ) nCurPos += nChrsRead ELSE cLines += Left( cBuffer, ( nEOLPos + Len( cDelim ) ) - 1 ) nCurPos += ( nEOLPos + Len( cDelim ) ) - 1 FSeek( nHandle, nCurPos, FS_SET ) ENDIF // Убедимся, что не пытаемся прочесть за пределами EOF IF ( ( nFileSize - nCurPos ) < nLineLength ) nChrsToRead := ( nFileSize - nCurPos ) ENDIF nCount ++ ENDDO RETURN ( cLines ) /*** * * FEof( <nHandle> ) --> lBoundary * * Определить находится ли указатель на последнем байте файла * */ FUNCTION FEof( nHandle, nSay ) IF nSay == 1 ? ? FileSize( nHandle ) , " == ", FilePos( nHandle ) ENDIF RETURN ( IF( FileSize( nHandle ) == FilePos( nHandle ), .T., .F. ) ) /*** * * FilePos( <nHandle> ) --> nPos * * Возвращает текущую позицию указателя считывания для двоичного файла * */ FUNCTION FilePos( nHandle ) RETURN ( FSeek( nHandle, 0, FS_RELATIVE ) ) //End file FileLoad.prg

 Отправлено: 05.11.09 23:16. Заголовок: В xHarbour функция F..

В xHarbour функция FileSize имеет формат
FileSize( [<cFileName>], [<nAttributes>] ) --> nFileSize
т.е. первым параметром является не "хэндл", а имя файла.

 Отправлено: 06.11.09 00:00. Заголовок: Блин, а я не сообраз..

Блин, а я не сообразил сразу....
Но тогда почему у меня в общей системе работало ???

Век живи, век учись....

Короче, все заработало...
Спасибо большое Темуру !
Рабочий вариант здесь Скрытый текст

#include "fileio.ch" #include "common.ch" #define CRLF Chr( 13 ) + Chr( 10 ) FUNCTION MAIN() LOCAL aDim, cFilePrg := SUBSTR(EXENAME(),1,RAT(".",EXENAME()) - 1 )+'.prg' CLEAR SCREEN ? "Считываю файл - ",cFilePrg aDim := LOADFILE( cFilePrg ) ? Len( aDim) wait RETURN NIL FUNCTION LOADFILE( cFileInp ) LOCAL hFile, nStatus, nSizeFile, cFileJorn := "error.txt", cTemp LOCAL nI := 0, aFileDim := { }, cLine hFile := FOpen( cFileInp, 0 ) nStatus := FError() IF nStatus # 0 cTemp := "ОШИБКА ! ПРОПУСК !" + "Не смог открыть файл: " + cFileInp + " !" STRFILE( CRLF + cTemp + CRLF, cFileJorn, .T. ) RETURN {} //-1 ELSE nSizeFile := FSeek( hFile, 0, FS_END ) // конец файла = 2 IF nSizeFile == 0 // Считаем длину файла FClose( hFile ) cTemp := "ОШИБКА ! ПРОПУСК !" + "Файл: " + cFileInp + " ПУСТОЙ ! " STRFILE( cTemp + CRLF, cFileJorn, .T. ) RETURN {} //-2 ELSE STRFILE( "<< Начало файла >>" + CRLF, cFileJorn, .F. ) FSeek( hFile, 0, FS_SET ) // начало файла = 0 // Считаем файл в Массив WHILE ( ! FEOF( hFile ) ) nI ++ cLine := FREADLN( hFile ) ? " Номер строки в файле:", nI // Встретился конец файла, перевод строки и возврат каретки //cLine := STRTRAN( cLine, CHR( 26 ), "" ) //cLine := STRTRAN( cLine, CHR( 10 ), "" ) //cLine := STRTRAN( cLine, CHR( 13 ), "" ) cLine := StrTran( cLine, Chr( 13 ) + Chr( 10 ), "" ) // WIN code page -> DOS code page // cLine := HB_AnsiToOem(cLine) AAdd( aFileDim, cLine ) // Запись в журнал для контроля STRFILE( cLine + CRLF, cFileJorn, .T. ) ENDDO FClose( hFile ) STRFILE("<< Конец файла >>"+CRLF+CRLF, cFileJorn, .T.) ENDIF // nSizeFile == 0 ENDIF // nStatus # 0 RETURN aFileDim /*** * * FReadLn( <nHandle>, [<nLines>], [<nLineLength>], [<cDelim>] ) --> cLines * * Считать одну или более строк из текстового файла * * ЗАМЕЧАНИЕ: * Длина строки включает символы разделители, поэтому максимальная * длина считанной строки равна (nLineLength - LEN( cDelim )) * * Возвращает строку с разделителями, если они были считаны * * nLines по умолчанию равна 1, nLineLength равна 256 и cDelim равен CRLF * * FERROR() должна проверить успешное завершение FReadLn() * * FReadLn() возвращает "" когда достигается EOF * */ FUNCTION FReadLn( nHandle, nLines, nLineLength, cDelim ) LOCAL nCurPos // Текущая позиция указателя в файле LOCAL nFileSize // Размер файла LOCAL nChrsToRead // Количество считанных символов LOCAL nChrsRead // Количество фактически прочитанных символов LOCAL cBuffer // Буффер для чтения файла LOCAL cLines // Возвращаемое значение, прочитанные строки LOCAL nCount // Количество прочитанных строк LOCAL nEOLPos // Позиция EOL в cBuffer DEFAULT nLines TO 1 DEFAULT nLineLength TO 256 DEFAULT cDelim TO ( Chr( 13 ) + Chr( 10 ) ) nCurPos := FilePos( nHandle ) nFileSize := FileSizeM( nHandle ) //? "Тек.позиция=",nCurPos, "Размер файла=",nFileSize //Inkey( 0 ) // Удостовериться, что не будет попытки прочесть за EOF nChrsToRead := Min( nLineLength, nFileSize - nCurPos ) cLines := '' nCount := 1 DO WHILE ( ( nCount <= nLines ) .AND. ( nChrsToRead != 0 ) ) cBuffer := Space( nChrsToRead ) nChrsRead := FRead( nHandle, @cBuffer, nChrsToRead ) // Проверяется условие ошибки IF ! ( nChrsRead == nChrsToRead ) // Ошибка! // Для того чтобы оставаться концептуально совместимым с другими // функциями низкого уровня, вынуждены заставить проверять пользователя // FERROR() ( кот. выше определена функцией FREAD() ) // для обнаружения этого факта // nChrsToRead := 0 ENDIF nEOLPos := At( cDelim, cBuffer ) // Обновить буффер и пазицию указателя файла IF ( nEOLPos == 0 ) cLines += Left( cBuffer, nChrsRead ) nCurPos += nChrsRead ELSE cLines += Left( cBuffer, ( nEOLPos + Len( cDelim ) ) - 1 ) nCurPos += ( nEOLPos + Len( cDelim ) ) - 1 FSeek( nHandle, nCurPos, FS_SET ) ENDIF // Убедимся, что не пытаемся прочесть за пределами EOF IF ( ( nFileSize - nCurPos ) < nLineLength ) nChrsToRead := ( nFileSize - nCurPos ) ENDIF nCount ++ ENDDO RETURN ( cLines ) /*** * * FEof( <nHandle> ) --> lBoundary * * Определить находится ли указатель на последнем байте файла * */ FUNCTION FEof( nHandle, nSay ) IF nSay == 1 ? ? FileSizeM( nHandle ) , " == ", FilePos( nHandle ) ENDIF RETURN ( IF( FileSizeM( nHandle ) == FilePos( nHandle ), .T., .F. ) ) /*** * * FilePos( <nHandle> ) --> nPos * * Возвращает текущую позицию указателя считывания для двоичного файла * */ FUNCTION FilePos( nHandle ) RETURN ( FSeek( nHandle, 0, FS_RELATIVE ) ) /*** * * FileSize( <nHandle> ) --> nBytes * * Return the size of a binary file * */ FUNCTION FileSizeM( nHandle ) LOCAL nCurrent LOCAL nLength // Get file position nCurrent := FilePos( nHandle ) // Get file length nLength := FSEEK( nHandle, 0, FS_END ) // Reset file position FSEEK( nHandle, nCurrent ) RETURN ( nLength ) //End file FileLoad.prg

 Отправлено: 07.11.09 21:16. Заголовок: Просто для построчно..

Просто для построчного считывания текстового файла я использую конструкцию

цитата:

IF FILE(cFileName) cFileText := TFileRead():New( cFileName ) cFileText:Open() do WHILE cFileText:MoreToRead() cLine:= cFileText:ReadLine() .....

 Отправлено: 05.06.10 12:54. Заголовок: Возвращаюсь опять к ..

Возвращаюсь опять к FileSize()

Харбор 1.0.0 может и в других тоже. Не работает при обращении на другие диски !
Делаю пример:

Запуск с диска D:
? FILE("Z:\TEST\tesd.dbf") -> .T.
? FILESIZE("Z:\TEST\tesd.dbf") -> 0

Сделал через FOPEN(), но это же не порядок !!!

Будте любезны, сообщите на форум РАЗРАБОТЧИКАМ ....

 Отправлено: 05.06.10 13:13. Заголовок: Andrey пишет: Харбо..

Andrey пишет:

цитата:

Харбор 1.0.0 может и в других тоже

1.1 - OK
Harbour 2.0.0 -OK

PS
Если надо могу налить куда нить Xharbour 1.1.0

 Отправлено: 05.06.10 16:48. Заголовок: Dima пишет: Если на..

Dima пишет:

цитата:

Если надо могу налить куда нить Xharbour 1.1.0

Спасибо Дима. Но я пока привязан к 1.0.0 из терминала Alexander Prostoserdov (со шрифтами который), Терминал под 1.1.0 не собирается, прошу уж полгода сделать, а у него проблемы там большие... Вот пока и жду.

 Отправлено: 05.06.10 17:57. Заголовок: Andrey пишет: Будте..

Andrey пишет:

цитата:

Будте любезны, сообщите на форум РАЗРАБОТЧИКАМ ....

В этом нет никакого смысла. Если:

Dima пишет:

цитата:

1.1 - OK Harbour 2.0.0 -OK

То баг уже исправлен. Сообщать о том, что в когда-то в старой версии что-то не работало, бессмысленно

 Отправлено: 05.06.10 21:47. Заголовок: Andrey пишет: Терми..

Andrey пишет:

цитата:

Терминал под 1.1.0 не собирается, прошу уж полгода сделать, а у него проблемы там большие... Вот пока и жду.

Попробуй "ускорялки" , ну ты понял о чем я