VPF::Работа с файлами! - Форум программистов

123456789igor

Дата 29.5.2011, 15:07 (ссылка)

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

Загрузка ...

Новичок

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

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

Добрый день
Скажите пожалуйста, можно ли сделать в паскале следующее:
Есть 2 файла(*dat) в каждом из них есть данные допустим там и там есть "мин.заработная плата(minplata и minplata2)" мне надо, что бы паскаль сравнивал значения этих переменных и в случае их совпадения он записывал в 3ий файл переменную imia из 1ого файла.

Keeper89

Дата 29.5.2011, 18:33 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Цитата(123456789igor @ 29.5.2011, 15:07

)

можно ли сделать в паскале следующее

Можно

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

123456789igor

Дата 29.5.2011, 20:48 (ссылка)

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

Загрузка ...

Новичок

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

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

Подскажи пожалуйста как...

Keeper89

Дата 31.5.2011, 14:09 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Какой формат файлов и какой нужен в итоге?
Формат здесь - внутренняя структура.

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

123456789igor

Дата 31.5.2011, 19:21 (ссылка)

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

Загрузка ...

Новичок

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

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

Не важно. Главное, что бы можно было этойт файл прочитать и всё

Keeper89

Дата 1.6.2011, 01:31 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Ну раз не важно, ответ примерно такой:

Код


var
  SL, SL2, SL3: TStringList;
begin
  SL := TStringList.Create;
  SL2 := TStringList.Create;
  SL3 := TStringList.Create;
  try
    SL.LoadFromFile('C:\1.txt');
    SL.LoadFromFile('C:\2.txt');
    // Сравниваем первые строчки, в которые, предположим, числа
    if StrToInt(SL[0]) > StrToInt(SL2[0]) then
      SL3.Add(SL[0])
    else
      SL3.Add(SL2[0]);
    SL3.SaveToFile('C:\3.ttx');
  finally
    FreeAndNil(SL);
    FreeAndNil(SL2);
    FreeAndNil(SL3);
  end;
end;

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

THandle

Дата 1.6.2011, 08:36 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Keeper89, вроде же речь о Паскале?

123456789igor, смотри функции Assign, Rewrite, Write(Ln)/Read(Ln), Append, Reset, Close.

Добавлено через 1 минуту и 21 секунду
Первая же ссылка в гугле:
http://hosting.ulstu.ru/ip/file_p.html

Keeper89

Дата 2.6.2011, 13:34 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

THandle, ага, ошибся.

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

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