powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / работа с xml
25 сообщений из 38, страница 1 из 2
работа с xml
    #38361907
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здравствуйте, с xml файлом на ВБ6 работать можно?
нужно читать, писать в него, искать в нём, есть код? спасибо
...
Рейтинг: 0 / 0
работа с xml
    #38361911
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
катастрофаЗдравствуйте, с xml файлом на ВБ6 работать можно?
нужно читать, писать в него, искать в нём, есть код? спасибо
Эндрю, тебе - можно всё !
http://www.script-coding.com/XMLDOMscripts.html
...
Рейтинг: 0 / 0
работа с xml
    #38361929
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
qwerty112, спасибо, шоколадная ссылка
...
Рейтинг: 0 / 0
работа с xml
    #38361933
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
и как узнать, что за ошибка -1072896759?


Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Option Explicit

Sub xml()

Dim xmlParser As Object
'Создаём OLE-объект DOMDocument
Set xmlParser = CreateObject("Msxml2.DOMDocument")
'Отключаем асинхронную загрузку
xmlParser.async = False
'Загружаем XML-документ
xmlParser.Load "C:\Sample.xml"
'Если случилась ошибка, выдаём информацию о ней и завершаем работу
If xmlParser.parseError.errorCode Then
    MsgBox$ xmlParser.parseError '-1072896759?
    Exit Sub
End If
'Выводим содержимое XML-документа
MsgBox$ xmlParser.xml
'Освобождаем объектную переменную
Set xmlParser = Nothing
'******************************************************************************
End Sub
...
Рейтинг: 0 / 0
работа с xml
    #38361954
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
катастрофаи как узнать, что за ошибка -1072896759?


Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Option Explicit

Sub xml()

Dim xmlParser As Object
'Создаём OLE-объект DOMDocument
Set xmlParser = CreateObject("Msxml2.DOMDocument")
'Отключаем асинхронную загрузку
xmlParser.async = False
'Загружаем XML-документ
xmlParser.Load "C:\Sample.xml"
'Если случилась ошибка, выдаём информацию о ней и завершаем работу
If xmlParser.parseError.errorCode Then
    MsgBox$ xmlParser.parseError '-1072896759?
    Exit Sub
End If
'Выводим содержимое XML-документа
MsgBox$ xmlParser.xml
'Освобождаем объектную переменную
Set xmlParser = Nothing
'******************************************************************************
End Sub


это (выделил) - объект

Свойства объекта XMLDOMParseError (все свойства доступны только для чтения):

Описание errorCode Содержит код возникшей ошибки или нуль, если ошибки не случилось. filepos Содержит смещение относительно начала файла, в котором обнаружена ошибка. line Содержит номер строки, в которой обнаружена ошибка. linepos Содержит позицию ошибки в строке, в которой обнаружена ошибка. reason Содержит описание ошибки. srcText Содержит полный текст строки, в которой обнаружена ошибка. url Содержит URL обрабатываемого документа.
...
Рейтинг: 0 / 0
работа с xml
    #38361955
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
qwerty112, короче други как я понял пофигу, что файл хмл, с ним можно работать как с текстовым, а там я как рыба в воде, или если строго разобраться с кодом на странице по ссылке кверти112 быстрей будет?
...
Рейтинг: 0 / 0
работа с xml
    #38361957
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
катастрофаqwerty112, короче други как я понял пофигу, что файл хмл, с ним можно работать как с текстовым, а там я как рыба в воде, или если строго разобраться с кодом на странице по ссылке кверти112 быстрей будет?
хмл как текст, - тоже конечно "вариант", ... - для "не ленивых", - тебе в самый раз будет :)
только не забудь, что некоторые символы в данных хмл-я будут кодированные при чтении, и должны кодироватся при сохранении
<>&?'"
...
Рейтинг: 0 / 0
работа с xml
    #38361965
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
qwerty112,
>только не забудь, что некоторые символы в данных хмл-я будут кодированные при чтении, и должны кодироватся при сохранении
<>&?'"

чтобы не гадать о чём речь и увидеть своими глазами можете приложить такой файл?
...
Рейтинг: 0 / 0
работа с xml
    #38361979
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2
что-то не в курсе в текстовом файле поиск можно сделать, а не построчно?
...
Рейтинг: 0 / 0
работа с xml
    #38396507
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
пятница, 13-е
что-то на мой вопрос и как узнать, что за ошибка -1072896759?
я не въехал и тогда и сейчас в ответ "это (выделил) - объект"
пояснить можете?
...
Рейтинг: 0 / 0
работа с xml
    #38396510
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не нужно этого знать. Описание ошибки находится в свойстве reason, правда на английском. А может и на русском есть версии.
...
Рейтинг: 0 / 0
работа с xml
    #38396514
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
катастрофапятница, 13-е
что-то на мой вопрос и как узнать, что за ошибка -1072896759?
я не въехал и тогда и сейчас в ответ "это (выделил) - объект"
пояснить можете?

