Конвертируйте строку sql_latin1_general_cp1_ci_as в utf8, используя VBS

Question

Мне нужно написать скрипт, который преобразует строку из базы данных MSSQL Server в sql_latin1_general_cp1_ci_as в значение в XML-файле, который находится в кодировке UTF8.У кого-нибудь есть идеи, как это сделать в VBS?

Спасибо!

Answer 1

вам может потребоваться добавить немного больше контекста к вашему вопросу, но первым ответом будет запрос к базе данных с использованием ADODB, загрузка XML в MSXML2, использование XPath, чтобы затем выбрать узел, в который вы хотите добавить свой результат.вставьте строку как текст узла.

''#open the data
dim ado: set ado = CreateObject("ADODB.Connection")
ado.ConnectionString = "..."
ado.open
dim rs: set rs = ado.Execute("SELECT TOP 1 your_string FROM your_data_table")

''#open the XML
dim xmldoc: set xmldoc = CreateObject("MSXML2.DomDocument")
xmldoc.async = false
xmldoc.setProperty "SelectionLanguage", "XPath"
''# you might also need setProperty "SelectionNamespaces", "xmlns=..." depending on your XML 
xmldoc.load "path\to\your\XML"

''# store the string in the XML and save
xmldoc.selectSingleNode("//xpath/to/your/target/node").text = rs.fields["your_string"].value
xmldoc.save "path\to\your\output\xml"

rs.close
ado.close

Если вы уже на этом этапе, дайте мне знать, если у вас есть какие-либо конкретные проблемы