Конференция VBStreets

Пытаюсь влезть в новую для себя тему - работу с XML. Задача такая, имеется конфиг в формате XML, и в нем надо заменит строку <add key="SqlType" value="MSSQL" /> на <add key="SqlType" value="ORA" />.

Можно конечно сделать это и обычным парсингом строк, но хочется сделать через XML

Код: Выделить всё

<?xml version="1.0" encoding="utf-8"?>
<configuration>
  <configSections>
    <sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
      <section name="AKDWinApp.Properties.Settings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
    </sectionGroup>
  </configSections>
  <appSettings>
     <add key="PortalSettingCaching" value="1000" />
     <!--
          SqlType - возможны 2 варианта :
              <add key="SqlType"            value="ORA" />
              <add key="SqlType"            value="MSSQL" />
    -->
     <add key="SqlType" value="MSSQL" />
     <add key="ActiveXSqlType" value="MSSQL" />
     <add key="OracleConnectionString" value="Data Source=hp;Pooling=true;User ID=aserg2;Password=222222" />
     <add key="MSSQLConnectionString" value="Data Source=hpia64;Initial Catalog=ZUBR030707;Persist Security Info=False;User ID=aserg;Password=111111" />
    <!--<add key="MSSQLConnectionString" value="Data Source=BGSK-IT044\SQLEXPRESS;Initial Catalog=Zubr;Persist Security Info=False;User ID=sa;Password=qazwsx" />-->
     <add key="WebServiceConnectionString" value="http://10.10.40.9/AKDWS/" />

     <add key="CatalogLogs" value="log" />
     <add key="CatalogIcons" value="icons" />
     <!-- Расстояние от обьекта до границы области видимости в метрах -->
     <add key="Boundary" value="200" />
     <add key="MBRInflate" value="0.1" />
     <!-- базовый каталог вордовых документов -->
     <add key="CatalogWord" value="http://10.10.40.9/AKDData/" />
     <!-- Настройки GPS -->
     <add key="gpsPort" value="COM3" /> 
    <add key="gpsDelay" value="5" />
    <add key="synchPackageSize" value="300" />
    <!-- settings for UnhandledExceptionManager class -->
    <add key="UnhandledExceptionManager/LogToEventLog" value="true" />
  </appSettings>
  <!--<system.windows.forms jitDebugging="true" />-->
  <applicationSettings>
    <AKDWinApp.Properties.Settings>
      <setting name="AKDWinApp_SynchronizationService_Synchronization"
        serializeAs="String">
        <value>http://localhost/AKDWS/Synchronization.asmx</value>
      </setting>
    </AKDWinApp.Properties.Settings>
  </applicationSettings>
</configuration>

Для начала, хочу получить содержимое <appSettings>, но почему возвращается пустая строка?

Код: Выделить всё

Private Sub Command1_Click()
    Dim xmlDoc As MSXML2.DOMDocument30
    Dim objNode As IXMLDOMNode
    Set xmlDoc = New DOMDocument30
    xmlDoc.async = False
    xmlDoc.validateOnParse = False
    xmlDoc.Load ("C:\App.exe.config.xml")
    xmlDoc.setProperty "SelectionLanguage", "XPath"
    Set objNode = xmlDoc.selectSingleNode("//configuration/appSettings/*")
   
    MsgBox objNode.Text

End Sub

Потому что в этой ноде нет текста.

Очень странный запрос для selectSingleNode. * обычно используется в selectNodes - для коллекции.



А еще и в самом деле у выбираемых нодов нет текста.



Я бы писал так:

Код: Выделить всё

Private Sub Command1_Click()
    Dim xmlDoc As MSXML2.DOMDocument30
    Dim objNode As IXMLDOMNode
    Set xmlDoc = New DOMDocument30
    xmlDoc.async = False
    xmlDoc.validateOnParse = False
    xmlDoc.Load ("C:\App.exe.config.xml")
    xmlDoc.setProperty "SelectionLanguage", "XPath"
    Set objNodes = xmlDoc.selectNodes("//configuration/appSettings/*")

For Each objNode in objNodes

MsgBox objNode.attributes.getNamedItem("value").nodeTypedValue

Next objNode
   
End Sub

For Each не знаю, будет работать или нет, но логика надеюсь понятна.

RayShade писал(а):Очень странный запрос для selectSingleNode. * обычно используется в selectNodes - для коллекции.

А еще и в самом деле у выбираемых нодов нет текста.

Я бы писал так:

Код не работает, по прежнему выводятся пустые мессанджбоксы

jangle
Приветствую.
Попробуй использовать XmlTextReader.

