База имен, фамилий, отчеств - большая база за несколько минут

Как то нужно было для регистрации на сайте сделать правдоподобные имена и фамилии. Задумался где бы их взять - поковырялся на сайтах в поиске - нашел, но какие то кривые и база совсем не база - а просто строчки, нужно все равно переделывать. Вот и в поисках наткнулся на генератор имен и фамилий и отчеств. Можно нагенерировать столько - сколько вообще не сможешь исплоьзовать. И каких только нет - и старых образцов и мифических и славянских - короче на любой вкус.

Задача - собрать все это дело в файл. То есть на генерировать имена и фамилии в базу. Написал простой кодик за полчаса с поправками и за часок сгенерировал 10000 имен и фамилий. Нужно будет еще добавить и отчество. В скрипте это не нужно было мне, но на будущее пригодится. Выкладываю только под имена и фамилии, так как самому пока не нужно, переделывать не хочу. Так что кому нужна большая база, можно даже на 100000 нарегать - затраты только по времени. Но регнуть например базу на 1000 человек - это дело нескольких минут.

Код для регистрации и создания базы - очень нужная вещь. В папке датасоурс создастся файл с базой.
 Выкладываю скрипт, так как сам их, бывает теряю, чтобы на будущее можно было воспользоваться по необходимости из этого блога delalsam.blogspot.ru Файл как всегда на яве-скрипт. То есть это макрос под управлением яваскрипт - то есть расширение для него должно быть js.

var imya;
var fami;
var strlog;
var name;
name = 'CODE:' + '\n';
name += 'SET !EXTRACT NULL' + '\n';
name += 'TAG POS=1 TYPE=INPUT:TEXT ATTR=NAME:first EXTRACT=TXT' + '\n';
var lastname;
lastname = 'CODE:' + '\n';
lastname += 'SET !EXTRACT NULL' + '\n';
lastname += 'TAG POS=1 TYPE=INPUT:TEXT ATTR=NAME:last EXTRACT=TXT' + '\n';

iimPlayCode("URL GOTO=http://kurufin.ru/html/Name_generator/random_name_rus.html");

for (m=1;m<=10000;m++) {
iimPlayCode("TAG POS=1 TYPE=INPUT:BUTTON FORM=NAME:NoFormName ATTR=NAME:generate");
iimPlay(name); imya = iimGetLastExtract();
iimPlay(lastname); fami = iimGetLastExtract();
strlog = m+";"+imya+";"+fami+";";

var logfile;
logfile = 'CODE:SET !ERRORIGNORE YES' + '\n';
logfile += 'SET !EXTRACT NULL' + '\n';
logfile += 'SET !EXTRACT '+ strlog + '\n';
logfile += 'SAVEAS TYPE=EXTRACT FOLDER=D:\\Documents\\iMacros\\Datasources FILE=name-fami-bazes.txt' + '\n';
iimPlay(logfile);
}

В строчке for (m=1;m<=10000;m++) прописывается с какого начать регать и сколько нужно, то есть до какого, можно скрипт остановить в любой момент, когда скажете "хватит".
 Результат работы - тхт-файл, который будет выглядеть след оразом:

"1;Матвей;Захаров;"
"2;Александр;Симонов;"
"3;Артём;Сафонов;"
"4;Глеб;Алексеев;"
"5;Антон;Мамонтов;"
"6;Семён;Титов;"
"7;Матвей;Шубин;"
"8;Виталий;Панов;"
"9;Иван;Сорокин;"
"10;Семён;Фадеев;"
"11;Анатолий;Тарасов;"
"12;Илья;Анисимов;"
"13;Станислав;Харитонов;"
"14;Святослав;Бобылёв;"
"15;Сергей;Молчанов;"
"16;Илья;Некрасов;"
"17;Лев;Александров;"
"18;Вадим;Жданов;"
"19;Леонид;Ильин;"
"20;Евгений;Данилов;"
"21;Максим;Гордеев;"
"22;Александр;Лапин;"
"23;Григорий;Самсонов;"
"24;Лев;Мамонтов;"
"25;Денис;Ковалёв;"
"26;Николай;Гущин;"
"27;Никита;Стрелков;"
"28;Роман;Зуев;"
"29;Павел;Владимиров;"
"30;Илья;Николаев;"
"31;Георгий;Морозов;"
"32;Владимир;Самсонов;"
"33;Валерий;Тетерин;"
"34;Гавриил;Муравьёв;"
"35;Егор;Белоусов;"
"36;Павел;Логинов;"
"37;Сергей;Вишняков;"
Для подключения этой базы кавычки можно убрать через блокнот через Найти и Заменить за пару мгновений - и получаете чистую базу, которую можно снова подключать, например, к аймакрос.