работа с текстовыми файлами

← →
Socol (2004-12-16 13:57) [0]

Люди момогите мне нужно узнать размер текстового файла отописываю его как var F:textfile к сожелении функция filesize для текстофых файлов не работает))) Других функций я ненаю)))
или можно номер последнего символа в файле))) С уважением Socol)))

← →
ssk © (2004-12-16 13:59) [1]

можно так:

function GetFileSize(FileName: string): longint; var strm: TMemoryStream; sFileName: string; begin strm := TMemoryStream.Create; sFileName := FileName; strm.LoadFromFile(sFileName); Result := strm.Size; FreeAndNil(strm); end;

← →
Socol (2004-12-16 14:01) [2]

млин а попроще какнить мона?:)

← →
ghg © (2004-12-16 14:06) [3]

а это что ли сложно?

← →
Socol (2004-12-16 14:08) [4]

вобше проблематично

← →
Socol (2004-12-16 14:08) [5]

вобше проблематично

← →
Александр Иванов © (2004-12-16 14:10) [6]

ssk © (16.12.04 13:59) [1]

Она вернет количество символов.

← →
lexis (2004-12-16 14:11) [7]

var SR: TSearchRec;
....
FindFirst(FileName, SR);
Size := SR.Size;
FindClose(SR);
....

← →
ssk © (2004-12-16 14:18) [8]

>Александр Иванов © (16.12.04 14:10) [6]
Она вернет количество символов.

ты в работе код пробовал, или это просто предварительно-теоретическое утверждение?

← →
Arnold © (2004-12-16 14:20) [9]

var
T:OFSTRUCT;
R:BY_HANDLE_FILE_INFORMATION;
Size:Real;
begin
GetFileInformationByHandle(OpenFile("файл.txt",T,OF_READ),R);
Size:=R.nFileSizeLow/1024; //а вот и размер в Кб
end;

← →
КаПиБаРа © (2004-12-16 14:24) [10]

Где то читал, что во избежание проблем с открытием файлов рекомендуется узнавать размер с помощью findfirst/findnext.

← →
Александр Иванов © (2004-12-16 14:31) [11]

ssk © (16.12.04 14:18) [8]

В работе я его пробовал, а ты?

← →
Александр Иванов © (2004-12-16 14:35) [12]

ssk ©
Попробовал его для файла из одной строки, он возвратил мне 21.
Может я не понял автора, если ему нужно размер файла в байтах, то можно использовать filesize(просто файл объявлять как нетипизированный). Но насколько я понял, ему нужно количество строк в файле.

← →
ssk © (2004-12-16 14:40) [13]

>Александр Иванов
В работе я его пробовал, а ты?

конечно. все отлично работает.

Попробовал его для файла из одной строки, он возвратил мне 21.

21 байт - должен быть размер файла. а в свойствах твоего файла какой размер пишется?

← →
Александр Иванов © (2004-12-16 14:45) [14]

ssk © (16.12.04 14:40) [13]

Просто я понял задачу по другому (количество строк) :).

Кстати автор так и не пояснил, что ему нужно размер файла или количество строк в файле.

← →
DN © (2004-12-16 14:49) [15]

TFSinfile := TFileStream.Create(path, fmOpenRead); TFSinfile.Seek(0,soFromBeginning); len := TFSinfile.Size; TFSinfile.Free;

← →
КаПиБаРа © (2004-12-16 14:49) [16]

Александр Иванов © (16.12.04 14:45) [14]
Кстати автор так и не пояснил, что ему нужно размер файла или количество строк в файле

Люди момогите мне нужно узнать размер текстового файла

← →
socol (2004-12-16 15:48) [17]

уточню))) Мне нужен размер файла в байтах))) или количество символов содержащихся в файле)))

← →
socol (2004-12-16 15:49) [18]

уточняю))) Мне нужен размер файла в байтах или количество символов в файле)))

← →
socol (2004-12-16 15:55) [19]

Arnold ©
var
T:OFSTRUCT;
R:BY_HANDLE_FILE_INFORMATION;
Size:Real;
begin
GetFileInformationByHandle(OpenFile("файл.txt",T,OF_READ),R);
Size:=R.nFileSizeLow/1024; //а вот и размер в Кб
end;
// size получается равным 0 почему?

← →
Александр Иванов © (2004-12-16 15:58) [20]

socol (16.12.04 15:55) [19]

А у тебя такой файл есть?

← →
socol (2004-12-16 16:06) [21]

файл.txt этот? есть размером 12 байт)))

Лучше полный путь к нему укажи. Может поможет.

← →
socol (2004-12-16 16:12) [23]

так я и указываю полный))) Например C:\1.txt)))

У меня этот код работает на "ура".
Тогда попробуй "стандартный" подход:

var f:file;
Size:logint;
begin
AssignFile(f,"c:\key.txt");
Reset(f,1);
Size:=filesize(f);
end;

← →
socol (2004-12-16 16:17) [25]

все начал показывать))) Токо мне нужен размер не в клб в байтах пробывал делить на 8 получается дробное число)))

← →
socol (2004-12-16 16:18) [26]

Александр Иванов © (16.12.04 16:17) [24]
У меня этот код работает на "ура".
Тогда попробуй "стандартный" подход:

var f:file;
Size:logint;
begin
AssignFile(f,"c:\key.txt");
Reset(f,1);
Size:=filesize(f);
end;

мне нужен текстовый файл))) Это не проканает)))

← →
socol (2004-12-16 16:21) [27]

всем огромное спосибо за информацию))) Наконец то сделал)))

← →
Term (2004-12-16 16:21) [28]

ну открой его как file of char

← →
socol (2004-12-16 16:31) [29]

не как чар не канает надо как textfile

Канает, не канает, не воровская малина, сказано делать, так делай.

работа с текстовыми файлами Найти похожие ветки