VBNet - Форум - Нужно написать программку

Вопрос: Нужно написать программку Добавлено: 23.05.09 00:07

Автор вопроса: Senya

Добрый день
Помогите написать программку. в VB6
Суть: в текством файле записаны Имя, Отчество, Фамилия, дата рождения (примерно строчек 20)
Программа должна будет открыть этот файл, выбрать тех чей год рождения подходит под определенный срок(желаетелбно что бы его можно было выбирать-допустим с 85 по 89)
и сохраняла эти имена в другой txt файл...
большое спасибо
Ответить

Ответы Всего ответов: 12

Номер ответа: 1 Автор ответа: Ra$cal ICQ: 8068014 Вопросов: 18 Ответов: 817	Web-сайт: www.rascalspb.narod.ru Профиль \| \| #1	Добавлено: 23.05.09 00:10
	лол... поток студентов ширится... Ответить

Номер ответа: 2 Автор ответа: Aston ICQ: 214-179-991 Вопросов: 42 Ответов: 272	Профиль \| \| #2	Добавлено: 23.05.09 00:33
	Да я вообще в шоке, сессия началась и форум забит студентами. Senya Есть построчное считывание в вб6 с текстового файла. Считываешь строку и проверяешь в цикле For даты с 85 по 89, проверяешь с помощью функции InStr, если больше 0 то записываешь в новый файл если нет идёшь дальше. Ответить

Номер ответа: 3 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #3	Добавлено: 23.05.09 00:48
	формат в котором в текстовике все храниться нипиши. Ответить

Номер ответа: 4 Автор ответа: rw12lq Вопросов: 2 Ответов: 80	Профиль \| \| #4	Добавлено: 23.05.09 09:54
	.ini подойдет? есть класс хороший у меня для работы с ини... можно сделать сам пример в пять строчек + этот класс... Быстродейсвие и мозгопарки тебе не нужды - лишь бы сдать, как я понял... будет в самый раз. Если надо мыло оставь скину проект с классом, а код задачи здесь оставлю. Ответить

Номер ответа: 5 Автор ответа: rw12lq Вопросов: 2 Ответов: 80	Профиль \| \| #5	Добавлено: 23.05.09 09:57
	а вообще да.. сессия на форуме Ответить

Номер ответа: 6 Автор ответа: Senya Вопросов: 3 Ответов: 12	Профиль \| \| #6	Добавлено: 23.05.09 10:05
	Формат любой. вот мыло - subaru_rus@bk.ru буду очень признателен. спасибо. Ответить

Номер ответа: 7 Автор ответа: Senya Вопросов: 3 Ответов: 12	Профиль \| \| #7	Добавлено: 23.05.09 10:08
	Храминится все примерно в таком формате: Иванов Иван Иванович 1984 Петров Петр Петрович 1986 Ответить

Номер ответа: 8 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #8	Добавлено: 23.05.09 10:20
	Если данные именно в таком формате Иванов Иван Иванович 1984 т. е. все строчки заканчиваются на год, то этот код как раз тебе подойдет: Function ScanFile(FileName1 as string, filename2 as string) i1 = val(inputbox("Введите минимальный год:")) i2 = val(inputbox ("Введите максимальный год:")) s = "" open filename1 for input as #1 open filename2 for output as #2 do until eof(1) line input #1, s s = trim(s) if val(right(s, 4)) >= i1 and val(right(s,4)) <= i2 then print #2, s loop close #1 Close #2 End Function Тупо вызываешь эту функцию Call ScanFile ("Путь к файлу1", "Путь к файлу2") и все. Файл1 - это исходный файл, а файл 2 - куда скидывать подходящие данные Ответить

Номер ответа: 9 Автор ответа: rw12lq Вопросов: 2 Ответов: 80	Профиль \| \| #9	Добавлено: 23.05.09 11:18
	Unit - закрыл тему. самое простое решение... но на мыло все-равно скинул тебе проект... если подходит, отпиши... Ответить

Номер ответа: 10 Автор ответа: Senya Вопросов: 3 Ответов: 12	Профиль \| \| #10	Добавлено: 23.05.09 12:01
	Всем большое спасибо. Результаты зачета позже ))))))))))) Ответить

Номер ответа: 11 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #11	Добавлено: 23.05.09 19:11
	Ну мы ждем... Ответить

Номер ответа: 12 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #12	Добавлено: 29.05.09 20:52
	Мы ждем? Ответить

Страница: 1 |