надписи Количество заглавных, кол-во прописных... Лучше сделать блок Состав пароля, а надписи убрать слово Количство
Добавлено (15 Декабрь 2011, 10:25) --------------------------------------------- вводить имя каждого охламона, и тыкать кнопку? увольте. Нужно чтоб прога сама хавала текстовый список студентов и выдавала сгенерированные логины пароли
вводить имя каждого охламона, и тыкать кнопку? увольте. Нужно чтоб прога сама хавала текстовый список студентов и выдавала сгенерированные логины пароли
Да, я тоже уже об этом подумал... Но с другой стороны - не большая уж и разница. Впрочем, надо попробовать будет. Если время появится... Шум ничего не доказывает. Курица, снесши яйцо, часто клохчет так, словно снесла небольшую планету... Марк Твен
ну если 10-20 человек то разницы нет, а если 50-100?
да их и больше может быть. Я собственно почему этой идеей то и озаботился - каждому сочинять логин-пароль, потом записывать их в столбик, потом разрезать и раздавать... Ну, с текстом конечно еще проще... Не... надо об этом подумать...
бг... следующий этап - голосовое наговаривание фамилий...
Добавлено (15 Декабрь 2011, 12:48) --------------------------------------------- хм. а это в общем то не так сложно должно ж быть...
Шум ничего не доказывает. Курица, снесши яйцо, часто клохчет так, словно снесла небольшую планету... Марк Твен
Я ж теперь папой стал, дома вообще не до компьютера, и на работе есть чем заниматься
Добавлено (16 Декабрь 2011, 09:19) --------------------------------------------- Итак... я снова с мозголоманием... В общем - решил таки сделать загрузку списка. Загрузка работает. Что нужно генерит, список выводит. НО! Суть какова на данный момент. Сперва нужно ввести название группы, которое будет как бы заголовком списка. потом жмем кнопку открыть файл - открывается диалоговое окно, оттудова выбираем файл, он все дело генерит ,сохраняет ,все прекрасно, но! Он, пакость, сохраняет его с тем же названием, какой файл текстовый мы открывали (единственно - с другим расширением, которое я ему задал - html) а нужно ,чтобы он сохранял под тем именем файла, которое мы ввели как название группы. И вот тут запнулся напрочь.
OpenFile("Text Files (*.txt)|*.txt|All Files|*.*|","*.txt") **-------------Создание заголовка--- File$ - это введенное в окне название группы------------- file$=OpenFile$ file$=file$+'.html' string$='<p><font face="arial" size="3">'+File$+'</p>'+'<table border="1" width="100%"><tbody><tr><td style="width: 33%"> Фамилия, Имя</td><td style="width: 33%"> Логин</td><td style="width: 33%"> Пароль</td></tr>' RetVal=StrToFile(file$,string$,TRUE,FALSE) **---------------------- If (OpenFile$<>'') Then Ret=NOL(OpenFile$) End For qw=0 To Ret-1 Pause("500") qw=qw+1 fi$=StrFromFile(OpenFile$,qw,1) **Message("fi$","") **--------------------------------------начало скрипта rus$ = 'а|б|в|г|д|е|ё|ж|з|и|й|к|л|м|н|о|п|р|с|т|у|ф|х|ц|ч|ш|щ|ъ|ы|ь|э|ю|я|А|Б|В|Г|Д|Е|Ё|Ж|З|И|Й|К|Л|М|Н|О|П|Р|С|Т|У|Ф|Х|Ц|Ч|Ш|Щ|Ъ|Ы|Ь|Э|Ю|Я| |' eng$ = 'a|b|v|g|d|e|yo|zh|z|i|y|k|l|m|n|o|p|r|s|t|u|f|h|c|ch|sh|sch|*|y|*|e|yu|ya|A|B|V|G|D|E|Yo|Zh|Z|I|Y|K|L|M|N|O|P|R|S|T|U|F|H|C|Ch|Sh|Sch|*|Y|* |E|Yu|Ya||' s_trans$=fi$ For i_trans = 1 To 67 r1$ = GetArrayItem(rus$,|,i_trans) r2$ = GetArrayItem(eng$,|,i_trans) s_trans$ = StrChange(s_trans$, r1$, r2$) Next i_trans **---------убираем ненужные символы * - спасибо YURIY!---- s$ = '*' empty$ = '' s_trans$ = StrChange(s_trans$, s$, empty$) **-------------Вспомнил что люди могут и запятую ввести... думалка вылетела, скопировал вышеписаное----- s$ = ',' empty$ = '' s_trans$ = StrChange(s_trans$, s$, empty$) LoadText("Result","s_trans$") **------------------------------------------------------- s$='ABCDEFGHIJKLMNOPQRSTUVWXYZ' s1$='abcdefghijklmnopqrstuvwxyz' s2$='1234567890' s3$='+-/*_@#%!?' **Очищаем переменную и поле с паролем pass$='' pass1$='' pass2$='' pass3$='' LoadText("p","pass$") If (z_txt<>0) Then **Пускаем цикл с 1 по число, что ввели в **"Длине пароля" For i=1 To z_txt **Случайное число из длины **строки "Символов, исп..." b=RND(LEN(s$)-1)+1 **Копируем символ из "Символов, исп..." **с порядковым номером, сгенерированным выше pass$=pass$+StrCopy(s$,b,1) Next i Else pass$='' End If (p_txt<>0) Then **Пускаем цикл 2 с 1 по число, что ввели в **"Длине пароля" For i1=1 To p_txt **Случайное число из длины **строки "Символов, исп..." b1=RND(LEN(s1$)-1)+1 **Копируем символ из "Символов, исп..." **с порядковым номером, сгенерированным выше pass1$=pass1$+StrCopy(s1$,b1,1) Next i1 Else pass1$='' End If (c_txt<>0) Then **Пускаем цикл 3 с 1 по число, что ввели в **"Длине пароля" For i2=1 To c_txt **Случайное число из длины **строки "Символов, исп..." b2=RND(LEN(s2$)-1)+1 **Копируем символ из "Символов, исп..." **с порядковым номером, сгенерированным выше pass2$=pass2$+StrCopy(s2$,b2,1) Next i2 Else pass2$='' End If (s_txt<>0) Then **Пускаем цикл 4 с 1 по число, что ввели в **"Длине пароля" For i3=1 To s_txt **Случайное число из длины **строки "Символов, исп..." b3=RND(LEN(s3$)-1)+1 **Копируем символ из "Символов, исп..." **с порядковым номером, сгенерированным выше pass3$=pass3$+StrCopy(s3$,b3,1) Next i3 Else pass3$='' End **-----------формирование пароля pass_$=pass$+pass1$+pass2$+pass3$ **-----перемешиваем символы- снова YURIY спасибо!!!------ len = LEN(pass_$) For i=1 To len pos = RND(len - 1) + 1 current$ = StrGet(pass_$, i) replace$ = StrGet(pass_$, pos) pass_$ = StrSet(pass_$, i, replace$) pass_$ = StrSet(pass_$, pos, current$) Next i **----------------формирование строки Ф.И. логин пароль stroka$='<tr><td>'+fi$+'</td><td>'+s_trans$+'</td><td>'+pass_$+'</td></tr>' **------сохранение в файл---- RetVal2=StrToFile(file$,stroka$,TRUE,TRUE) **-загрузка в окно--- Browser("Browser","file$") **---------------------------------------конец скрипта Next qw Message("Генерация завершена","")
Казалось бы - ну, сделать в первых строках не **-------------Создание заголовка--- File$ - это введенное в окне название группы------------- file$=OpenFile$ file$=file$+'.html'
а
**-------------Создание заголовка--- File$ - это введенное в окне название группы------------- file$=File$ file$=file$+'.html'
И это работает! Да, создает файл, да записывает в него все как надо... но в браузере не отображается! Не хочет из скрипта по команде Browser("Browser","file$") в конце цикла выводить! Что за ерунда такая, не могу понять. полдня голову ломаю...
Добавлено (16 Декабрь 2011, 09:25) --------------------------------------------- а файл сам по себе создается, отдельно в Мозиле там, Эксплорере прекрасно открывается, все пучком...
Добавлено (16 Декабрь 2011, 10:44) --------------------------------------------- Вот еще фигня какая... решил я сделать ,чтобы списки все таки в простом html сохранялись... Но блин когда я хочу открыть список, то по выполнении вот этого скриптика
ListBoxAddItem("Spisok","RESET") папка$=<SrcDir> SearchForFiles("папка$","html") If (CBK_NumInList<>0) Then ListBoxAddItem("Spisok","<List>") Else Message("Списков паролей не найдено","") Hide("Spisok") End
он шерстит ВЕСЬ диск С! Как его сделать ,чтобы он только папку шерстил ,в которой программа то лежит?
он шерстит ВЕСЬ диск С! Как его сделать ,чтобы он только папку шерстил ,в которой программа то лежит?
а блин... все, этот вопрос отпал...
Добавлено (19 Декабрь 2011, 07:12) --------------------------------------------- ан нет... не отпало... не то нашел...
Добавлено (19 Декабрь 2011, 07:16) --------------------------------------------- блин... в общем этот глюк, с шерстением всего диска ,проявляется если программа запускается с рабочего стола. Если класть в какую-нить папку, то тогда ищет в папке.
Шум ничего не доказывает. Курица, снесши яйцо, часто клохчет так, словно снесла небольшую планету... Марк Твен
Сообщение отредактировал Игорь - Пятница, 16 Декабря 2011, 10:31
блин... в общем этот глюк, с шерстением всего диска ,проявляется если программа запускается с рабочего стола. Если класть в какую-нить папку, то тогда ищет в папке.
У меня с рабочего стола ищет на рабочем столе. Если с другой папки - ищет в ней. Всё в порядке. Использую код, который указан выше.
в общем небольшой отчет. Как и посоветовал DEMBEL, сделал все таки загрузку списка. Теперь по нажатию кнопки открывается окно выбора текстового файла со списком пользователей, типа
и формируется список в html формате с таблицей фамилия-имя, логин ,пароль - отображается в окне, чтобы потом распечатать и раздать пользователем, НО!!! плюс к этому формируется файл в формате cvs, который содержит эти данные в своем формате, которые потом просто импортируется в Moodle! То есть вручную пользователей туда вбивать не нужно!
Осталось подредактировать интерфейс ,потому как загрузку из фала то я сделал ,а создание нового списка - не сделал... правда, теперь не знаю ,нужно ли это вообще.
Ну и вышеописанная проблема с созданием файла с указанным именем. Пока они создаются с тем именем, какое имеет текстовый файл, просто меняется расширение... В принципе можно сделать типа "так задумано"... Но раз уж начал...
Добавлено (19 Декабрь 2011, 18:30) --------------------------------------------- а, электронная почта нужна тоже для автоматической регистрации.
В общем - уже опробовал, ввел список преподавателей.... Красота!!! На все про все - а именно сканирование фио с бумажного списка (у нас программа контингента не хочет выбирать отдельно - шурует всех... во всяком случае, отдел кадров так дал), сохранение в текстовый файл, добавление емайла "от балды" (если у кого есть-потом нетрудно исправить), открывание в программе и генерация логинов-паролей, потом импорт в Мудл - пять минут! Раньше на регистрацию одного пользователя уходило столько, и это не считая придумывания пароля и поиска английских буков на клавиатуре - я все таки в основном по русски печатаю...