IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Нужно обработать два текстовых файла
LOVE133
сообщение 2.12.2005 9:17
Сообщение #1


Гарцующая лошадка
**

Группа: Пользователи
Сообщений: 107
Пол: Женский
Реальное имя: Любовь

Репутация: -  0  +


Доброго утра! Вроде бы все просто: даны 2 готовых текстовых файла, из одного считать с позиций N1<N2 -в другой вставить перед m. Как осуществить ?
Не могу справиться с считывание признака конца строки и копированием в другой файл. Если такую задачу решали, киньте ссылку, plz!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 2.12.2005 9:41
Сообщение #2


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Цитата
считать с позиций N1<N2 -в другой вставить перед m.


В текстовом файле нет позиций ... може имеются в виду строки ?


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
LOVE133
сообщение 2.12.2005 9:58
Сообщение #3


Гарцующая лошадка
**

Группа: Пользователи
Сообщений: 107
Пол: Женский
Реальное имя: Любовь

Репутация: -  0  +


Да-да, конечно, жутко виновата! Даны строки, которые надо перенести, и строка в другом файле, перед которой нужно эти строки вставить. Проблема начинается с считыванием строк.Может, отдельный массив завести?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 2.12.2005 10:02
Сообщение #4


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


конечно, хорошая мысль, заполнить строками массив, работать с массивом, сделать все необходимые перестановки, а потом записать массив построчно в файл.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
LOVE133
сообщение 2.12.2005 10:05
Сообщение #5


Гарцующая лошадка
**

Группа: Пользователи
Сообщений: 107
Пол: Женский
Реальное имя: Любовь

Репутация: -  0  +


так я говорю, у меня возникли проблемы со считыванием строк, я не могу их выделить...Хоть в массив, хоть нет. Как считаь их из файла?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 2.12.2005 10:09
Сообщение #6


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


smile.gif)


var
  f : text;
  s : string;
  a : array[1..20] of string;
  i : byte;
...
begin
   assign(f,'test.txt');
   reset(f);
   i := 0;
   while(not(eof(f))) do begin
      readln(f,s);
      inc(i);
      a[i] := s;
   end;
...
  close(f);
...
end.


+ FAQ : Файлы yes2.gif


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
LOVE133
сообщение 2.12.2005 10:13
Сообщение #7


Гарцующая лошадка
**

Группа: Пользователи
Сообщений: 107
Пол: Женский
Реальное имя: Любовь

Репутация: -  0  +


while(not(eof(f))) do begin

readln(f,s);

inc(i);

a[i] := s;

end;

Вот здесь: readln(f,s); Ничгде же не пишется, какую строку считать, до какого места. Он автоматом берет целую строку? И так же автоматом считывает следующую? Просто любопытство smile.gif)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 2.12.2005 10:16
Сообщение #8


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


после завершение этого цикла массив а будет заполнен по порядку строками из файла f

сходи по ссылка на FAQ ттой что я дал, почитай теорию yes2.gif


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
LOVE133
сообщение 2.12.2005 10:18
Сообщение #9


Гарцующая лошадка
**

Группа: Пользователи
Сообщений: 107
Пол: Женский
Реальное имя: Любовь

Репутация: -  0  +


Большое спасибо. Пошла читать теорию.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 25.07.2025 1:58
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"