 |
Как разделить список аккаунтов на емайл и на пароль? |
02.05.2010, 12:51
|
|
Новичок
Регистрация: 02.04.2010
Сообщений: 8
С нами:
8478558
Репутация:
6
|
|
Как разделить список аккаунтов на емайл и на пароль?
Здравствуйте!
Есть текстовій файл - список акков на маил ру. Вида емайл :пасс
Как разделить, что бы в одном текстовике майлы, а во втором - пассы
|
|
|
02.05.2010, 12:54
|
|
Banned
Регистрация: 30.04.2010
Сообщений: 4
С нами:
8438453
Репутация:
5
|
|
Открыть этот файл в экселе выбрав разделитель : и скопировать столбцы в отдельные файлы
|
|
|
|
02.05.2010, 12:55
|
|
Новичок
Регистрация: 02.04.2010
Сообщений: 8
С нами:
8478558
Репутация:
6
|
|
Кажется, какая то программа была. Вот только не помню, какая программа
|
|
|
|
02.05.2010, 12:57
|
|
Banned
Регистрация: 12.02.2007
Сообщений: 19
С нами:
10128291
Репутация:
11
|
|
на 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)
Последний раз редактировалось mal4Ik; 02.05.2010 в 13:14..
|
|
|
|
02.05.2010, 13:09
|
|
Новичок
Регистрация: 02.04.2010
Сообщений: 8
С нами:
8478558
Репутация:
6
|
|
Сообщение от 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)
Кинь, пожалуйста, полный код, у меня ошибка в синтаксе почему то получается
|
|
|
|
02.05.2010, 13:11
|
|
Banned
Регистрация: 12.02.2007
Сообщений: 19
С нами:
10128291
Репутация:
11
|
|
Сообщение от TEOr
Кинь, пожалуйста, полный код, у меня ошибка в синтаксе почему то получается
ток что скопировал с форума и запустил, все норм 
|
|
|
|
02.05.2010, 13:13
|
|
Новичок
Регистрация: 02.04.2010
Сообщений: 8
С нами:
8478558
Репутация:
6
|
|
Спс, все ок=)
|
|
|
|
02.05.2010, 13:13
|
|
Banned
Регистрация: 12.02.2007
Сообщений: 19
С нами:
10128291
Репутация:
11
|
|
Код:
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)
вот так точно пашет 
Последний раз редактировалось mal4Ik; 02.05.2010 в 13:17..
|
|
|
|
|
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
