Как разделить список аккаунтов на емайл и на пароль?

[TEOr]

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

[Дмитрий]

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

[TEOr]

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

[mal4Ik]

на 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]

на 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]

Кинь, пожалуйста, полный код, у меня ошибка в синтаксе почему то получается
ток что скопировал с форума и запустил, все норм :confused:

[TEOr]

Спс, все ок=)

[mal4Ik]

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)
вот так точно пашет :)