вот так выведи ошибку, и проникнись её содержанием
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
'MsgBox$ xmlParser.parseError '-1072896759?
with xmlParser.parseError
  strTemp = "errorCode: " & .errorCode & vbCrLf & _
            "filepos: " & .filepos & vbCrLf & _
            "line: " & .line & vbCrLf & _
            "linepos: " & .linepos & vbCrLf & _
            "reason: " & .reason & vbCrLf & _
            "srcText: " & .srcText & vbCrLf & _
            "url: " & .url 
end with
MsgBox$ strTemp 
...
Рейтинг: 0 / 0
работа с xml
    #38396516
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Antonariy, давайте не будем ничего знать, заремарчим 'Exit Sub
и мессага пустая, толку?
...
Рейтинг: 0 / 0
работа с xml
    #38396517
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пустая? Не может быть. Напиши в условии If xmlParser.parseError.errorCode <> 0

Если опять будет ошибка, выложи xml.
...
Рейтинг: 0 / 0
работа с xml
    #38396524
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Antonariy, при чём тут ошибка
Код: vbnet
1.
2.
'Выводим содержимое XML-документа
MsgBox$ xmlParser.xml


и получаю пустоту
...
Рейтинг: 0 / 0
работа с xml
    #38396525
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а читать ошибку - толку, ругается на строку
<head>
ему задание дали читать - пусть читает!
...
Рейтинг: 0 / 0
работа с xml
    #38396529
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
катастрофаа читать ошибку - толку, ругается на строку
<head>
ему задание дали читать - пусть читает!
Код: plaintext
1.
2.
<интуитю>
  ТС "читает" хтмл-страничку :)
</интуитю>
...
Рейтинг: 0 / 0
работа с xml
    #38396531
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
qwerty112, а как же команда - xmlParser.Load "C:\1.xml"
...
Рейтинг: 0 / 0
работа с xml
    #38396532
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
катастрофаqwerty112, а как же команда - xmlParser.Load "C:\1.xml"
Код: plaintext
1.
2.
<версия>
  ТС - "злой и коварный", поэтому поменял расширение у файла :)
</версия>

файл давай ! и не "морочь бабушке пейтсы" (с)
...
Рейтинг: 0 / 0
работа с xml
    #38396535
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
qwerty112,
>поэтому поменял расширение у файла
не спорю, помоему так и есть, и что это меняет
человек он же не только царь зверей но и компьютеров
ему сказали, загрузить, читать и он не тянет?
...
Рейтинг: 0 / 0
работа с xml
    #38396537
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
катастрофа сообщает - ну да реальный файл читает, буду разбираться
...
Рейтинг: 0 / 0
работа с xml
    #38396538
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
катастрофаqwerty112,
>поэтому поменял расширение у файла
не спорю, помоему так и есть, и что это меняет
Эндрю, это ты "хлопцев на форуме", можешь "разводить" расширением файла,
а Msxml2.DOMDocument , какбэ, - "зрит глубже" :)

зы
...
Рейтинг: 0 / 0
работа с xml
    #38396540
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
как там сказано
в приведённых примерах кода, используется следующий "образцовый" XML-документ, представляющий из себя некий абстрактный упрощённый каталог товаров
а если у меня по другому, пролетаю?
Код: xml
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.
28.
29.
30.
31.
32.
<FL:smarttaglist xmlns:FL="urn:schemas-microsoft-com:smarttags:list">
	<FL:name>Medical Condition Terms</FL:name> 
	<FL:lcid>1049</FL:lcid> 
	<FL:description>A list of medical conditions for recognition, as well as a set of actions that work with them.</FL:description> 
	<FL:moreinfourl>http://www.adatum.com/moreinfo</FL:moreinfourl> 
	<FL:updateable>true</FL:updateable> 
	<FL:autoupdate>true</FL:autoupdate> 
	<FL:lastcheckpoint>100</FL:lastcheckpoint> 
	<FL:lastupdate>0</FL:lastupdate> 
	<FL:updateurl>http://www.adatum.com/smarttags/listupdate.xml</FL:updateurl> 
	<FL:updatefrequency>5</FL:updatefrequency> 
	<FL:smarttag type="urn:schemas-adatum-com:medical#condition">
		<FL:caption>Действие кванта</FL:caption> 
		<FL:terms>
			<FL:termlist>allergy, kvant, квант</FL:termlist> 
		</FL:terms>
		<FL:actions>
			<FL:action id="CompanyInfo">
				<FL:caption>&amp;A. Datum Corporation Company Reports</FL:caption> 
				<FL:url>http://www.adatum.com</FL:url> 
			</FL:action>
			<FL:action id="CompanyHomePage">
				<FL:caption>View A. &amp;Datum Website</FL:caption> 
				<FL:url>http://www.adatum2.com/home.asp?String={TEXT}</FL:url> 
			</FL:action>
			<FL:action id="YandexSearch">
				<FL:caption>Искать в &amp;Яндексе</FL:caption> 
				<FL:url>http://yandex.ru/yandsearch?text={TEXT}</FL:url> 
			</FL:action>
		</FL:actions>
	</FL:smarttag>
