Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   Болталка (https://forum.antichat.xyz/forumdisplay.php?f=46)
-   -   Как разделить список аккаунтов на емайл и на пароль? (https://forum.antichat.xyz/showthread.php?t=201063)

TEOr 02.05.2010 12:51
Как разделить список аккаунтов на емайл и на пароль?
 
Здравствуйте!
Есть текстовій файл - список акков на маил ру. Вида емайл :пасс
Как разделить, что бы в одном текстовике майлы, а во втором - пассы

Дмитрий 02.05.2010 12:54
Открыть этот файл в экселе выбрав разделитель : и скопировать столбцы в отдельные файлы

TEOr 02.05.2010 12:55
Кажется, какая то программа была. Вот только не помню, какая программа

mal4Ik 02.05.2010 12:57
на PureBasic
Код:
OpenFile(0,"akks.txt")
OpenFile(1,"logins.txt")
OpenFile(2,"pass.txt")
Repeat
str.s = ReadString(0)
WriteStringN(1, StringField(str, 1, ":"))
WriteStringN(2, StringField(str, 2, ":"))
Until Eof(0)
CloseFile(2)
CloseFile(1)
CloseFile(0)

TEOr 02.05.2010 13:09
Цитата:
Сообщение от mal4Ik
на PureBasic
Код:
OpenFile(0,"akks.txt")
OpenFile(1,"logins.txt")
OpenFile(2,"pass.txt")
Repeat
WriteStringN(1, StringField(ReadString(0), 1, ":"))
WriteStringN(2, StringField(ReadString(0), 2, ":"))
Until Eof(0)
CloseFile(2)
CloseFile(1)
CloseFile(0)
Кинь, пожалуйста, полный код, у меня ошибка в синтаксе почему то получается

mal4Ik 02.05.2010 13:11
Цитата:
Сообщение от TEOr
Кинь, пожалуйста, полный код, у меня ошибка в синтаксе почему то получается
ток что скопировал с форума и запустил, все норм :confused:

TEOr 02.05.2010 13:13
Спс, все ок=)

mal4Ik 02.05.2010 13:13
Код:
OpenFile(0,"akks.txt")
OpenFile(1,"logins.txt")
OpenFile(2,"pass.txt")
Repeat
str.s = ReadString(0)
WriteStringN(1, StringField(str, 1, ":"))
WriteStringN(2, StringField(str, 2, ":"))
Until Eof(0)
CloseFile(2)
CloseFile(1)
CloseFile(0)
вот так точно пашет :)


Время: 13:06