на команде fwrite (rand(0, 9)); все слетает((
win W_Kib;
int eCol_Kib, eX_Kib, eY_Kib;
getdisplay(eCol_Kib, eX_Kib, eY_Kib);
Key(0, W_Kib, 3000, 16, "Нажать", 0);
KIB_1: Key(0, W_Kib, 0, 121, "Клик", 0);
Key(0, W_Kib, 0, 16, "Отпустить", 0);
Key(0, W_Kib, 0, 38, "Клик", 0);
Key(0, W_Kib, 0, 38, "Клик", 0);
Key(0, W_Kib, 0, 13, "Клик", 0);
Key(0, W_Kib, 0, 37, "Клик", 0);
goto KIB_11;
KIB_10: Key(0, W_Kib, 0, 38, "Клик", 0);
Key(0, W_Kib, 0, 16, "Нажать", 0);
goto KIB_1;
KIB_11:;
fwrite (rand(0, 9));
Key(0, W_Kib, 0, 13, "Клик", 0);
goto KIB_10;
function Key(int ew, win w, int p1, int c, string k, int p2)
{
pause(p1);
if (ew==0)
{
if (k=="Клик"){key(c); goto hy;}
if (k=="Нажать"){keydown(c); goto hy;}
if (k=="Отпустить"){keyup(c); goto hy;}
}
if (ew==1)
{
if (k=="Клик"){sendkey(c, w); goto hy;}
if (k=="Нажать"){sendkeydown(c, w); goto hy;}
if (k=="Отпустить"){sendkeyup(c, w); goto hy;}
}
hy: pause (p2);
}
1. AtoM95 - 24 Июня, 2021 - 10:10:05 - перейти к сообщению
2. Kibor - 24 Июня, 2021 - 10:24:14 - перейти к сообщению
AtoM95 пишет:
fwrite (rand(0, 9));
Куда это должно записываться?
Надо сначала открыть файл для записи.
После записи закрыть.
CODE:
if (fopen ("C:\files.txt", "a")!=0)
{
fwrite (rand(0, 9));
fclose();
}
{
fwrite (rand(0, 9));
fclose();
}
3. AtoM95 - 24 Июня, 2021 - 10:33:27 - перейти к сообщению
Оно должно менять имя файла вот в чем задумка
4. Zireael - 24 Июня, 2021 - 17:39:20 - перейти к сообщению
Цитата:
Оно должно менять имя файла вот в чем задумка
Какого файла? Напишите что хотите сделать.
5. AtoM95 - 29 Июня, 2021 - 08:23:42 - перейти к сообщению
Это для флешки для магнитолы там много песен 1600 и очень много исполнителей и что бы
они сортировались рандомно я хотел добавит впереди каждого имени 4-5 случайных чисел
они сортировались рандомно я хотел добавит впереди каждого имени 4-5 случайных чисел
6. Zireael - 29 Июня, 2021 - 18:32:17 - перейти к сообщению
Цитата:
добавит впереди каждого имени 4-5 случайных чисел
Добавить 5 цифр к имени файла:
CODE:
external(INT, "rename_file", "rename", "msvcrt.dll");
string s[9999];
string random="";
string path = "C:\music"; // путь к папке
int count=dir(path, #s[0], "file"); // получить имена всех файлов в папке
for (int i=0; i<count; i++)
{
random="";
for (int j=0; j<5; j++)random=random+format(rand(0, 9)); // получить рандомное пятизначное число
rename_file (path+"\"+s[i], path+"\"+random+s[i]); // переименовать файл
}
string s[9999];
string random="";
string path = "C:\music"; // путь к папке
int count=dir(path, #s[0], "file"); // получить имена всех файлов в папке
for (int i=0; i<count; i++)
{
random="";
for (int j=0; j<5; j++)random=random+format(rand(0, 9)); // получить рандомное пятизначное число
rename_file (path+"\"+s[i], path+"\"+random+s[i]); // переименовать файл
}
Удалить первые 5 цифр в имени файла (чтобы вернуть прежние имена):
CODE:
external(INT, "rename_file", "rename", "msvcrt.dll");
string s[9999];
string new_name;
string path = "C:\music"; // путь к папке
int count=dir(path, #s[0], "file"); // получить имена всех файлов в папке
for (int i=0; i<count; i++)
{
// если имя файла начинается с 5-ти цифр, то удалить первые 5 символов
if(regexreplace(1, #new_name, s[i], "^\d{5}", ""))rename_file (path+"\"+s[i], path+"\"+new_name);
}
string s[9999];
string new_name;
string path = "C:\music"; // путь к папке
int count=dir(path, #s[0], "file"); // получить имена всех файлов в папке
for (int i=0; i<count; i++)
{
// если имя файла начинается с 5-ти цифр, то удалить первые 5 символов
if(regexreplace(1, #new_name, s[i], "^\d{5}", ""))rename_file (path+"\"+s[i], path+"\"+new_name);
}
7. AtoM95 - 22 Июля, 2021 - 08:55:07 - перейти к сообщению
Спасибо огромное Вы очень помогли)))