Страница: 1 |
Вопрос: Простая программа на Visual | Добавлено: 21.12.05 12:46 |
Автор вопроса: ![]() |
Помгите сделать, пожалуйста. Надо написать программу, выдающую информацию:
1. Местонахождение книги автора Х названия У, 2. Список книг автора Z 3. Книги издания 20 века Файл в котором все данный написан в блокноте и выведен в Бейсик, как из него нужное извлечь |
Ответы | Всего ответов: 10 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 21.12.05 13:07 |
А что конкретно вызывает у вас затруднения?
Если Вам нужно просто, чтобы кто-то решил Вам задачи, то нужно как минимум чем-то осчастливить решателя. Могу дать координаты человека, который решит это за 10-20 USD. |
Номер ответа: 2 Автор ответа: ![]() ![]() ![]() Вопросов: 1 Ответов: 2 |
Профиль | Цитата | #2 | Добавлено: 21.12.05 13:14 |
Конкретно у меня вызывает проблемы с помощью какой функции можно выбирать из списка |
Номер ответа: 3 Автор ответа: ![]() ![]() Вопросов: 0 Ответов: 1066 |
Профиль | Цитата | #3 | Добавлено: 21.12.05 13:17 |
Так, народ, ну-ка быстренько собрались и решили задачу для Liola !
Бегом! |
Номер ответа: 4 Автор ответа: ![]() ![]() ![]() Вопросов: 1 Ответов: 2 |
Профиль | Цитата | #4 | Добавлено: 21.12.05 13:19 |
Это издевательство? А вот мне не смешно, когда тебе ни фига не объясняли и делай как хочешь |
Номер ответа: 5 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | Цитата | #5 | Добавлено: 21.12.05 13:31 |
2 Liola: суть в том, что в этом мясяце пошла как никогда огромная волна студентов, которые жутко хотят, чтобы им что-то решили ![]() Хотя может и найдется человек, которому не жаль своего времени, чтобы это решить. Если же надо не "решить", а есть какие-то конкретные вопросы, то задавайте. Желательно подробно, и каждый вопрос в новой теме, чтобы всё в кучу не мешалось. Хорошему человеку здесь всегда помогут, если задан чёткий вопрос. |
Номер ответа: 6 Автор ответа: ![]() ![]() Вопросов: 0 Ответов: 1066 |
Профиль | Цитата | #6 | Добавлено: 21.12.05 13:37 |
Это не издевательство, это призыв помочь человеку, которому ни фига не объяснили.
Если вы учитесь в первом классе, то вам должны объяснить. Если вы постарше, и преподаватель решил, что ваш уровень развития должен быть достаточным для самостоятельного нахождения информации, то никто вам ничего объяснять не будет. В этом случае вы должны сами сформулировать задачу, наметить пути её решения и выбрать необходимые средства для достижения желаемого результата. У вас есть план действий, в соответствие с которым вы намерены решать задачу? |
Номер ответа: 7 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 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" ![]() 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 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Разработчик 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 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | Цитата | #10 | Добавлено: 07.01.06 17:27 |
Выноват... ![]() не Word$ = Split(ArrayLines(0), " " ![]() а Dim Word() as String потом уже Word = Split(ArrayLines(0), " " ![]() |
Страница: 1 |
|