Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Badko_o
0 / 0 / 0
Регистрация: 18.12.2010
Сообщений: 3
#1

Удаление из строк файла заданного количества элементов и перемещение их в другой фаил. - Pascal ABC

22.05.2011, 19:40. Просмотров 528. Ответов 0
Метки нет (Все метки)

Удалить из середины каждой строки текстового файла заданное пользователем количество символов. Создайте текстовый файл, содержащий удаленные символы. Вывести на экран первоначальный файл и преобразованный.
Такой код, не могу найти ошибку. Зацикливается и зависает.
В файле "filest.txt" использую просто набор букв типа affghjkxgcjfukr.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
var
f1,f2: text;
st,st1:string;
i,n:integer;
begin
 assign (f1,'filest.txt');
 assign (f2,'фаил с буквами из строк.txt');
 rewrite(f2);
 writeln ('введете кол - во символов для удаления - ' );
 read(i);
 reset(f1);
 while not EOF(f1) do
  begin
   read(f1,st);
   writeln('введенная строка : ', st);
   n:=length(st);
   n:=n div 2;
   st1:=copy(st,n,i);
   writeln (f2,st1);
   delete(st,n,i);
   writeln('полученная строка : ', st);
  end;
 close(f1);
 close(f2);
 end.
Еще я бы хотел спросить как сделать так, чтобы можно было использовать осмысленные строки.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2011, 19:40
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Удаление из строк файла заданного количества элементов и перемещение их в другой фаил. (Pascal ABC):

Удаление,вставка, перемещение элементов в одномерном массиве
решите задачку, на завтра нужна для зачёта.. нужно решить через процедуры. ...

Перенос заданного количества строк из одного файла в другой
Доброго времени суток уважаемые! Собственно есть проблема, пожалуйста помогите...

Записать из одного текстового файла в другой только предложения, состоящие из заданного количества слов
Здравствуйте. Не могу понять в чем ошибка и правильно ли я вообще выполняю...

Как реализовать удаление заданного количества элементов из начала массива структур?
Дано: структура содержащяя фамилию, возраст, рейтинг Что не получается:...

Удаление цифр из строк 1 файла и запись в другой
Здравствуйте! Дан файл, компонентами которого являются строки символов....

Нахождение количества строк двумерного массива сумма элементов которых меньше заданного числа
Разработайте программу для нахождения количества строк двумерного массива...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.05.2011, 19:40
Привет! Вот еще темы с решениями:

Перенос из одного файла в другой фаил
Доброго времени суток участники форума. Помогите, пожалуйста придумать макрос...

Перемещение строк из одного DataGridView в другой
Ув. форумчане, помогите решить проблему с перемещением!!! Я в этом деле...

Перемещение выбранных ячеек на другой лист и после удаление строки
Здравствуйте, подскажите, пожалуйста, как можно усовершенствовать макрос. ...

Выделение списков на заданном уровне и удаление заданного их количества
Написать программу выделения списков на заданном уровне и удаления заданного их...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru