Кибор :: Версия для печати :: вопрос по external и др [5]

41. Zireael - 18 Мая, 2019 - 13:33:26 - перейти к сообщению

Цитата:

Когда жмем кнопку "Запустить":
В лог пишется любой текст такого формата:
"[19:18:56] - Запущен".
И тут же записывает этот текст в файл таким образом:
[18.05.2019]
19:18:56=Запущен

code (Отобразить)

CODE:

#define LBS_NOSEL 16384
#define WS_BORDER 8388608
#define WS_HSCROLL 1048576
#define WS_VSCROLL 2097152
#define WS_CHILD 1073741824
#define WS_VISIBLE 268435456
#define LBS_DISABLENOSCROLL 4096
#define LB_SETHORIZONTALEXTENT 404
#define LB_ADDSTRING 384
#define LB_GETCOUNT 395
#define LB_GETTEXT 393
#define LB_DELETESTRING 386

external(INT, "CreateWindow", "CreateWindowExA", "User32.dll" );
external(INT, "GetTextExtentPoint32", "GetTextExtentPoint32A", "Gdi32.dll" );
external(INT, "GetDC", "GetDC", "User32.dll" );
external(INT, "GetPrivateProfileString", "GetPrivateProfileStringA", "kernel32.dll");
external(INT, "WritePrivateProfileString", "WritePrivateProfileStringA", "kernel32.dll");
external(INT, "Strftime", "Strftime", pathfolder()+"Time.dll" );
external(INT, "SendMessage", "SendMessageA", "User32.dll" );

string date = "18.05.2019";
string path = "C:\Users\Home\AppData\Local\Temp\K2019Bot_Log.ini";
int Year, Month, DayOfWeek, Day, Hour, Minute, Second, Milliseconds;
int list, b1, hdc, max_length = 0;
char Time[100];
char Date[100];
char Text_Listbox1[255];
int a = 0;
string temp_fold = tempfolder();
string path_fold = pathfolder();

createdialog(0);
showdialog(0, "Диалог",100, 100, 300, 300, 1, 1);

loop()
{
sleep(10);
}

function getmessage(0, WM_COMMAND)
{
if (message.lparam==b1)add_list("Бот запущен.");
}

function getmessage(0, WM_CREATE)
{
list = CreateWindow(0, "LISTBOX", "", LBS_NOSEL | WS_BORDER | WS_HSCROLL | WS_VSCROLL | LBS_DISABLENOSCROLL | WS_CHILD | WS_VISIBLE, 10, 10, 200, 200, gethwnd(0), 0, 0, 0);
b1=CreateWindow(0, "BUTTON", "Запустить", WS_CHILD | WS_VISIBLE, 10, 220, 120, 30, gethwnd(0), 0, 0, 0);
hdc=GetDC(list);
}

