Простейшая прога, но...

← →
mrAndersen © (2006-03-06 17:28) [0]

Что Вы можете сказать по поводу этой простейшей программы, которая стирает элемент с позиции (i+1) в тексте которой находиться в скобках, но при этом, если в тексте находиться не одни скобки, а больше, тогда текст остается прежним (за исключением, конечно, текста в первых скобках).

р.s. Как я не пытался сделать счетчик, - не выходит, команда
j1:=pos( "(" ,a); начинает отсчет с первой позиции элемента текста.

procedure TForm1.Button1Click(Sender: TObject);
var
F1,F2: TextFile;
a: String;
k,i,j1,j2:integer;
begin
AssignFile(F1,"D:\old\New\Delphi5_s\hernia\ses1.txt");
AssignFile(F2,"D:\old\New\Delphi5_s\hernia\ses2.txt");
reset(F1);
rewrite(F2);
begin
While Not EOF(F1) do begin
If Not EOLN(F1) then begin
Readln(F1,a);
k:=length(a);

j1:=pos( "(" ,a);
j2:=pos( ")" ,a);

for i:=j1 to j2 do

if a[i]="5" then Delete(a,i+1,1);
Write(F2,a);

end;
end;
end;
CloseFile(F1);
CloseFile(F2);
end;

← →
Jeer © (2006-03-06 17:32) [1]

"Если работает, то - не трожь" (С)

← →
mrAndersen © (2006-03-06 17:39) [2]

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

← →
Плохиш © (2006-03-06 17:55) [3]

> mrAndersen © (06.03.06 17:28)
> Что Вы можете сказать по поводу этой простейшей программы,
> которая стирает элемент с позиции (i+1) в тексте которой
> находиться в скобках,

Это, думается, самая главная часть в алгоритме работы, но, к сожалению, под каким углом не читал, так и не понял, что делать надо :-(
Если судить по коду, то удаляются символы "5" находящиеся между скобками.
Можно привести несколько кусков входных файлов и что должно получиться в результате?

PS. Я бы обрабатывал весь файл как сплошную последовательность символов, введя счётчик вложенности скобок.

Ответ очевиден, только меня ведь одиотом ты назвал, спроси у умных

← →
Бобруиц(житель бобруйска) (2006-03-10 11:41) [5]

тебе именно в первых скобках надо чтото удалить ? и зачем тебе счетчик ?
begin
ищем через pos в строке "(" - скобку
потом
строка = строке минус все символы до скобки
ищем вторую скобку
отрезаем хвост который после вй скобки идет и делаем че хотим
в чем проблема то ?
ты там вообше чето страшное намутил =)

Простейшая прога, но... Найти похожие ветки