Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Ошибка или с Pos или с delete, Помогите найти, пожалуйста. 
:(
    Опции темы
Canada
Дата 15.9.2011, 22:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 153
Регистрация: 9.2.2009

Репутация: нет
Всего: нет
Здравствуйте.

Помогите, пожалуйста, с моим monkey-кодом. Суть - открыть файл, и удалить все между <begin> и <end>, включая эти операторные скобки.

Код

_Temp.LoadFromFile (_s.Strings[_i]);
    _string:= _Temp.Text;
    _q:= Pos ('<begin>', _string);
    if _q > 0 then
     begin
       _q1:= Pos ('<end>', _string);
       _j:= _q1 - _q;
       Delete(_string,_q, _j+5);
       _Temp.Text:= _string;
       _Temp.SaveToFile(_s.Strings[_i]);
     end;
    _Temp.Free;


Заранее благодарен!
PM MAIL   Вверх
Keeper89
Дата 15.9.2011, 23:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58
А что не так?


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Canada
Дата 16.9.2011, 01:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 153
Регистрация: 9.2.2009

Репутация: нет
Всего: нет
Не знаю. Но у меня не работает:(
PM MAIL   Вверх
AndreyIQ
Дата 16.9.2011, 07:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 185
Регистрация: 5.2.2007

Репутация: 1
Всего: 8
Цитата(Canada @ 16.9.2011,  01:22)
Не знаю. Но у меня не работает:(

Все работает
Код

var
  _Temp: TStringList;
  _String:string;
  _q, _q1, _j: integer;
begin
_Temp:= TStringList.Create;
_Temp.LoadFromFile('c:\123321.txt');
    _string:= _Temp.Text;
    _q:= Pos ('<begin>', _string);
    if _q > 0 then
     begin
       _q1:= Pos ('<end>', _string);
       _j:= _q1 - _q;
       Delete(_string,_q, _j+5);
       _Temp.Text:= _string;
       _Temp.SaveToFile('c:\123321_.txt');
     end;
    _Temp.Free;
end;
PM MAIL   Вверх
Canada
Дата 16.9.2011, 11:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 153
Регистрация: 9.2.2009

Репутация: нет
Всего: нет
Значит, мой компилятор глючит:( Это еще печальнее.
PM MAIL   Вверх
Keeper89
Дата 16.9.2011, 11:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58
Canada, компилятор глючит?  smile 
Ошибку выдает? С какими входными параметрами не работает? Брейкпоинты что показывают?


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Canada
Дата 16.9.2011, 12:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 153
Регистрация: 9.2.2009

Репутация: нет
Всего: нет
Ошибку не выдает, просто не работает. Т.е. запустил код на компиляцию, указал папку, где файлы обработать надо. Прогресс бар пробежал, все успешно, но внутри файлов, все, как и было прежде. Т.е. файл или не обработался, или не сохранился. Не знаю. Не верю, что не сохранился, т.к. _Temp.SaveToFile(_s.Strings[_i]); не может не работать, да и по дате изменения файла видно, что работа велась. Т.е. не работает мой код.
PM MAIL   Вверх
Frees
Дата 16.9.2011, 12:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54
а ты откуда этот код скопировал?
отладчиком пользоваться умеешь?


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
Canada
Дата 16.9.2011, 14:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 153
Регистрация: 9.2.2009

Репутация: нет
Всего: нет
А я не скопировал, я написал сам. Отладчиком - это F7? 
PM MAIL   Вверх
Frees
Дата 16.9.2011, 14:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54
>А я не скопировал, я написал сам. 
а что должен делать твой код?

>Отладчиком - это F7? 
и еще F5, F8 и Ctrl+F5 и много других....

Это сообщение отредактировал(а) Frees - 16.9.2011, 18:32


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
Canada
Дата 16.9.2011, 15:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 153
Регистрация: 9.2.2009

Репутация: нет
Всего: нет
А я написал в первом посте.
PM MAIL   Вверх
Keeper89
Дата 16.9.2011, 16:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58
Можешь ты написать, что идет на входе, что на выходе? Скопируй из отладчика.


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Canada
Дата 17.9.2011, 15:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 153
Регистрация: 9.2.2009

Репутация: нет
Всего: нет
На входе текст, внутри которого те самые операторные скобки <begin> и <end>, их содержимое и надо удалить. Вместе со скобками. А что скопировать из отладчика? Я просто не понимаю, о чем Вы спрашиваете. :(
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0517 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.