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

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

 

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

 

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

 

на PureBasic

Code:

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)

 

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

 

ток что скопировал с форума и запустил, все норм

 

Спс, все ок=)

 

Code:

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)

вот так точно пашет