Код: Выделить всё


Dim rd As XmlTextReader = New XmlTextReader(fileName)
Dim text As String = ""
Do While rd.Read()
            Select Case rd.NodeType
                Case XmlNodeType.Element
                    Select Case rd.Name
                        Case "configSections"
                            rd.Skip() ' проскакиваем элемент
                        Case "add" ' читаем элемент с именем add
                            rd.MoveToFirstAttribute()
                            text &= rd.Value & vbTab
                            rd.MoveToAttribute("value")
                            text &= rd.Value & vbCrLf
                    End Select
                Case XmlNodeType.Text
                    'делай что-то
            End Select
        Loop
TextBox2.Text = text


Я так у себя входящие xml разбираю. Когда знаешь какие там элементы, то довольно удобно. Чтобы пропускать не нужные элементы и все что в них используй

Код: Выделить всё


Case "MailingCreate"
                            rd.Skip()


Thomas писал(а):jangle
Приветствую.
Попробуй использовать XmlTextReader.

Thomas - дело в том, что я пишу на VB6. В нем можно использовать этот класс?

jangle
Oops.
Я учусь писать на .NET.
Если честно, то не знаю.

Вобщем с XML пока не разобрался, сделал парсер на регулярных выражениях. Работает стабильно

Код: Выделить всё

    Dim myRegExp As New RegExp
    myRegExp.IgnoreCase = True
    myRegExp.Global = True
    myRegExp.Pattern = "<\s*add\s* key\s*=\s*""ActiveXSqlType""\s* value\s*=\s*" & Chr$(34)
    temp = myRegExp.Replace(temp, "<add key=""ActiveXSqlType"" value=" & Chr$(34) & DB)
    myRegExp.Pattern = "<\s*add\s* key\s*=\s*""SqlType""\s* value\s*=\s*" & Chr$(34)
    temp = myRegExp.Replace(temp, "<add key=""SqlType"" value=" & Chr$(34) & DB)

Регулярные выражения?
Я бы лучше автомат сделал, на InStr. У XML структура строгая, проблем быть не должно.
В кирпичах лежит самодельный парсер HTML, его можно значительно упростить и прикрутить к XML.

Ну раз уже всё равно написал свой код, то не жалко правильный показать

Код: Выделить всё

Option Explicit

Sub Main()
    Dim xmlDoc As MSXML2.DOMDocument
    Set xmlDoc = New DOMDocument
    xmlDoc.async = False
    xmlDoc.validateOnParse = False
    xmlDoc.Load ("C:\App.exe.config.xml")
    xmlDoc.setProperty "SelectionLanguage", "XPath"
    Dim objNode As IXMLDOMNode, objAttr As IXMLDOMAttribute
    For Each objNode In xmlDoc.selectNodes("//add[@key='SqlType' and @value='MSSQL']")
        Set objAttr = objNode.Attributes.getNamedItem("value")
        objAttr.Value = "ORA"
    Next
    MsgBox xmlDoc.xml
End Sub


Ну раз уже всё равно написал свой код, то не жалко правильный показать

Что-то у меня твой код не работает, цикл For Each вообще ни разу не срабатывает, мессанджбокс выводится пустым.

Твой XML-то у тебя у самого грузится?
(Например, в IE открывается?)

В IE он не откроется, т.к. это "XML based Configuration file", проще говоря аналог древнего INI файла. В нем XML .Net приложения сериализуют свои настройки.

В IE открывается любой синтаксически корректный XML-файл.
Значит, твой некорректный, раз не открывается.
Вместо разводить демагогию, дописал бы лучше в свой код: MsgBox xmlDoc.parseError.reason

В IE открывается любой синтаксически корректный XML-файл.
Значит, твой некорректный, раз не открывается

Файл корректный, его использует довольно сложная клиент-серверная система для хранения своих настроек. Написана она на Visual Studio 2005 под .Net Framework 2.0 Там таких XML конфигов несколько десятков, изменяя их можно выполнять точную юстировку системы.

jangle писал(а):

В IE открывается любой синтаксически корректный XML-файл.
Значит, твой некорректный, раз не открывается

Файл корректный

"Какие ваши доказателства?" (c)

Если бы он был корректный, IE бы его открывал.
Если он корректный, тогда почему IE его не открывает?

Если бы он был корректный, IE бы его открывал.
Если он корректный, тогда почему IE его не открывает?

Ну тогда не знаю, может программу изначально научили работать с некоректным XML? Может это ошибка людей писавших эту систему?
Или они специально сделали его неправильным?
Вобщем проблему удалось решить регулярными выражениями.

возможно его не на MSXML парсят.