function add_list(string s)
{
getlocaltime(Year, Month, DayOfWeek, Day, Hour, Minute, Second, Milliseconds);
Strftime(address(#Time[0]), sizearray(Time), "%X", Hour, Minute, Second, Day, Month, Year);
Strftime(address(#Date[0]), sizearray(Date), "%d.%m.%Y", Hour, Minute, Second, Day, Month, Year);

string Text = s;
s="["+format(#Time[0])+"] - "+s;
int SIZE[2];
new char c[size(s)+1];
strcpy(#c[0], s);
GetTextExtentPoint32(hdc, address(#c[0]), sizearray(c), address(#SIZE[0]));
if(max_length<SIZE[0])
{
max_length=SIZE[0];
sendmessage(LB_SETHORIZONTALEXTENT, SIZE[0], 0, formatiw(list));
}
sendmessage(LB_ADDSTRING, 0, address(#c[0]), formatiw(list));

WritePrivateProfileString (date, format(#Time[0]), Text, temp_fold+"K2019Bot_Log.ini");

delete c;
}

(Добавление)

Цитата:

Как вернуть прежний шрифт?
Object_Font1 = CreateFont(-13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 0, "Times New Roman" );//создаем
SendMessage(Object_Combobox1, WM_SETFONT, Object_Font1, 1);//посылаем

CODE:

SendMessage(Object_Combobox1, WM_SETFONT, 0, 1); // установит шрифт по умолчанию

42. 007wan - 19 Мая, 2019 - 01:57:14 - перейти к сообщению

Zireael , А что делать, если вписалось в лог скажем в одно и тоже время разный текст и отобразил его в логе, но в файл только лишь заменился на последний.
Пример:
В лог пишет:

Цитата:

[19.05.2019]
[09:46:42] - Бот запущен.
[09:46:42] - Бот остановлен.

В файл:

Цитата:

[19.05.2019]
//09:46:42=Бот запущен. Будет отсутствовать, т.к текст был заменен для этого ключа
09:46:42=Бот остановлен.

Как решить? Мне на ум приходит только то, что можно добавить еще одно время- миллисекунды, но всеравно может и произойти таккая еж ошибка, если за одно тоже время вввести текст, то он в файл заменит ключ
(Добавление)
Спасибо
(Добавление)
Я это пишу, если не найдется другого решения...

43. Zireael - 19 Мая, 2019 - 02:26:17 - перейти к сообщению

Цитата:

можно добавить еще одно время- миллисекунды, но всеравно может и произойти таккая еж ошибка

Это не ошибка, в ini не может быть одинаковых ключей, поэтому значения перезаписываются.
С миллисекундами вполне реально. Но если не устроит, то записывать всё в txt.

44. 007wan - 19 Мая, 2019 - 02:28:45 - перейти к сообщению

код (Отобразить)

CODE:

#define LBS_NOSEL 16384
#define WS_BORDER 8388608
#define WS_HSCROLL 1048576
#define WS_VSCROLL 2097152
#define WS_CHILD 1073741824
#define WS_VISIBLE 268435456
#define LBS_DISABLENOSCROLL 4096
#define LB_SETHORIZONTALEXTENT 404
#define LB_ADDSTRING 384
#define LB_GETCOUNT 395
#define LB_GETTEXT 393
#define LB_DELETESTRING 386

external(INT, "CreateWindow", "CreateWindowExA", "User32.dll" );
external(INT, "GetTextExtentPoint32", "GetTextExtentPoint32A", "Gdi32.dll" );
external(INT, "GetDC", "GetDC", "User32.dll" );
external(INT, "GetPrivateProfileString", "GetPrivateProfileStringA", "kernel32.dll");
external(INT, "WritePrivateProfileString", "WritePrivateProfileStringA", "kernel32.dll");
external(INT, "Strftime", "Strftime", pathfolder()+"Time.dll" );
external(INT, "SendMessage", "SendMessageA", "User32.dll" );

string date = "19.05.2019";
string path = "C:\Users\Home\AppData\Local\Temp\K2019Bot_Log.ini";
int Year, Month, DayOfWeek, Day, Hour, Minute, Second, Milliseconds;
int list, b1, hdc, max_length = 0;
char Time[100];
char Date[100];
char Text_Listbox1[255];
int a = 0;
string temp_fold = tempfolder();
string path_fold = pathfolder();

createdialog(0);
showdialog(0, "Диалог",100, 100, 300, 300, 1, 1);

loop()
{
sleep(10);
}

function getmessage(0, WM_COMMAND)
{
if (message.lparam==b1)add_list("Бот запущен.", 1);
}
//s="["+format(#Time[0])+"] - "+s;
function getmessage(0, WM_CREATE)
{
list = CreateWindow(0, "LISTBOX", "", LBS_NOSEL | WS_BORDER | WS_HSCROLL | WS_VSCROLL | LBS_DISABLENOSCROLL | WS_CHILD | WS_VISIBLE, 10, 10, 200, 200, gethwnd(0), 0, 0, 0);
b1=CreateWindow(0, "BUTTON", "Запустить", WS_CHILD | WS_VISIBLE, 10, 220, 120, 30, gethwnd(0), 0, 0, 0);
hdc=GetDC(list);
ini_read();
}

function add_list(string s, int save)
{
getlocaltime(Year, Month, DayOfWeek, Day, Hour, Minute, Second, Milliseconds);
Strftime(address(#Time[0]), sizearray(Time), "%X", Hour, Minute, Second, Day, Month, Year);
Strftime(address(#Date[0]), sizearray(Date), "%d.%m.%Y", Hour, Minute, Second, Day, Month, Year);

string Text = s;

int SIZE[2];
new char c[size(s)+1];
strcpy(#c[0], s);
GetTextExtentPoint32(hdc, address(#c[0]), sizearray(c), address(#SIZE[0]));
if(max_length<SIZE[0])
{
max_length=SIZE[0];
sendmessage(LB_SETHORIZONTALEXTENT, SIZE[0], 0, formatiw(list));
}
sendmessage(LB_ADDSTRING, 0, address(#c[0]), formatiw(list));

if (save == 1)
{
WritePrivateProfileString (date, format(#Time[0]), Text, temp_fold+"K2019Bot_Log.ini");
}
delete c;
}

function ini_read()
{
int length;
char key_ini[99999], value[999];
if(fopen(path, "rb"))
{
fclose();
//add_list("["+date+"]");
int x = GetPrivateProfileString (date, 0, 0, address (#key_ini[0]), sizearray(key_ini), path);

if(x)
{
add_list("["+date+"]", 0);
length=0;
for(int i=0; length<=x; i++)
{
if(GetPrivateProfileString (date, format(#key_ini[length]), 0, address (#value[0]), sizearray(value), path)) // получить значение ключа
{
add_list(+"["+format(#key_ini[length])+"] - "+format(#value[0]), 0);
}
length=length+size(#key_ini[length])+1;
}
}
else
{
messagebox("секция даты не найдена");
WritePrivateProfileString(date, "", "", path);
ini_read();
}
}
else
{
messagebox("файл не найден");

messagebox("секция даты не найдена");
WritePrivateProfileString(date, "", "", path);

ini_read();

}
}

Почему в список пишется просто текст, а в файл то, что нужно?
В список должно быть писаться "[время] - Текст", а пишет только текст. добавил переменную save, что бы при загрузке из файла текста, он вызывает add_list, а там в это функции он сохраняет, поэтому я добавил, что бы при загрузке из файла не сохранял его в файл.
(Добавление)

Zireael пишет:

Это не ошибка, в ini не может быть одинаковых ключей, поэтому значения перезаписываются.
С миллисекундами вполне реально. Но если не устроит, то записывать всё в txt.

Устроит, если интервал между выполнениями функциями add_list и add_list будет хотя бы 1-2 миллисекунды, то хорошо(разные ключи будут), а если они выполнятся в одно время(за одну и ту же миллисекунду, то не хорошо). Не ставя при этом sleep
(Добавление)
Вообще может как-то переделать этот скрипт? А то принцип действия хороший, но корявый, т.к сохранение в файл+загрузка из файла и запись в лог всё слеплено в кучу. Если я бы не поставил переменную save, то когда он грузил бы из файла текст в список, то вызывал бы add-List, а там в свою очередь - сохранение в файл и был бы круговорот.
(Добавление)
НАдо как-то просто разделить:
Запись в лог из файла | запись в лог при нажатии кнопки или вызове функции add_list | сохранение в файл

45. Zireael - 19 Мая, 2019 - 02:57:36 - перейти к сообщению

Цитата:

Почему в список пишется просто текст

В функцию передаётся строка s, потом она копируется в массив strcpy(#c[0], s); и из массива добавляется в список. Что скопировано в массив, то и пишет.

Цитата:

может как-то переделать этот скрипт?
НАдо как-то просто разделить:
Запись в лог из файла | запись в лог при нажатии кнопки или вызове функции add_list | сохранение в файл

Разные действия - разные кнопки.

46. 007wan - 19 Мая, 2019 - 03:31:55 - перейти к сообщению

Zireael , Вообще получилось сделать как я ожидал , но все-таки проблемы с ключами. Как добавить микросекунды? и еще отфильтровать текст таким образом: в файл где ключ пишет часты, минуты,секунды, микросекунды, а в список будет писать только часы, минуты.
(Добавление)

Код (Отобразить)

CODE:

#define LBS_NOSEL 16384
#define WS_BORDER 8388608
#define WS_HSCROLL 1048576
#define WS_VSCROLL 2097152
#define WS_CHILD 1073741824
#define WS_VISIBLE 268435456
#define LBS_DISABLENOSCROLL 4096
#define LB_SETHORIZONTALEXTENT 404
#define LB_ADDSTRING 384
#define LB_GETCOUNT 395
#define LB_GETTEXT 393
#define LB_DELETESTRING 386

external(INT, "CreateWindow", "CreateWindowExA", "User32.dll" );
external(INT, "GetTextExtentPoint32", "GetTextExtentPoint32A", "Gdi32.dll" );
external(INT, "GetDC", "GetDC", "User32.dll" );
external(INT, "GetPrivateProfileString", "GetPrivateProfileStringA", "kernel32.dll");
external(INT, "WritePrivateProfileString", "WritePrivateProfileStringA", "kernel32.dll");
external(INT, "Strftime", "Strftime", pathfolder()+"Time.dll" );
external(INT, "SendMessage", "SendMessageA", "User32.dll" );

string date = "19.05.2019";
string path = "C:\Users\Home\AppData\Local\Temp\K2019Bot_Log.ini";
int Year, Month, DayOfWeek, Day, Hour, Minute, Second, Milliseconds;
int list, b1, hdc, max_length = 0;
char Time[100];
char Date[100];
char Text_Listbox1[255];
int a = 0;
string temp_fold = tempfolder();
string path_fold = pathfolder();
//-----------------------------------------------------------------------------------------------------------------------------------------------------
createdialog(0);
showdialog(0, "Диалог",100, 100, 300, 300, 1, 1);
//-----------------------------------------------------------------------------------------------------------------------------------------------------
loop()
{
sleep(10);
}
//-----------------------------------------------------------------------------------------------------------------------------------------------------
function getmessage(0, WM_COMMAND)
{
if (message.lparam == b1)
{
add_list("Бот запущен.", 1, 1);
}
}
//-----------------------------------------------------------------------------------------------------------------------------------------------------
function getmessage(0, WM_CREATE)
{
list = CreateWindow(0, "LISTBOX", "", LBS_NOSEL | WS_BORDER | WS_HSCROLL | WS_VSCROLL | LBS_DISABLENOSCROLL | WS_CHILD | WS_VISIBLE, 10, 10, 200, 200, gethwnd(0), 0, 0, 0);
b1=CreateWindow(0, "BUTTON", "Запустить", WS_CHILD | WS_VISIBLE, 10, 220, 120, 30, gethwnd(0), 0, 0, 0);
hdc=GetDC(list);
ini_read();
}
//-----------------------------------------------------------------------------------------------------------------------------------------------------
function add_list(string s, int save, int choose)
{
getlocaltime(Year, Month, DayOfWeek, Day, Hour, Minute, Second, Milliseconds);
Strftime(address(#Time[0]), sizearray(Time), "%X", Hour, Minute, Second, Day, Month, Year);
Strftime(address(#Date[0]), sizearray(Date), "%d.%m.%Y", Hour, Minute, Second, Day, Month, Year);

string Text = s;

if (choose == 1)
{
s="["+format(#Time[0])+"] - "+s;
}

int SIZE[2];
new char c[size(s)+1];
strcpy(#c[0], s);
GetTextExtentPoint32(hdc, address(#c[0]), sizearray(c), address(#SIZE[0]));
if(max_length<SIZE[0])
{
max_length=SIZE[0];
sendmessage(LB_SETHORIZONTALEXTENT, SIZE[0], 0, formatiw(list));
}
sendmessage(LB_ADDSTRING, 0, address(#c[0]), formatiw(list));

if (save == 1)//если нужно сохранить в файл.
{
WritePrivateProfileString (date, format(#Time[0]), Text, temp_fold+"K2019Bot_Log.ini");
}
delete c;
}
//-----------------------------------------------------------------------------------------------------------------------------------------------------
function ini_read()
{
int length;
char key_ini[99999], value[999];
if(fopen(path, "rb"))
{
fclose();
int x = GetPrivateProfileString (date, 0, 0, address (#key_ini[0]), sizearray(key_ini), path);

if(x)
{
add_list("["+date+"]", 0, 0);
length=0;
for(int i=0; length<=x; i++)
{
if(GetPrivateProfileString (date, format(#key_ini[length]), 0, address (#value[0]), sizearray(value), path))
{
add_list(+"["+format(#key_ini[length])+"] - "+format(#value[0]), 0, 0);
}
length=length+size(#key_ini[length])+1;
}
}
else
{
messagebox("секция даты не найдена");
WritePrivateProfileString(date, "", "", path);
ini_read();
}
}
else
{
//если файл не найден.
}
}
//-----------------------------------------------------------------------------------------------------------------------------------------------------

(Добавление)
Добавил переменную choose, она нужна для того, что бы получать флаг о том, что: нужно ли изменять текст или нет? это дает возможность изменить текст, вызыванный функцией add_list, но не во всех случаях, а только в тех случаях, когда она вызывается надобно, а не тогда, когда в список загружается текст из файла. Так же и переменная save. нужно. что бы сохранять в файл текст. Ведь когда мы грузим из файла текст в список, нужно ему запрещать его сохранять, т.к он вызывает add_list при ini_read

47. Zireael - 19 Мая, 2019 - 03:49:11 - перейти к сообщению

Цитата:

Как добавить микросекунды?

getlocaltime переменная Milliseconds.

Цитата:

и еще отфильтровать текст таким образом: в файл где ключ пишет часты, минуты,секунды, микросекунды, а в список будет писать только часы, минуты.

CODE:

string s="21:31:57:562"; // строка
regexreplace(1, #s, s, ":\d+", "", RIGHTTOLEFT); // удалить из конца строки : и цифры
messagebox(s);

48. 007wan - 19 Мая, 2019 - 03:52:10 - перейти к сообщению

Zireael , Нет. Я имел ввиду "микросекунды", т.е еще меньше, чем Мили
(Добавление)
А, не не надо, чет я далеко зашел)
(Добавление)

Zireael пишет:

string s="21:31:57:562"; // строка
regexreplace(1, #s, s, ":\d+", "", RIGHTTOLEFT); // удалить из конца строки : и цифры
messagebox(s);

Не понимаю куда этот кусок вставить вообще запутался))
(Добавление)
В чем ошибка:

CODE:

if(GetPrivateProfileString (date, format(#key_ini[length]), 0, address (#value[0]), sizearray(value), path))
{
regexreplace(1, #key_ini[length], key_ini[length], ":\d+", "", RIGHTTOLEFT);
messagebox(format(#key_ini[length]));

add_list(+"["+format(#key_ini[length])+"] - "+format(#value[0]), 0, 0);
}

?

49. Zireael - 19 Мая, 2019 - 04:33:30 - перейти к сообщению

Цитата:

В чем ошибка:

CODE:

string s=format(#key_ini[length]);
regexreplace(1, #s, s, ":\d+", "", RIGHTTOLEFT);
messagebox(s);

50. 007wan - 19 Мая, 2019 - 04:39:25 - перейти к сообщению

Всё. финальная версия лога сделана.

Код (Отобразить)

CODE:

#define LBS_NOSEL 16384
#define WS_BORDER 8388608
#define WS_HSCROLL 1048576
#define WS_VSCROLL 2097152
#define WS_CHILD 1073741824
#define WS_VISIBLE 268435456
#define LBS_DISABLENOSCROLL 4096
#define LB_SETHORIZONTALEXTENT 404
#define LB_ADDSTRING 384
#define LB_GETCOUNT 395
#define LB_GETTEXT 393
#define LB_DELETESTRING 386

external(INT, "CreateWindow", "CreateWindowExA", "User32.dll" );
external(INT, "GetTextExtentPoint32", "GetTextExtentPoint32A", "Gdi32.dll" );
external(INT, "GetDC", "GetDC", "User32.dll" );
external(INT, "GetPrivateProfileString", "GetPrivateProfileStringA", "kernel32.dll");
external(INT, "WritePrivateProfileString", "WritePrivateProfileStringA", "kernel32.dll");
external(INT, "Strftime", "Strftime", pathfolder()+"Time.dll" );
external(INT, "SendMessage", "SendMessageA", "User32.dll" );

string date = "19.05.2019";
string path = "C:\Users\Home\AppData\Local\Temp\K2019Bot_Log.ini";
int Year, Month, DayOfWeek, Day, Hour, Minute, Second, Milliseconds;
int list, b1, hdc, max_length = 0;
char Time[100];
char Date[100];
char Text_Listbox1[255];
int a = 0;
string temp_fold = tempfolder();
string path_fold = pathfolder();
//-----------------------------------------------------------------------------------------------------------------------------------------------------
createdialog(0);
showdialog(0, "Диалог",100, 100, 300, 300, 1, 1);
//-----------------------------------------------------------------------------------------------------------------------------------------------------
loop()
{
sleep(10);
}
//-----------------------------------------------------------------------------------------------------------------------------------------------------
function getmessage(0, WM_COMMAND)
{
if (message.lparam == b1)
{
add_list("Бот запущен.", 1, 1);
}
}
//-----------------------------------------------------------------------------------------------------------------------------------------------------
function getmessage(0, WM_CREATE)
{
list = CreateWindow(0, "LISTBOX", "", LBS_NOSEL | WS_BORDER | WS_HSCROLL | WS_VSCROLL | LBS_DISABLENOSCROLL | WS_CHILD | WS_VISIBLE, 10, 10, 200, 200, gethwnd(0), 0, 0, 0);
b1=CreateWindow(0, "BUTTON", "Запустить", WS_CHILD | WS_VISIBLE, 10, 220, 120, 30, gethwnd(0), 0, 0, 0);
hdc=GetDC(list);
ini_read();
}
//-----------------------------------------------------------------------------------------------------------------------------------------------------
function add_list(string s, int save, int choose)
{
getlocaltime(Year, Month, DayOfWeek, Day, Hour, Minute, Second, Milliseconds);
Strftime(address(#Time[0]), sizearray(Time), "%X", Hour, Minute, Second, Day, Month, Year);
Strftime(address(#Date[0]), sizearray(Date), "%d.%m.%Y", Hour, Minute, Second, Day, Month, Year);

string Text = s;

if (choose == 1)
{
s="["+format(#Time[0])+"] - "+s;
}

int SIZE[2];
new char c[size(s)+1];
strcpy(#c[0], s);
GetTextExtentPoint32(hdc, address(#c[0]), sizearray(c), address(#SIZE[0]));
if(max_length<SIZE[0])
{
max_length=SIZE[0];
sendmessage(LB_SETHORIZONTALEXTENT, SIZE[0], 0, formatiw(list));
}
sendmessage(LB_ADDSTRING, 0, address(#c[0]), formatiw(list));

if (save == 1)//если нужно сохранить в файл.
{
WritePrivateProfileString (date, format(#Time[0])+":"+format(Milliseconds), Text, temp_fold+"K2019Bot_Log.ini");
}
delete c;
}
//-----------------------------------------------------------------------------------------------------------------------------------------------------
function ini_read()
{
int length;
char key_ini[99999], value[999];
if(fopen(path, "rb"))
{
fclose();
int x = GetPrivateProfileString (date, 0, 0, address (#key_ini[0]), sizearray(key_ini), path);

if(x)
{
add_list("["+date+"]", 0, 0);
length=0;
for(int i=0; length<=x; i++)
{
if(GetPrivateProfileString (date, format(#key_ini[length]), 0, address (#value[0]), sizearray(value), path))
{
string s=format(#key_ini[length]);
regexreplace(1, #s, s, ":\d+", "", RIGHTTOLEFT);
add_list(+"["+s+"] - "+format(#value[0]), 0, 0);
}
length=length+size(#key_ini[length])+1;
}
}
else
{
messagebox("секция даты не найдена");
WritePrivateProfileString(date, "", "", path);
ini_read();
}
}
else
{
//если файл не найден.
}
}
//-----------------------------------------------------------------------------------------------------------------------------------------------------

(Добавление)
Zireael , Спасибо.
(Добавление)
Теперь в файл грузит миллисекунды, что бы не перезаписывались ключи. Класс))
(Добавление)
Zireael , Спасибо еще раз.