Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Badko_o
0 / 0 / 0
Регистрация: 18.12.2010
Сообщений: 3
#1

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

22.05.2011, 19:40. Просмотров 515. Ответов 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):

Удаление,вставка, перемещение элементов в одномерном массиве - Pascal
решите задачку, на завтра нужна для зачёта.. нужно решить через процедуры. Дан массив целых чисел (n=10), заполненный случайным...

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

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

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

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

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

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

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

Вставка, Удаление, Перемещение строк в двумерном массиве с условием - PHP
Дан двумерный массив размером n*m, заполненный случайным образом. 1. Удалить все строки, в которых встретится четный отрицательный...

Удаление большого количества строк - Visual Basic
Помогите начинающей, подскажите, пожалуйста, как избежать ошибки при удалении тысяч строк? Выдается 'Timeout Expired'. Сотни строк...

Автоматическое добавление заданного количества строк с наполнением - VBA
В ступоре, подскажите кто чем может. приложил файл, мне нужно, чтобы при выборе количества в ячейке F3 например и выборе даты в ячейке...


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

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

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