混合編碼爲字符串

Question

我有一個字符串在VB.net可能包含類似以下：

這是一個0x000020AC符號

這是UTF-32編碼爲歐根據這篇文章符號http://www.fileformat.info/info/unicode/char/20ac/index.htm

我想這個轉換成

這是在VB.net一個€符號

我使用UnicodeEncoding（）類試過（Framework 2.0的，因爲我修改遺留應用程序）

當我使用這個類來編碼，然後解碼我仍然回到原來的字符串。

我預計UnicodeEncoding會識別已編碼的部分，而不是對其進行編碼。但似乎並非如此。

我現在有點失落，至於如何將混合編碼字符串轉換爲普通字符串。

背景：將Excel電子表格保存爲CSV時，ascii範圍外的任何內容都將轉換爲？。所以我的想法是，如果我可以讓我的客戶端搜索/替換諸如歐元符號之類的幾個字符爲編碼字符串，例如0x000020AC。然後我希望在插入到SQL數據庫之前將這些編碼部分轉換回真實符號。

我已經試過這樣的功能

Public Function Decode(ByVal s As String) As String 
    Dim uni As New UnicodeEncoding() 
    Dim encodedBytes As Byte() = uni.GetBytes(s) 
    Dim output As String = "" 

    output = uni.GetString(encodedBytes) 

    Return output 
End Function 

這是基於MSDN上的例子在http://msdn.microsoft.com/en-us/library/system.text.unicodeencoding.aspx

這可能是因爲我的是如何工作的一個完整的錯誤認識VB.net。在C＃中，我可以簡單地使用諸如「\ u20AC」之類的轉義字符。但VB.net中不存在這樣的事情。

Answer 1

基於Heinzi的建議我使用下面的代碼實現了一個Regex.Replace方法，這似乎適用於我的示例。

Public Function Decode(ByVal s As String) As String 
Dim output As String = "" 
Dim sRegex As String = "0x[0-9a-zA-Z]{8}" 

Dim r As Regex = New Regex(sRegex) 

Dim myEvaluator As MatchEvaluator = New MatchEvaluator(AddressOf HexToString) 

output = r.Replace(s, myEvaluator) 

Return output 
End Function 

Public Function HexToString(ByVal hexString As Match) As String 
Dim uni As New UnicodeEncoding(True, True) 
Dim input As String = hexString.ToString 
input = input.Substring(2) 
input = input.TrimStart("0"c) 

Dim output As String 

Dim length As Integer = input.Length 
Dim upperBound As Integer = length \ 2 
If length Mod 2 = 0 Then 
    upperBound -= 1 
Else 
    input = "0" & input 
End If 
Dim bytes(upperBound) As Byte 
For i As Integer = 0 To upperBound 
    bytes(i) = Convert.ToByte(input.Substring(i * 2, 2), 16) 
Next 

output = uni.GetString(bytes) 

Return output 
End Function 

Answer 2

你試過：

Public Function Decode(Byval Coded as string) as string 
    Return StrConv(Coded, vbUnicode) 
End Function 

而且，你的函數是無效的。它將s作爲參數，做一堆東西，然後輸出放入其中的s，而不是在其中處理的東西。