Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Imports ... / 8 сообщений из 8, страница 1 из 1
31.01.2005, 18:21:02
    #32893236
Azart
Azart
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Imports ...
В .НЕТе писал
Код: 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:41:45
    #32893281
Дурак
Дурак
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Imports ...
Такой Imports в шестерке НЕ ПРОКАТИТ...

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

Забудте про примеры для Vb.Net
В Vb 6 они работать не будут
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.02.2005, 00:36:20
    #32893559
Azart
Azart
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Imports ...
Это был не пример - это я сам в НЕТе писал.
Что нет способов в 6 Бейсике парсить ХМЛ файлы????
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.02.2005, 08:44:55
    #32893695
Alviga
Alviga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Imports ...
В 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
| Ответить | Цитировать | Написать  
03.02.2005, 17:39:09
    #32899922
Azart
Azart
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Imports ...
Спасибо 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
    #32900862
MX-ALEX
MX-ALEX
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Imports ...
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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Imports ... / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 338ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2168255]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 47ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 39ms
get tp. blocked users:
 1ms
others: 211ms
total:  338ms
x
x
Закрыть


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