VPF::Файлы: Добавление, считывание, удаление в файле

LeeGance

Дата 28.4.2010, 09:45 (ссылка)

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

Загрузка ...

Новичок

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

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

Доброго времени суток, господа!
При выполнении задания столкнулся с небольшой проблемкой. Вот текст программы:

Код


Program VVOD;
uses crt;
const
max= 3;
var
 i,n: integer;
 OKPO: String[8];
 NAME: String[30];
 Dohod,Rashod,Pribul: real;
 F: text;
begin
n:=0;
clrscr;
assign(f,'e:\Dipl\VvodOKPO.txt');
Append(f);

    writeln ('Vvedite OKPO: ');
    readln (OKPO);
    write (f,OKPO);
    n:=n+1;

    writeln ('Vvedite Name Company: ');
    readln (NAME);
    write (f, NAME);
    n:=n+1;

    Writeln ('Vvedite Dohod');
    readln (Dohod);
    write (f,Dohod:1:0);
    n:=n+1;

    Writeln ('Vvedite Rashod');
    readln (Rashod);
    write (f,Rashod:1:0);
    n:=n+1;

    Pribul:=Dohod-Rashod;
    Writeln ('Chistaia pribl = ',Pribul:1:0);
    write (f,pribul:1:0);
close(f);
         {writeln(n);}
         readkey;
 end.

Ozzя

Дата 28.4.2010, 10:16 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата

но ничем не отделяются - ни пробелом

Напрасно, как мне думается. Потому, что "осуществить поиск " будет сложно.

LeeGance

Дата 28.4.2010, 10:28 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата

Напрасно, как мне думается. Потому, что "осуществить поиск " будет сложно.

Так, с пробелами я разобрался так: write (f,' ', NAME); надеюсь это правильно.
Вопрос состоит в следующем: как сделать, чтобы осуществлялся поиск до пробела или еще до чего? И после, как удалить все данные, связанные с этим ОКПО из .тхт?

Это сообщение отредактировал(а) LeeGance - 28.4.2010, 10:58

Ozzя

Дата 28.4.2010, 13:31 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код


while not eof(f) do
  begin
     readln(f,s);
     for i:=1 to length(s) do
        if s[i]=' ' then
           {ваши действия}
           {примеров разбивки строки на слова/предложения в Сети множество}
        ...
  end;

LeeGance

Дата 29.4.2010, 19:14 (ссылка)

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

Загрузка ...

Новичок

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

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

Благодарю

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