Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

-=ClearJournal=-

Only working scripts
Post Reply
Vlad
Neophyte
Neophyte
Posts: 12
Joined: 28.03.2011 22:31

-=ClearJournal=-

Post by Vlad »

Доброй ночи!
подскажите, есть ли команда удаляющая конкретное сообщение из журнала?
что то типа ClearJournalLine(бла-бла)
ClearJournal - не подходит, т.к нужно следить за происходящим по журналу..
Спасибо!

Code: Select all

Procedure Elf;
Begin
if InJournal('elf') <> -1 then
begin
clearjournal;
wait(100);
end;
end;
поиск юзал, не помогло.
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Re: -=ClearJournal=-

Post 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,'');
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Vlad
Neophyte
Neophyte
Posts: 12
Joined: 28.03.2011 22:31

Re: -=ClearJournal=-

Post 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,'');
не особо понял как и куда это девать, можно чуть подробнее ?
Macks
Apprentice
Apprentice
Posts: 250
Joined: 27.02.2006 22:23
Location: АоП - Age Of Power

Re: -=ClearJournal=-

Post by Macks »

Vlad wrote:SetJournalLine(X,'');
не особо понял как и куда это девать, можно чуть подробнее ?[/quote]

Обнулить в журнале строку под номером Х
Vlad
Neophyte
Neophyte
Posts: 12
Joined: 28.03.2011 22:31

Re: -=ClearJournal=-

Post by Vlad »

Macks wrote:
Vlad wrote:SetJournalLine(X,'');
не особо понял как и куда это девать, можно чуть подробнее ?
Обнулить в журнале строку под номером Х[/quote]
как в скрипте это осуществить?
мне нужно чтобы удалилось слово Elf
Roman
Neophyte
Neophyte
Posts: 37
Joined: 03.11.2014 21:48

Re: -=ClearJournal=-

Post by Roman »

может InJournalBetweenTimes поможет.
Macks
Apprentice
Apprentice
Posts: 250
Joined: 27.02.2006 22:23
Location: АоП - Age Of Power

Re: -=ClearJournal=-

Post by Macks »

Vlad wrote:
Macks wrote:Обнулить в журнале строку под номером Х
как в скрипте это осуществить?
мне нужно чтобы удалилось слово Elf
Находишь в журнале строку, получаешь ее номер.
Получаешь текст строки, меняешь ее как нужно.
Записываешь назад.
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Re: -=ClearJournal=-

Post by Vizit0r »

уже в аське с автором решили вопрос, итог

Code: Select all

 SetJournalLine(InJournal('Elf'),'   ')  
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Vlad
Neophyte
Neophyte
Posts: 12
Joined: 28.03.2011 22:31

Re: -=ClearJournal=-

Post by Vlad »

Да!
Всем Спасибо за помощь!
Vlad
Neophyte
Neophyte
Posts: 12
Joined: 28.03.2011 22:31

Re: -=ClearJournal=-

Post by Vlad »

Vizit0r wrote:уже в аське с автором решили вопрос, итог

Code: Select all

 SetJournalLine(InJournal('Elf'),'   ')  

Господа, а возможно ли такое

Code: Select all

 AddToSystemJournal JournalLine('Elf') ? 
если да, то как правильно написать?
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Re: -=ClearJournal=-

Post by Vizit0r »

ты бы по-русски обьяснил, что добавить хочешь-то.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Vlad
Neophyte
Neophyte
Posts: 12
Joined: 28.03.2011 22:31

Re: -=ClearJournal=-

Post 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;
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Re: -=ClearJournal=-

Post by Vizit0r »

Code: Select all

InJournal('Elf');
AddToSystemJournal(Journal(LineIndex));
 SetJournalLine(LineIndex, '   ');
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Post Reply