ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / добавление меню в HTML файл
6 сообщений из 6, страница 1 из 1
добавление меню в HTML файл
    #33584845
Namik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Namik
Гость
Доброго Вам времени суток
Уважаемые господа

при наличии времени прошу Вас помочь

есть форма

на форме

TextBox1

List1

ButtonOpen

ButtonAdd

есть html файл site.html


вот код html файла


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
<title>Untitled</title>
</head>

<body>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td><!---mesto---for---mnu---begin---->

<table border="0" cellpadding="0" cellspacing="0"><!---samo---mnu---begin---->
<tr>
<td><a href="">Menu1</a></td>
</tr>
<tr>
<td height="3"></td><!---razdelitel---->
</tr>
<tr>
<td><a href="">Menu2</a></td>
</tr>
</table><!---samo---mnu---end---->

</td><!---mesto---for---mnu---end---->

<td><!------text---begin---->
</td><!------text---end---->
</tr>
</table>



</body>
</html>

мне необхадимо чтобы

1. при нажати на ButtonOpen считывался html файл

List1 заполнялся названиями меню - Menu1 Menu2 и т.д


2. при нажати на ButtonAdd в html файл

внсилось новое меню название - из TextBox1 т.е. получалось вот так
..........
<tr>
<td><a href="">Menu1</a></td>
</tr>
<tr>
<td height="3"></td><!---razdelitel---->
</tr>
<tr>
<td><a href="">Menu2</a></td>
</tr>

<tr>
<td height="3"></td><!---razdelitel---->
</tr>

<tr>
<td><a href="">Menu3</a></td>
</tr>
..........

подскажите пожалуйста

С Уважением и Благодарностью
Намик
...
Рейтинг: 0 / 0
06.03.2006, 17:05:46
| Ответить | Цитировать | Написать  
добавление меню в HTML файл
    #33585577
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Сходу отвечу на первый вопрос.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Private Sub cmdOpen_Click()
    Dim objExplorer As SHDocVw.InternetExplorer
    Dim objDocument As MSHTML.HTMLDocument
    Dim intI As Integer
    
    Set objExplorer = CreateObject("InternetExplorer.Application")
    With objExplorer
      .navigate "E:\1\site.html"
        Do While .Busy
        Loop
      '.Visible = True
    End With
    
    Set objDocument = objExplorer.document
    
    For intI =  0  To objDocument.links.length -  1 
        List1.AddItem objDocument.links.Item(intI).innerText
    Next intI

    objExplorer.Quit
End Sub

Соответсвенно библиотеки:

Microsoft HTML Object Library.
Microsoft Internet Controls.
...
Рейтинг: 0 / 0
06.03.2006, 23:49:58
| Ответить | Цитировать | Написать  
добавление меню в HTML файл
    #33586499
Namik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Namik
Гость
Доброго Вам времени суток
Уважаемый

благодарю Вас за ответ

по Вашему коду в List поподают все линки которые есть на странице
это хорошо

а как можно добиться того
чтобы поподали линки только из указанного диапозона


например

можно ли дать команду

чтобы в List поподали все линки находящиеся в диапозоне
тегов

например

<TegN></TegN>


С Уважением и Благодарностью
Намик

p.s. где можно почитать по работе с указанными Вами библиотеками
...
Рейтинг: 0 / 0
07.03.2006, 12:30:26
| Ответить | Цитировать | Написать  
добавление меню в HTML файл
    #33587073
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Private Sub cmdOpen_Click()
    Dim objExplorer As SHDocVw.InternetExplorer
    Dim objAll As object
    Dim intI As Integer
    
    Set objExplorer = CreateObject("InternetExplorer.Application")
    With objExplorer
      .navigate "E:\1\site.html"
        Do While .Busy
        Loop
      '.Visible = True
    End With
    
    Set objAll = objExplorer.document.all([id нужного тега])
    For intI =  0  To objAll.length -  1 
        if TypeName(obAll(intI))="HTMLAnchorElement" Then List1.AddItem objAll(intI).innerText
    Next intI

    objExplorer.Quit
End Sub
...
Рейтинг: 0 / 0
07.03.2006, 15:08:07
| Ответить | Цитировать | Написать  
добавление меню в HTML файл
    #33587101
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Поправка:
Код: plaintext
 Set objAll = objExplorer.document.all([id нужного тега]).all
Namikp.s. где можно почитать по работе с указанными Вами библиотеками MSDN . И вообще, главный инструмент при изучении библиотек - Object browser (F2)
...
Рейтинг: 0 / 0
07.03.2006, 15:16:27
| Ответить | Цитировать | Написать  
добавление меню в HTML файл
    #33587162
Namik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Namik
Гость
Большое Вам спасибо

работает как надо

линки меню и сабменю садятся на основе id_ов по разным спискам


вот еще бы примеры изменения, добавления и удаления
то все будет супер

Будьте здоровы


С Уважением и Благодарностью
Намик
...
Рейтинг: 0 / 0
07.03.2006, 15:39:35
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / добавление меню в HTML файл
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=33585577&tid=2166253]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 203ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 227ms
total:  527ms
созд. / загр.: 527ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]