VPF::[Pascal] Текстовый файл - Форум программистов

Tarantul2007

Дата 22.4.2007, 20:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 5.3.2007

Репутация: нет
Всего: нет

Дан текстовый файл. Вывести количество содержащихся в нем символов и строк (маркеры концов строк EOLN и конца файла EOF при подсчете количества символов не учитывать).

darkart

Дата 23.4.2007, 00:27 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 379
Регистрация: 9.11.2005

Репутация: 26
Всего: 31

Код


program FileText;
var
  iSymbolCount,iStringCount:integer;{iSymbolCount - счетчик символов, iStringCount - счетчик строк}
  strFileName,strTemp:string;{strFileName - имя файла}
  F:text;{файл с текстом}
begin
  {инициализация счетчиков}
  iSymbolCount:=0;
  iStringCount:=0;
  writeln('Please, enter file name:');
  readln(strFileName);{ввод имени файла}
  Assign(F,strFileName);{связывание имени файла с файловой переменной}
  reset(f);{открытие для чтения}
  while not eof(F) do{пока не конец файла}
  begin
    readln(F,strTemp);{читаем строку}
    inc(iStringCount);{увеличиваем счетчик строк}
    inc(iSymbolCount,Length(strTemp));{увеличиваем счетчик символов на длину прочитанной строки}
  end;
  Close(F);{закрываем файл}
  writeln('Strings - ',iStringCount);{вывод количества строк}
  writeln('Symbols - ',iSymbolCount);{вывод количества символов}
  readln;{ждем ввода}
end.

sjogun1993

Дата 21.4.2012, 15:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 21.4.2012

Репутация: нет
Всего: нет

извините , я хотел переписать данную программу в Lazarus

Код


procedure TForm1.Button1Click(Sender: TObject);
var symcount, stringcount:integer;
 strT:string;{строка файла очередная}
 F:textfile;
begin

 assignfile(F,'C:\Users\1\Desktop\Игры и Проги\32.txt');
 reset(F);
 symcount:=0;
 stringcount:=0;
 while not eof(F) do
 begin
   read(F,strT);
   stringcount:=stringcount+1;
   symcount:=symcount+length(strT);
end;
closefile(F);
edit1.Text:=floattostr(stringcount);
edit2.Text:=floattostr(symcount);
end;

end.

программа запускается, но не выводит кол-во символов и строк при нажатии кнопки , а пишет ошибку RUNERROR(((
подскажите в чём дело ? и как исправить

Mirkes

Дата 23.4.2012, 21:44 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 586
Регистрация: 18.8.2011
Где: Красноярск

Репутация: 4
Всего: 17

Уточните ошибку. Что точно пишет?

--------------------

Mirkes

sjogun1993

Дата 23.4.2012, 21:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 21.4.2012

Репутация: нет
Всего: нет

Run Error или вообще invalid filename ((( запустите у себя на компе и глянете .

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

Код


procedure TForm1.Button1Click(Sender: TObject);
var symcount, stringcount:integer;
 strT:string;{строка файла очередная}
 F:textfile;
begin
 assignfile(F,'C:\Users\1\Desktop\Игры и Проги\32.txt');
 reset(F);
 symcount:=0;
 stringcount:=0;
 while not eof(F) do
 begin
   readln(F,strT);
   stringcount:=stringcount+1;
   symcount:=symcount+length(strT);
end;
closefile(F);
edit1.Text:=floattostr(stringcount);
edit2.Text:=floattostr(symcount);
end;

вопрос снимается, ошибка найдена вместо read надо readln )))
большое спасибо кто откликнулся )))

Mirkes

Дата 26.4.2012, 03:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 586
Регистрация: 18.8.2011
Где: Красноярск

Репутация: 4
Всего: 17

Я вставил в Лазарус предложенный Вам текст (текст для консоьного приложения) получил следующий проект:

Код


program Test;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, SysUtils, CustApp
  { you can add units after this };

type

  { TextFile }

  TextFile = class(TCustomApplication)
  protected
    procedure DoRun; override;
  public
    constructor Create(TheOwner: TComponent); override;
    destructor Destroy; override;
    procedure WriteHelp; virtual;
    procedure TestProc;
  end;

{ TextFile }

procedure TextFile.DoRun;
var
  ErrorMsg: String;
begin
  // quick check parameters
  ErrorMsg:=CheckOptions('h','help');
  if ErrorMsg<>'' then begin
    ShowException(Exception.Create(ErrorMsg));
    Terminate;
    Exit;
  end;

  // parse parameters
  if HasOption('h','help') then begin
    WriteHelp;
    Terminate;
    Exit;
  end;

  { add your program here }
  TestProc;
  // stop program loop
  Terminate;
end;

constructor TextFile.Create(TheOwner: TComponent);
begin
  inherited Create(TheOwner);
  StopOnException:=True;
end;

destructor TextFile.Destroy;
begin
  inherited Destroy;
end;

procedure TextFile.WriteHelp;
begin
  { add your help code here }
  writeln('Usage: ',ExeName,' -h');
end;

var
  Application: TextFile;

{$R *.res}

procedure TextFile.TestProc;
var
  iSymbolCount,iStringCount:integer;{iSymbolCount - счетчик символов, iStringCount - счетчик строк}
  strFileName,strTemp:string;{strFileName - имя файла}
  F:text;{файл с текстом}
begin
  {инициализация счетчиков}
  iSymbolCount:=0;
  iStringCount:=0;
  writeln('Please, enter file name:');
  readln(strFileName);{ввод имени файла}
  AssignFile(F,strFileName);{связывание имени файла с файловой переменной}
  reset(f);{открытие для чтения}
  while not eof(F) do{пока не конец файла}
  begin
    readln(F,strTemp);{читаем строку}
    inc(iStringCount);{увеличиваем счетчик строк}
    inc(iSymbolCount,Length(strTemp));{увеличиваем счетчик символов на длину прочитанной строки}
  end;
  Close(F);{закрываем файл}
  writeln('Strings - ',iStringCount);{вывод количества строк}
  writeln('Symbols - ',iSymbolCount);{вывод количества символов}
  readln;{ждем ввода}
End;

begin
  Application:=TextFile.Create(nil);
  Application.Title:='My Application';
  Application.Run;
  Application.Free;
end.

Если туда подставить файл D:\1\pas.txt, то все работает как часы, а вот если подставить файл D:\1\ЙЦ то облом с невнятной ошибкой RunError(2). Элементарная проверка показала, что при считывании строки с клавиатуры на входе вместо строки "D:\1\ЙЦ" была строка "D:\1\". Естественно такой файл (на самом деле каталог) прочитать не удалось. Скорее всего в Вашем случае тоже мешают русские буквы. Создайте тестовый файл в каталоге без русских букв и посмотрите что выйдет. Я плохо знаю Лазарус и не могу подсказать как избавиться от этой ошибки. Загляните в соответсвующий раздел форума, спростите.
Сообщите результат предложенного мной теста, пожалуйста.

--------------------

Mirkes

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »