將sql_latin1_general_cp1_ci_as字符串轉換爲utf8使用VBS

我必須編寫一個腳本，將字符串從sql_latin1_general_cp1_ci_as中的MSSQL服務器數據庫轉換爲XML文件中使用UTF8編碼的值。有沒有人有想法如何在VBS中做？將sql_latin1_general_cp1_ci_as字符串轉換爲utf8使用VBS

謝謝！

來源

2011-03-10 Oleg Ishenko

是整個字符串XML？ – 2011-03-10 20:37:27

輸出必須是xml。輸入是來自MSSQL服務器數據庫的查詢結果 – 2011-03-14 07:34:19

您可能需要爲您的問題添加更多上下文，但第一個答案是使用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

如果你在這一點上是已經，讓我知道如果您有任何具體問題

來源

2011-03-14 08:50:57

感謝您的解決方案，但問題已經解決。 – 2011-03-15 09:28:01

將sql_latin1_general_cp1_ci_as字符串轉換爲utf8使用VBS

回答

相關問題