Чтение всего файла методом FileRead

@Helldrg · Регистрация: 10.01.2011

Author24 — интернет-сервис помощи студентам

Здравствуйте! Имеется файл в котором записаны строки, нужно их все вытащить:

FileRead(hFile,s,сюда нужно вставить размер);

и как потом подсчитать количество символов?

@GetMeHelp · 25.03.2013, 23:26

Length?

@Helldrg · 25.03.2013, 23:54 **[ТС]**

нет конечно же
Ну может это для подсчета количество символов, второй вопрос не обязателен

@cotseec · 26.03.2013, 00:10

Сообщение от Helldrg

Имеется файл в котором записаны строки, нужно их все вытащить:
FileRead(hFile,s,сюда нужно вставить размер)

именно строки и именно FileRead? как-то так

Delphi

var
  pc      :PAnsiChar
  hf,size :LongInt;
begin
  hf:=FileOpen('c:\zz.txt',fmOpenRead);
  size:=GetFileSize(hf,0);
  StrAlloc(pc,size);
  FileRead(hf,pc[0],size);
  FileClose(hf);
// что-то делаем с pc
  StrDispose(pc);
end;

взято здесь
имхо для строк лучше пользовать TStringList

@Helldrg · 26.03.2013, 00:15 **[ТС]**

ОГО
А как pc в строку перевести? Ну тоесть, сделать одну большую строку что бы потом можно было из нее слова вырезать. Как вырезать я разберусь, а вот с pc[0] я такого типа данных даже не слышал))
Если это трудно сделать, томожно в принципе и не fileread использовать, но нужно fileopen

@cotseec · 26.03.2013, 00:30

Сообщение от Helldrg

А как pc в строку перевести

Delphi

var
   tmp:AnsiString;
begin
...
   tmp:=AnsiString(pc);

если текст юникод (два байта на символ), то лучше пользовать не PAnsiChar, а PWideChar, соответсвенно тип tmp:WideString;

@Helldrg · 26.03.2013, 00:33 **[ТС]**

а как к стрингу привести это дело?)

@cotseec · 26.03.2013, 00:38

Сообщение от Helldrg

а как к стрингу привести это дело?)

Сообщение от cotseec

tmp:=AnsiString(pc);

чем не приведение к типу? (можно вместо AnsiString просто написать string, в зависимости от версии Delphi это может быть как AnsiString, так и WideString)

@Helldrg · 26.03.2013, 00:58 **[ТС]**

аааааа все понял!!! Спасибо!!!!

Добавлено через 5 минут

Сообщение от cotseec

var
* pc * * *:PAnsiChar
* hf,size :LongInt;
begin
* hf:=FileOpen('c:\zz.txt',fmOpenRead);
* size:=GetFileSize(hf,0);
* StrAlloc(pc,size);
* FileRead(hf,pc[0],size);
* FileClose(hf);
// что-то делаем с pc
* StrDispose(pc);
end;

У меня не работает(

26.03.2013, 01:09

По F8 прошагивал, что именно не отрабатывает?

@Helldrg · 26.03.2013, 01:27 **[ТС]**

undeclareted identifier GetFileSize

Добавлено через 28 секунд

Сообщение от angstrom

По F8 прошагивал, что именно не отрабатывает?

Даже не компилится

26.03.2013, 01:31

Пиши Windows.GetFileSize.

@Helldrg · 26.03.2013, 01:35 **[ТС]**

undeclareted identifier Windows))))))

26.03.2013, 01:37

Так пропиши его в uses.

@Helldrg · 26.03.2013, 01:41 **[ТС]**

Incompatible types Cardinal and PAnsiChar в строке StrAlloc(pc,size);

26.03.2013, 01:53

Delphi

program test4;
 
{$APPTYPE CONSOLE}
 
uses
  Windows, SysUtils;
 
var
  St       : AnsiString;
  Handle   : Cardinal;
  FileSize : Int64;
  buf      : PAnsiChar;
  Count    : Integer;
 
begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  WriteLn('Введите путь к файлу');
  ReadLn(St);
  
  Handle := CreateFileA(PAnsiChar(St), GENERIC_READ, FILE_SHARE_READ, NIL,
                        OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
 
  if Handle <> INVALID_HANDLE_VALUE then
  begin
    FileSize := Windows.GetFileSize(Handle, NIL);
    GetMem(buf, FileSize);
    ReadFile(Handle, Buf[0], FileSize, UInt(Count), NIL);
    St := Buf;
    FreeMem(Buf);
    CloseHandle(Handle);
  end;
end.

@Helldrg · 26.03.2013, 01:57 **[ТС]**

Спасибо!

@Helldrg 29 / 58 / 6 Регистрация: 10.01.2011 Сообщений: 1,231
	26.03.2013, 01:57 [ТС]	17
	Спасибо! 0

Новые блоги и статьи
Что такое HCL Notes и как с ним работать InfoMaster 10.01.2025 HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой комплексную платформу для совместной работы и обмена информацией в корпоративной среде. Это многофункциональное решение,. . .	Как работать с Git из Windows и Visual Studio InfoMaster 10.01.2025 Работа с Git в Windows Работа с Git в операционной системе Windows может быть осуществлена с помощью различных инструментов, каждый из которых обладает своими уникальными возможностями и. . .	Аналог оператора switch case в Python InfoMaster 10.01.2025 Оператор switch case используется в программировании для выбора одного из нескольких вариантов исполнения кода. Однако в языке Python этот оператор отсутствует. Понимание аналогов switch case в. . .	Отличия абстрактного класса от интерфейса InfoMaster 10.01.2025 В современной разработке программного обеспечения существуют два основных механизма реализации абстракции: абстрактные классы и интерфейсы. Эти инструменты, хотя и схожи в своей основной цели -. . .	Как работать в Git InfoMaster 10.01.2025 Git — это одна из наиболее популярных систем контроля версий, которая активно используется разработчиками по всему миру. Она позволяет эффективно управлять изменениями в коде, координировать работу. . .	Реализация передвижения персонажа в Unity3d на C# InfoMaster 10.01.2025 Реализация передвижения персонажа в Unity3D начинается с правильной настройки проекта. Этот этап критически важен для создания отзывчивого и плавного управления. Рассмотрим основные шаги для создания. . .
Docker: руководство для начинающих InfoMaster 10.01.2025 В современном мире разработки программного обеспечения контейнеризация стала неотъемлемой частью процесса создания и развертывания приложений. Docker, как ведущая платформа контейнеризации, произвела. . .	Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .

@Helldrg 29 / 58 / 6 Регистрация: 10.01.2011 Сообщений: 1,231
		1
	Чтение всего файла методом FileRead 25.03.2013, 23:12. Показов 5122. Ответов 16 Метки нет (Все метки) Здравствуйте! Имеется файл в котором записаны строки, нужно их все вытащить: FileRead(hFile,s,сюда нужно вставить размер); и как потом подсчитать количество символов? 0

@GetMeHelp 16 / 16 / 3 Регистрация: 01.03.2013 Сообщений: 130
	25.03.2013, 23:26	2
	Length? 0

@Helldrg 29 / 58 / 6 Регистрация: 10.01.2011 Сообщений: 1,231
	25.03.2013, 23:54 [ТС]	3
	нет конечно же Ну может это для подсчета количество символов, второй вопрос не обязателен 0

@Helldrg 29 / 58 / 6 Регистрация: 10.01.2011 Сообщений: 1,231
	26.03.2013, 00:15 [ТС]	5
	ОГО А как pc в строку перевести? Ну тоесть, сделать одну большую строку что бы потом можно было из нее слова вырезать. Как вырезать я разберусь, а вот с pc[0] я такого типа данных даже не слышал)) Если это трудно сделать, томожно в принципе и не fileread использовать, но нужно fileopen 0

@Helldrg 29 / 58 / 6 Регистрация: 10.01.2011 Сообщений: 1,231
	26.03.2013, 00:33 [ТС]	7
	а как к стрингу привести это дело?) 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	26.03.2013, 00:38	8
	Сообщение от Helldrg а как к стрингу привести это дело?) Сообщение от cotseec tmp:=AnsiString(pc); чем не приведение к типу? (можно вместо AnsiString просто написать string, в зависимости от версии Delphi это может быть как AnsiString, так и WideString) 1

@Helldrg 29 / 58 / 6 Регистрация: 10.01.2011 Сообщений: 1,231
	26.03.2013, 00:58 [ТС]	9
	аааааа все понял!!! Спасибо!!!! Добавлено через 5 минут Сообщение от cotseec var * pc * * :PAnsiChar hf,size :LongInt; begin * hf:=FileOpen('c:\zz.txt',fmOpenRead); * size:=GetFileSize(hf,0); * StrAlloc(pc,size); * FileRead(hf,pc[0],size); * FileClose(hf); // что-то делаем с pc * StrDispose(pc); end; У меня не работает( 0

angstrom
	26.03.2013, 01:09	10
	По F8 прошагивал, что именно не отрабатывает?

@Helldrg 29 / 58 / 6 Регистрация: 10.01.2011 Сообщений: 1,231
	26.03.2013, 01:27 [ТС]	11
	undeclareted identifier GetFileSize Добавлено через 28 секунд Сообщение от angstrom По F8 прошагивал, что именно не отрабатывает? Даже не компилится 0

@Helldrg 29 / 58 / 6 Регистрация: 10.01.2011 Сообщений: 1,231
	26.03.2013, 01:35 [ТС]	13
	undeclareted identifier Windows)))))) 0

angstrom
	26.03.2013, 01:37	14
	Так пропиши его в uses.

@Helldrg 29 / 58 / 6 Регистрация: 10.01.2011 Сообщений: 1,231
	26.03.2013, 01:41 [ТС]	15
	Incompatible types Cardinal and PAnsiChar в строке StrAlloc(pc,size); 0