Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];

Вниз

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

 
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. Я бы обрабатывал весь файл как сплошную последовательность символов, введя счётчик вложенности скобок.


 
TStas ©   (2006-03-10 02:37) [4]

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


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

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



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.04 c
4-1136582918
g-l-u-k
2006-01-07 00:28
2006.03.26
Получение PID


2-1141979103
Гость111
2006-03-10 11:25
2006.03.26
Как запустить windows-кий калькулятор из программы.


9-1126708907
Signate
2005-09-14 18:41
2006.03.26
Перемещение камеры в трех осях в OpenGL


15-1141469577
MadAngel
2006-03-04 13:52
2006.03.26
Помогите починить ноут


2-1141745682
ZeFiR
2006-03-07 18:34
2006.03.26
Как перехватить переход винды в спящий режим?...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский