Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
ZX-spectrum1968
0 / 0 / 0
Регистрация: 23.05.2016
Сообщений: 15
1

Проверка текстового файла на условие

14.10.2018, 08:30. Просмотров 64. Ответов 2
Метки нет (Все метки)

Проверить каждую строку файла на условие, если новая строка начинается с "а" или "А", то после этой строки вставить строку "*******" и т.д.
Есть код, помогите довести до ума.
Заранее спасибо.

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
   ftext: text;
   a,b,c:string;
mas:array of string;
begin
assign(ftext,'d:\text.txt');
reset(ftext);
while not(eof(ftext))
begin readln(ftext,a);
mas[i]=a;
if (a[1]='a')or (a[1]='A');
then mas[i+1]="***********"
     i:=i+2
else i:=i+1; 
end;
n:=i-1;
rewrite(ftext)
for i=1 to n do
writeln(ftext,mas[i])
 
close(ftext);
 
 
 
end.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.10.2018, 08:30
Ответы с готовыми решениями:

программа с текстового файла
Помогите с задачами. 1.Дан текстовый файл, содержащий данные о студентах: фамилия студента,...

сортировка текстового файла
Ребят, помогите составить процедуру сортировки строк текстового файла по последнему слову строки и...

Обработка текстового файла
имеется файл ,содержащий столбик английских слов. -создать процедуру чтения и вывода на экран...

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

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

2
Puporev
Модератор
55403 / 42538 / 29391
Регистрация: 18.05.2008
Сообщений: 100,608
14.10.2018, 09:43 2
Код написан безобразно, с множеством синтаксических ошибок.
По сути вместо массива лучше использовать вспомогательный файл.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
   ftext,gtext: text;
   a:string;
begin
assign(ftext,'text.txt'); //файл в папке с программой
reset(ftext);
assign(gtext,'text1.txt'); //файл в папке с программой
rewrite(gtext);
while not eof(ftext) do
 begin
  readln(ftext,a);
  writeln(gtext,a);
  if (a[1]='а')or (a[1]='А') then writeln(gtext,'"***********"');
 end;
close(ftext);
close(gtext);
erase(ftext);//уничтожим исходный файл
rename(gtext,'text.txt'); //переименуем вспомогательный файл в исходный
end.
0
JuriiMW
2043 / 1114 / 1589
Регистрация: 10.12.2014
Сообщений: 4,250
15.10.2018, 05:11 3
Ну, а если в тот-же, то можно так:
Pascal
1
2
3
4
5
6
7
8
const fName = 'd:\text.txt';
begin
  var a := ReadAllLines(fName);
  for var i := 0 to a.Count-1 do
    if (a[i].Length > 0) and ('аА'.IndexOf(a[i][1]) > -1) then
      a[i] += '*'*7;
  WriteAllLines(fName, a);
end.
P.S. Здесь учтён недостаток программы Puporev. В которой, если встретится пустая строка…
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.10.2018, 05:11

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

Удаление текстового файла на паскале
Когда я написал следующий код и запустил его компилятор Pascal то писал, что файл не найден, то...

Создание текстового файла в Forms
Мне нужно создать простейший текстовый файл, но в формах. В интернете полно примеров, но они либо...


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

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

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