</FL:smarttaglist>
...
Рейтинг: 0 / 0
работа с xml
    #38396550
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
катастрофакак там сказано
в приведённых примерах кода, используется следующий "образцовый" XML-документ, представляющий из себя некий абстрактный упрощённый каталог товаров
а если у меня по другому, пролетаю?
Код: xml
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.
28.
29.
30.
31.
32.
<FL:smarttaglist xmlns:FL="urn:schemas-microsoft-com:smarttags:list">
	<FL:name>Medical Condition Terms</FL:name> 
	<FL:lcid>1049</FL:lcid> 
	<FL:description>A list of medical conditions for recognition, as well as a set of actions that work with them.</FL:description> 
	<FL:moreinfourl>http://www.adatum.com/moreinfo</FL:moreinfourl> 
	<FL:updateable>true</FL:updateable> 
	<FL:autoupdate>true</FL:autoupdate> 
	<FL:lastcheckpoint>100</FL:lastcheckpoint> 
	<FL:lastupdate>0</FL:lastupdate> 
	<FL:updateurl>http://www.adatum.com/smarttags/listupdate.xml</FL:updateurl> 
	<FL:updatefrequency>5</FL:updatefrequency> 
	<FL:smarttag type="urn:schemas-adatum-com:medical#condition">
		<FL:caption>Действие кванта</FL:caption> 
		<FL:terms>
			<FL:termlist>allergy, kvant, квант</FL:termlist> 
		</FL:terms>
		<FL:actions>
			<FL:action id="CompanyInfo">
				<FL:caption>&A. Datum Corporation Company Reports</FL:caption> 
				<FL:url>http://www.adatum.com</FL:url> 
			</FL:action>
			<FL:action id="CompanyHomePage">
				<FL:caption>View A. &Datum Website</FL:caption> 
				<FL:url>http://www.adatum2.com/home.asp?String={TEXT}</FL:url> 
			</FL:action>
			<FL:action id="YandexSearch">
				<FL:caption>Искать в &Яндексе</FL:caption> 
				<FL:url>http://yandex.ru/yandsearch?text={TEXT}</FL:url> 
			</FL:action>
		</FL:actions>
	</FL:smarttag>
</FL:smarttaglist>


Эндрю, начнём с того, что xmlParser.parseError даёт вполне "внятное" описание ошибки,
вот
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
errorCode: -1072896760
filepos: 728
line: 14
linepos: 15
reason: В текстовом комментарии обнаружен недопустимый знак.
srcText:        <FL:caption>
url: file:///C:/haba.xml


дальше, - это хмл со схемой,
что там за правила в этой схеме действуют - я не знаю, - разбирайся сам,
но походу "она" "против" кириллицы в теге <FL:caption>, так как такой хмл (ниже) "пережовует на раз"
Код: xml
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.
28.
29.
30.
31.
32.
33.
<?xml version="1.0"?>
<FL:smarttaglist xmlns:FL="urn:schemas-microsoft-com:smarttags:list">
	<FL:name>Medical Condition Terms</FL:name> 
	<FL:lcid>1049</FL:lcid> 
	<FL:description>A list of medical conditions for recognition, as well as a set of actions that work with them.</FL:description> 
	<FL:moreinfourl>http://www.adatum.com/moreinfo</FL:moreinfourl> 
	<FL:updateable>true</FL:updateable> 
	<FL:autoupdate>true</FL:autoupdate> 
	<FL:lastcheckpoint>100</FL:lastcheckpoint> 
	<FL:lastupdate>0</FL:lastupdate> 
	<FL:updateurl>http://www.adatum.com/smarttags/listupdate.xml</FL:updateurl> 
	<FL:updatefrequency>5</FL:updatefrequency> 
	<FL:smarttag type="urn:schemas-adatum-com:medical#condition">
		<FL:caption>djepa</FL:caption> 
		<FL:terms>
			<FL:termlist></FL:termlist> 
		</FL:terms>
		<FL:actions>
			<FL:action id="CompanyInfo">
				<FL:caption>djepa</FL:caption> 
				<FL:url>http://www.adatum.com</FL:url> 
			</FL:action>
			<FL:action id="CompanyHomePage">
				<FL:caption></FL:caption> 
				<FL:url>http://www.adatum2.com/home.asp?String={TEXT}</FL:url> 
			</FL:action>
			<FL:action id="YandexSearch">
				<FL:caption>djepa</FL:caption> 
				<FL:url>http://yandex.ru/yandsearch?text={TEXT}</FL:url> 
			</FL:action>
		</FL:actions>
	</FL:smarttag>
</FL:smarttaglist>
...
Рейтинг: 0 / 0
работа с xml
    #38396551
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
qwerty112, когда уже с кириллицей начнут считаться, понял, учту, спасибо
...
Рейтинг: 0 / 0
25 сообщений из 38, страница 1 из 2
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / работа с xml
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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