Нужно по выбору из списка в Listbox открыть html документ без тегов в webbrowser

@Zheniss · Регистрация: 06.04.2013

Студворк — интернет-сервис помощи студентам

Нужно по выбору из списка в Listbox открыть html документ без тегов в webbrowser .. Если можно помогите исходниками .. Заранее благодарен

@ILNAR_93 · 06.04.2013, 20:05

Сообщение от Zheniss

как в код добавит еще одну папку .. ?? а у меня две разные папки

зачем его добавлять ? .

@Zheniss · 06.04.2013, 20:11 **[ТС]**

у меня есть две папки "Лекции" и "Лабораторные" .. Файлы загружаются и от туда и от туда .. с папкой "Лекции" мы разобрались а вот как открывать файлы еще из папки "Лабораторные" ??

@ILNAR_93 · 06.04.2013, 20:15

В принципе вот так можно: с проверкой )

Delphi
1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
if FileExists(ExtractFileDir(Application.ExeName)+'\Лекции\'+ListBox1.Items[ListBox1.ItemIndex]) then
webbrowser1.Navigate(ExtractFileDir(Application.ExeName)+'\Лекции\'+ListBox1.Items[ListBox1.ItemIndex])
else
webbrowser1.Navigate(ExtractFileDir(Application.ExeName)+'\Лабораторные\'+ListBox1.Items[ListBox1.ItemIndex]);
end;

@Zheniss · 06.04.2013, 20:34 **[ТС]**

Большое спасибо Kaspersky !! Ты хороший программист и человек ..

@cotseec · 06.04.2013, 20:48

)))) а теперь вопрос: если в обеих папках будут, допустим всего два одинаковых файла (с одинаковыми именами), что тогда будет?
ответ: в листбоксе отобразятся два одинаковых имени и на какой не кликай ВСЕГДА будет открываться файл из папки "Лекции"

@ILNAR_93 · 06.04.2013, 20:56

Сообщение от cotseec

)))) а теперь вопрос: если в обеих папках будут, допустим всего два одинаковых файла (с одинаковыми именами), что тогда будет?
ответ: в листбоксе отобразятся два одинаковых имени и на какой не кликай ВСЕГДА будет открываться файл из папки "Лекции"

ты прав, но всеже если знать об этом то можно как то разабраться с этим вопросом совпадения хоть путем добавления в название например один из способов туповатый способ но всеже

) (L_лекция\B_лекция).

Добавлено через 45 секунд

Сообщение от Zheniss

Большое спасибо Kaspersky !! Ты хороший программист и человек ..

спасибо

@Zheniss · 07.04.2013, 11:57 **[ТС]**

Добрый день !! что если мне придется еще несколько папок добавить в мой проект .. как прописать код для двух папок понятно а как быть уже с более папками .. заранее благодарю

Delphi
1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
if FileExists(ExtractFileDir(Application.ExeName)+'\Лекции\'+ListBox1.Items[ListBox1.ItemIndex]) then
webbrowser1.Navigate(ExtractFileDir(Application.ExeName)+'\Лекции\'+ListBox1.Items[ListBox1.ItemIndex])
else
webbrowser1.Navigate(ExtractFileDir(Application.ExeName)+'\Лабораторные\'+ListBox1.Items[ListBox1.ItemIndex]);
end;

Добавлено через 5 минут

Delphi
1
2
3
4
5
6
7
8
if FileExists(ExtractFileDir(Application.ExeName)+'\Лекции\'+ListBox1.Items[ListBox1.ItemIndex]) then
webbrowser1.Navigate(ExtractFileDir(Application.ExeName)+'\Лекции\'+ListBox1.Items[ListBox1.ItemIndex]);
 
if FileExists(ExtractFileDir(Application.ExeName)+'\СРСП\'+ListBox1.Items[ListBox1.ItemIndex]) then
webbrowser1.Navigate(ExtractFileDir(Application.ExeName)+'\СРСП\'+ListBox1.Items[ListBox1.ItemIndex]);
 
if FileExists(ExtractFileDir(Application.ExeName)+'\Лабораторные\'+ListBox1.Items[ListBox1.ItemIndex]) then
webbrowser1.Navigate(ExtractFileDir(Application.ExeName)+'\Лабораторные\'+ListBox1.Items[ListBox1.ItemIndex]);

я так написал .. как думаете ??

@ILNAR_93 · 07.04.2013, 14:20

так то он будет работать, но если будет так как писал cotseec одинаковые названия в 2-х папках например он всегда будет открывать первую..
тут нужно думать другой вариант !)

@cotseec · 07.04.2013, 14:47

Сообщение от kaspersky

тут нужно думать другой вариант

вариант

@Zheniss · 08.04.2013, 10:28 **[ТС]**

спасибо за пример "Тест" но это не подойдет .. может к коду нашему дописать что нибудь надо ??

Новые блоги и статьи Все статьи Все блоги /
Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .

@Zheniss 0 / 0 / 0 Регистрация: 06.04.2013 Сообщений: 29

	Нужно по выбору из списка в Listbox открыть html документ без тегов в webbrowser 06.04.2013, 18:14. Показов 4112. Ответов 29 Метки нет (Все метки) Нужно по выбору из списка в Listbox открыть html документ без тегов в webbrowser .. Если можно помогите исходниками .. Заранее благодарен 0

@Zheniss 0 / 0 / 0 Регистрация: 06.04.2013 Сообщений: 29
	06.04.2013, 20:11 [ТС]
	у меня есть две папки "Лекции" и "Лабораторные" .. Файлы загружаются и от туда и от туда .. с папкой "Лекции" мы разобрались а вот как открывать файлы еще из папки "Лабораторные" ?? 0

@Zheniss 0 / 0 / 0 Регистрация: 06.04.2013 Сообщений: 29
	06.04.2013, 20:34 [ТС]
	Большое спасибо Kaspersky !! Ты хороший программист и человек .. 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	06.04.2013, 20:48
	)))) а теперь вопрос: если в обеих папках будут, допустим всего два одинаковых файла (с одинаковыми именами), что тогда будет? ответ: в листбоксе отобразятся два одинаковых имени и на какой не кликай ВСЕГДА будет открываться файл из папки "Лекции" 0

@ILNAR_93 Android 245 / 242 / 52 Регистрация: 19.01.2013 Сообщений: 1,896 Записей в блоге: 3
	07.04.2013, 14:20
	так то он будет работать, но если будет так как писал cotseec одинаковые названия в 2-х папках например он всегда будет открывать первую.. тут нужно думать другой вариант !) 1

@Zheniss 0 / 0 / 0 Регистрация: 06.04.2013 Сообщений: 29
	08.04.2013, 10:28 [ТС]
	спасибо за пример "Тест" но это не подойдет .. может к коду нашему дописать что нибудь надо ?? 0