Page 1 of 1
-=ClearJournal=-
Posted: 19.06.2015 2:10
by Vlad
Доброй ночи!
подскажите, есть ли команда удаляющая конкретное сообщение из журнала?
что то типа ClearJournalLine(бла-бла)
ClearJournal - не подходит, т.к нужно следить за происходящим по журналу..
Спасибо!
Code: Select all
Procedure Elf;
Begin
if InJournal('elf') <> -1 then
begin
clearjournal;
wait(100);
end;
end;
поиск юзал, не помогло.
Re: -=ClearJournal=-
Posted: 19.06.2015 9:53
by Vizit0r
чистого удаления строки нет, можно заменить ее на пустую.
ExportedMethod^.FuncProc := 'procedure';
ExportedMethod^.FuncName := 'SetJournalLine';
ExportedMethod^.FuncParamsCount := 2;
ExportedMethod^.FuncParams[0] := 'StringIndex : Integer';
ExportedMethod^.FuncParams[1] := 'Text : String';
ExportedMethod^.FuncReturnValue := '';
SetJournalLine(X,'');
Re: -=ClearJournal=-
Posted: 19.06.2015 12:20
by Vlad
Vizit0r wrote:чистого удаления строки нет, можно заменить ее на пустую.
ExportedMethod^.FuncProc := 'procedure';
ExportedMethod^.FuncName := 'SetJournalLine';
ExportedMethod^.FuncParamsCount := 2;
ExportedMethod^.FuncParams[0] := 'StringIndex : Integer';
ExportedMethod^.FuncParams[1] := 'Text : String';
ExportedMethod^.FuncReturnValue := '';
SetJournalLine(X,'');
не особо понял как и куда это девать, можно чуть подробнее ?
Re: -=ClearJournal=-
Posted: 19.06.2015 13:12
by Macks
Vlad wrote:SetJournalLine(X,'');
не особо понял как и куда это девать, можно чуть подробнее ?[/quote]
Обнулить в журнале строку под номером Х
Re: -=ClearJournal=-
Posted: 19.06.2015 13:41
by Vlad
Macks wrote:Vlad wrote:SetJournalLine(X,'');
не особо понял как и куда это девать, можно чуть подробнее ?
Обнулить в журнале строку под номером Х[/quote]
как в скрипте это осуществить?
мне нужно чтобы удалилось слово Elf
Re: -=ClearJournal=-
Posted: 19.06.2015 13:53
by Roman
Re: -=ClearJournal=-
Posted: 19.06.2015 15:49
by Macks
Vlad wrote:Macks wrote:Обнулить в журнале строку под номером Х
как в скрипте это осуществить?
мне нужно чтобы удалилось слово Elf
Находишь в журнале строку, получаешь ее номер.
Получаешь текст строки, меняешь ее как нужно.
Записываешь назад.
Re: -=ClearJournal=-
Posted: 19.06.2015 16:03
by Vizit0r
уже в аське с автором решили вопрос, итог
Code: Select all
SetJournalLine(InJournal('Elf'),' ')
Re: -=ClearJournal=-
Posted: 19.06.2015 18:46
by Vlad
Да!
Всем Спасибо за помощь!
Re: -=ClearJournal=-
Posted: 19.06.2015 21:57
by Vlad
Vizit0r wrote:уже в аське с автором решили вопрос, итог
Code: Select all
SetJournalLine(InJournal('Elf'),' ')
Господа, а возможно ли такое
Code: Select all
AddToSystemJournal JournalLine('Elf') ?
если да, то как правильно написать?
Re: -=ClearJournal=-
Posted: 19.06.2015 22:16
by Vizit0r
ты бы по-русски обьяснил, что добавить хочешь-то.
Re: -=ClearJournal=-
Posted: 19.06.2015 22:20
by Vlad
добавить в системный журнал строчку в которой есть 'Elf', всю строку целиком
Code: Select all
Procedure Elf;
Begin
if InJournal('Elf') <> -1 then
begin
AddToSystemJournal JournalLine('Elf') ( есть ли такая команда?)
SetJournalLine(InJournal('Elf'),' ')
wait(100);
end;
end;
Re: -=ClearJournal=-
Posted: 20.06.2015 0:23
by Vizit0r
Code: Select all
InJournal('Elf');
AddToSystemJournal(Journal(LineIndex));
SetJournalLine(LineIndex, ' ');