ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Imports ...
8 сообщений из 8, страница 1 из 1
Imports ...
    #32893236
Azart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Azart
Участник
В .НЕТе писал
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
Imports System
Imports System.Xml

Public Sub New()

        Dim doc As XmlDocument
        Dim n_db As XmlNodeList
        Dim m_node As XmlNode
        Dim key_xml As Microsoft.Win32.RegistryKey

        key_xml = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\\Elvees\\Desktop Orwell Client")
        Dim adr_xml As String = CType(key_xml.GetValue("TeleProjectPath"), String)

        doc = New XmlDocument
        doc.Load(adr_xml)
        n_db = doc.SelectNodes("/base/data/project/server")
       
        For Each m_node In n_db
            servername = CType(m_node.ChildNodes.Item( 0 ).InnerText, String)
        Next

         n_db = doc.SelectNodes("/base/data/project/database")

         For Each m_node In n_db
             dbname = CType(m_node.ChildNodes.Item( 0 ).InnerText, String)
         Next

    End Sub

Перенёс код на 6 Бейсик - начились проблемы. Студия орёт на всё что после Imports написано. Хотя поключил Microsoft XML. И Microsoft.Win32.RegistryKey тоже не лады.
...
Рейтинг: 0 / 0
31.01.2005, 18:21:02
| Ответить | Цитировать | Написать  
Imports ...
    #32893281
Дурак
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дурак
Участник
Такой Imports в шестерке НЕ ПРОКАТИТ...

И вообще. Шестерка от нета как ч. от пальца...
...
Рейтинг: 0 / 0
31.01.2005, 18:41:45
| Ответить | Цитировать | Написать  
Imports ...
    #32893360
Azart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Azart
Участник
Ну так какой прокатит подскажи!
...
Рейтинг: 0 / 0
31.01.2005, 19:31:55
| Ответить | Цитировать | Написать  
Imports ...
    #32893433
Один
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Один
Участник
AzartНу так какой прокатит подскажи! Никакой не прокатит.
VB 6 и Vb.Net - это две вообще разные технологии. Несколько (и это сделано с маркетинговыми целями) похожие синтаксисом, но и только.

Забудте про примеры для Vb.Net
В Vb 6 они работать не будут
...
Рейтинг: 0 / 0
31.01.2005, 21:09:40
| Ответить | Цитировать | Написать  
Imports ...
    #32893559
Azart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Azart
Участник
Это был не пример - это я сам в НЕТе писал.
Что нет способов в 6 Бейсике парсить ХМЛ файлы????
...
Рейтинг: 0 / 0
01.02.2005, 00:36:20
| Ответить | Цитировать | Написать  
Imports ...
    #32893695
Фотография Alviga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alviga
Участник
В Reference нужно подключить
Microsoft XML v4.0 (v3.0) ну или что у тебя есть
примерный код, думаю разберешься

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Private Sub Command1_Click()
Dim Doc As DOMDocument40
Dim m_node As IXMLDOMNode
Dim n_db As IXMLDOMNodeList
Dim adr_xml As String
Dim Servername As String

    adr_xml = "c:\test.xml"
        
        Set Doc = New DOMDocument40
        With Doc
            Call .Load(adr_xml)
            Set n_db = .selectNodes("root/base")
        End With
       
        For Each m_node In n_db
            Servername = m_node.childNodes.Item( 0 ).Text
        Next
         
End Sub
...
Рейтинг: 0 / 0
01.02.2005, 08:44:55
| Ответить | Цитировать | Написать  
Imports ...
    #32899922
Azart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Azart
Участник
Спасибо Alviga , но сделал немного по другому.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
        Dim xmlDoc As DOMDocument30
        Dim currNode As IXMLDOMNode
        Set xmlDoc = New DOMDocument
        Dim A As String
        
        xmlDoc.Load ("E:\orwell.dep")
        Set currNode = xmlDoc.documentElement.selectSingleNode("/base/data/project/server")
        A = CStr(currNode.Text)
...
Рейтинг: 0 / 0
03.02.2005, 17:39:09
| Ответить | Цитировать | Написать  
Imports ...
    #32900862
MX-ALEX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MX-ALEX
Участник
AzartСпасибо Alviga , но сделал немного по другому.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
        Dim xmlDoc As DOMDocument30
        Dim currNode As IXMLDOMNode
        Set xmlDoc = New DOMDocument
        Dim A As String
        
        xmlDoc.Load ("E:\orwell.dep")
        Set currNode = xmlDoc.documentElement.selectSingleNode("/base/data/project/server")
        A = CStr(currNode.Text)


спасибо - Ваш код помог мне сократить прогу !
...
Рейтинг: 0 / 0
04.02.2005, 11:26:00
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Imports ...
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=32893695&tid=2168255]:
 0ms
get settings:
 10ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 78ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 48ms
get tp. blocked users:
 2ms
others: 241ms
total:  418ms
созд. / загр.: 418ms
x
x
Закрыть


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