VBNet - Форум - Простая программа на Visual

Вопрос: Простая программа на Visual Добавлено: 21.12.05 12:46

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

Помгите сделать, пожалуйста. Надо написать программу, выдающую информацию:
1. Местонахождение книги автора Х названия У,
2. Список книг автора Z
3. Книги издания 20 века

Файл в котором все данный написан в блокноте и выведен в Бейсик, как из него нужное извлечь
Ответить

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

Номер ответа: 1 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968	Web-сайт: www.vbnet.ru Профиль \| \| #1	Добавлено: 21.12.05 13:07
	А что конкретно вызывает у вас затруднения? Если Вам нужно просто, чтобы кто-то решил Вам задачи, то нужно как минимум чем-то осчастливить решателя. Могу дать координаты человека, который решит это за 10-20 USD. Ответить

Номер ответа: 2 Автор ответа: Liola Вопросов: 1 Ответов: 2	Профиль \| \| #2	Добавлено: 21.12.05 13:14
	Конкретно у меня вызывает проблемы с помощью какой функции можно выбирать из списка Ответить

Номер ответа: 3 Автор ответа: HOOLIGAN Вопросов: 0 Ответов: 1066	Профиль \| \| #3	Добавлено: 21.12.05 13:17
	Так, народ, ну-ка быстренько собрались и решили задачу для Liola ! Бегом! Ответить

Номер ответа: 4 Автор ответа: Liola Вопросов: 1 Ответов: 2	Профиль \| \| #4	Добавлено: 21.12.05 13:19
	Это издевательство? А вот мне не смешно, когда тебе ни фига не объясняли и делай как хочешь Ответить

Номер ответа: 5 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968	Web-сайт: www.vbnet.ru Профиль \| \| #5	Добавлено: 21.12.05 13:31
	2 Liola: суть в том, что в этом мясяце пошла как никогда огромная волна студентов, которые жутко хотят, чтобы им что-то решили А сообщество не имеет желания решать что-то просто так. Решают либо из интереса либо в корыстных целях. Интереса в этих задачах никакого не видно, а корыстные цели не предложены... Хотя может и найдется человек, которому не жаль своего времени, чтобы это решить. Если же надо не "решить", а есть какие-то конкретные вопросы, то задавайте. Желательно подробно, и каждый вопрос в новой теме, чтобы всё в кучу не мешалось. Хорошему человеку здесь всегда помогут, если задан чёткий вопрос. Ответить

Номер ответа: 6 Автор ответа: HOOLIGAN Вопросов: 0 Ответов: 1066	Профиль \| \| #6	Добавлено: 21.12.05 13:37
	Это не издевательство, это призыв помочь человеку, которому ни фига не объяснили. Если вы учитесь в первом классе, то вам должны объяснить. Если вы постарше, и преподаватель решил, что ваш уровень развития должен быть достаточным для самостоятельного нахождения информации, то никто вам ничего объяснять не будет. В этом случае вы должны сами сформулировать задачу, наметить пути её решения и выбрать необходимые средства для достижения желаемого результата. У вас есть план действий, в соответствие с которым вы намерены решать задачу? Ответить

Номер ответа: 7 Автор ответа: SerJ Вопросов: 24 Ответов: 332	Профиль \| \| #7	Добавлено: 21.12.05 14:40
	2 Liola: суть в том, что в этом мясяце пошла как никогда огромная волна студентов, которые жутко хотят, чтобы им что-то решили А сообщество не имеет желания решать что-то просто так. Решают либо из интереса либо в корыстных целях. Интереса в этих задачах никакого не видно, а корыстные цели не предложены... Попривыкали, блин... Прям не форум, Центр Студенческих Решений 2Павел: Было бы неплохо, если бы где-то на видном месте (например, в правилах или при регистрации нового чела) стояла наводящая ссылочка на http://support.kras.ru/smart-questions-ru.html Напомню - инфо "Как правильно задавать вопросы" Ответить

Номер ответа: 8 Автор ответа: Александр Вопросов: 1 Ответов: 15	Профиль \| \| #8	Добавлено: 03.01.06 00:02
	Как я понял из вопроса: данные находятся в текстовом формате, и каждая строка содержит информацию об авторе, названиии книги, месте хранения, годе издания и т.п. Считывай построчно из файла (или из листбокса). Если из файла - то сразу всё в переменные и сравнивай с скомым. А если из листбокса, то строку придется разбивать по разделителям (пробелам) на слова и протом сравнивать типа Open c:\baz.txt" For Input As 1 Do While Not EOF(1) Input #1, nam, par, man, KR, Dat If nam = .Text1.Text Then ' если имя совпадает дописываем в список нужные параметры Список1.AddItem nam, par, man, KR, Dat End If А если из листбокса, то строку придется разбивать по разделителям (пробелам) на слова и протом сравнивать Ответить

Номер ответа: 9 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #9	Добавлено: 07.01.06 17:26
	Несколько раз прочитав вопрос, нашёл только один конкретный... как из него нужное извлечь Вот так: Public Function LoadTextFile(path As String) As String 'Загрузка файла в переменную Dim l As Long Dim s As String n = FreeFile Open path For Binary As #n l = LOF(n) s = String(l, vbNullChar) Get n, , s Close #n LoadTextFile = s End Function на будущее возможно пригодится Public Sub SaveToFile(Data$, PathFile As String) 'Сохранение переменной в файл n = FreeFile Open PathFile For Binary As #n Put n, , Data$ Close #n End Sub так вот с помощью этого кода, можно легко считать файл в переменную, а далее обработать данные из переменной $txt = LoadTextFile ("C:\file.txt" 'читаем файл 'Разбиваем на массив строк Dim ArrayLines() as String ArrayLines = Split($txt, vbNewLine) 'Теперь tmp$ = ArrayLines(0) - первая строка, tmp$ = ArrayLines(1) - вторая, итп... На массив слов аналогично... Word$ = Split(ArrayLines(0), " " Будут конкретные вопросы - будут конкретные ответы, будет вознаграждение - будет готовая программа. Такая политика у всех... и это правельно. Ответить

Номер ответа: 10 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #10	Добавлено: 07.01.06 17:27
	Выноват... не Word$ = Split(ArrayLines(0), " " а Dim Word() as String потом уже Word = Split(ArrayLines(0), " " Ответить

Страница: 1 |