VBNet - Форум - Поиск текста и его копирование

Вопрос: Поиск текста и его копирование Добавлено: 02.11.11 15:47

Автор вопроса: Олег

Ребята. Вопрос.
Есть строка в XML файле :

<субъект идентификаторСубъекта="002-871-100318" типСубъекта="АбонентСЭД" имя="ООО 'Компенсатор'">

Как вытащить идентификатор субъекта и имя компании?
Имеется ввиду присвоить эти данные в какие нить переменные, откуда я потом их смогу использовать.

С самого начала идентификатор субъекта вытаскивал при помощи позиции символа:

Set objFSO= WScript.CreateObject("Scripting.FileSystemObject")
  Set txtFile = objFSO.OpenTextFile("C:\XML\" & basename)
  Do While Not txtFile.AtEndOfStream
ReadLineTXT = txtFile.ReadLINE
   If InStr(ReadLineTXT, "идентификаторСубъекта=""") Then
     sNomer = mid(readlinetxt, 37, 14)
wscript.echo sNomer
      Exit Do
    End If
  Loop
  txtFile.Close

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

Помогите пожалуйста.

P.S.
Сама XML с начала выглядит так:

<?xml version="1.0" encoding="Windows-1251"?>
<регистрационнаяИнформация>
<датаВремяФормирования>2011-10-31T15:49:58</датаВремяФормирования>
<списокСубъектов>
<субъект идентификаторСубъекта="002-871-100318" типСубъекта="АбонентСЭД" имя="ООО 'Компенсатор'">
<списокСертификатов типПодписанта="руководитель">
<сертификат активный="true">

Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: chialexus ICQ: 321922 Вопросов: 3 Ответов: 53	Web-сайт: chialexus.narod.ru Профиль \| \| #1	Добавлено: 02.11.11 17:57
	Зачем так извращаться? Есть старый добрый DOM XML - http://script-coding.com/XMLDOMscripts.html Ответить

Номер ответа: 2 Автор ответа: chialexus ICQ: 321922 Вопросов: 3 Ответов: 53	Web-сайт: chialexus.narod.ru Профиль \| \| #2	Добавлено: 02.11.11 18:10
	Set objXML = CreateObject("Msxml2.DOMDocument.6.0") objXML.async=false objXML.Load ("XML_ФАЙЛ") Set objNode = objXML.selectSingleNode("//субъект") msgbox objNode.Attributes(0).Value 'идентификаторСубъекта msgbox objNode.Attributes(1).Value 'типСубъекта msgbox objNode.Attributes(2).Value 'имя Set objNode =Nothing Set objXML =Nothing Ответить

Номер ответа: 3 Автор ответа: Олег Вопросов: 4 Ответов: 10	Профиль \| \| #3	Добавлено: 03.11.11 12:36
	Я сделал вот так. Но есть вопрос: Dim DOMDocument, Node, tmpStr Set DOMDocument = CreateObject("MSXML2.DOMDocument") With DOMDocument .Load "C:\XML\" & basename if .parseError.reason <> "" Then MsgBox .parseError.reason,vbCritical WScript.Quit End if With .documentElement.SelectSingleNode("списокСубъектов") tmpStr = "" For Each Node in .SelectNodes("субъект") sNomer = Node.GetAttribute("идентификаторСубъекта") firm = Node.GetAttribute("имя") MsgBox sNomer MsgBox firm Next End With End With В поле имя иногда могут быть кавычки. А мне надо, что там были только буквы безо всяких кавычек. Как мне сделать замену символов(коротко - удалить): ' " » « Ответить

Номер ответа: 4 Автор ответа: Олег Вопросов: 4 Ответов: 10	Профиль \| \| #4	Добавлено: 03.11.11 13:37
	Разобрался. Спасибо. Сделал вот так : firm = Replace(firm,"'","") firm = Replace(firm,"""", "") firm = Replace(firm,"»", "") firm = Replace(firm,"«", "") Корректировка не нужна? Ответить

Страница: 1 |