|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.11.2007, 19:28 | #1 |
Пользователь
Регистрация: 12.11.2007
Сообщений: 31
|
Как поменять строки в текстовом файле местами
Как поменять в текстовом файле такого рода
.- -... .-- --. -.. . ...- --.. .. .--- -.- первую строку с последней, а вторую с прдпоследней и т.д. {алгоритм не прет как надо(((} for i:=1 to length(st) do begin mas[i]:=st[i]; end; for i:=1 to length(st) div 2 do begin tmp:=mas[i]; mas[i]:=mas[length(st)-i-1]; mas[length(st)-i-1]:=tmp; end; //где у меня st- строка символов, а mas-массив из этих строк. |
12.11.2007, 19:36 | #2 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Запоминаем первую строку в переменной. Копируем последнюю на место первой. Записываем строку из переменной на место последней. И так далее.
А при чем тут цикл по символам? Вроде работать надо только со строками? Последний раз редактировалось mihali4; 12.11.2007 в 21:25. |
12.11.2007, 20:24 | #3 |
Пользователь
Регистрация: 12.11.2007
Сообщений: 31
|
А в этом цикле работа идет по символам, а не по строкам. Так наверное легче.А copy как должна бать организована? Писани плиз.
Как организовать работу copy именно со строками? |
12.11.2007, 21:01 | #4 |
добрый няша
Старожил
Регистрация: 29.10.2006
Сообщений: 4,804
|
допустим у тебя есть массив строк (mas) и количество элементов в нём (L), тогда
Код:
Последний раз редактировалось rpy3uH; 12.11.2007 в 21:05. |
12.11.2007, 22:12 | #5 |
Пользователь
Регистрация: 12.11.2007
Сообщений: 31
|
|
12.11.2007, 22:18 | #6 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
|
13.11.2007, 00:35 | #7 |
Форумчанин
Регистрация: 11.11.2007
Сообщений: 136
|
Берешь текстовый файл.
Заносишь его в массив строк. mas-массив l-количество элементов. ... for i:=1 to (l div 2) do begin st:=mas[i]; mas[i]:=mas[l-i]; mas[l-i]:=st; end; ... st-левая string'овая переменная
ICQ - 446037211
|
13.11.2007, 01:15 | #8 | |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Цитата:
А у вас маленький недочет - вы не обрабатываете самую последнюю строку. |
|
13.11.2007, 02:14 | #9 |
Форумчанин
Регистрация: 11.11.2007
Сообщений: 136
|
Ну извини не увидел
ICQ - 446037211
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как поменять строки местами? | ar. | Microsoft Office Word | 1 | 05.09.2008 11:36 |
поменять местами столбцы | veter_s_morya | SQL, базы данных | 4 | 29.06.2008 13:36 |
Поменять местами две половины массива, сохраняя их порядок. | Леди Уинтер | Помощь студентам | 11 | 09.01.2008 09:21 |
Поменять местами строки в memo | Бублик | Помощь студентам | 5 | 18.11.2007 15:27 |