正则表达式函数将字符替换为十六进制代码

Question

>我编写了一个代码来使用 Zebra 打印机，我需要使用 iso-8859-1 的特殊字符进行打印。

要打印标签，我使用RawPrinterHelp类并完成工作，但是当有特殊字符时不起作用。

我在此链接中找到 https://www.utf8-chartable.de/unicode-utf8-table.pl 中的表格，并使用标签中的正则表达式代码编写一个函数将特殊字符转换为十六进制 utf8。

我的函数是

Public Shared Function GetRawString(str As String) As String
Dim s As String = vbNullString
s = Regex.Replace(str, "[p{L}-[a-zA-Z]]", Function(m) String.Join(String.Empty, m.Value.[Select](Function(c) String.Format("_c3_{0:x2}", Convert.ToInt32(c))).ToArray()))
Return s
End Function

但这导致转换后的字符串不起作用。

问题是在我的函数中替换">c3{0：x2}"以转换为链接中的格式的正确字符串是什么？

Answer 1

我无法使用正则表达式来解决这个问题，我创建了自己的函数以供将来参考，这是一个答案。

Public Shared Function GetRawString(str As String) As String
Dim l() As String = {"á", "à", "ã", "â", "é", "ê", "í", "ó", "ô", "õ", "ú", "ç", "Á", "À", "Ã", "Â", "É", "Ê", "Í", "Ó", "Ô", "Õ", "Ú", "Ç", "°"}
Dim c() As String = {"_c3_a1", "_c3_a0", "_c3_a3", "_c3_a2", "_c3_a9", "_c3_aa", "_c3_ad", "_c3_b3", "_c3_b4", "_c3_b5", "_c3_ba", "_c3_a7", "_c3_81", "_c3_80", "_c3_83", "_c3_82", "_c3_89", "_c3_8a", "_c3_8d", "_c3_93", "_c3_94", "_c3_95", "_c3_9a", "_c3_87", "_c2_b0"}
Dim s As String = vbNullString
For i = LBound(l) To UBound(l)
str = str.Replace(l(i), c(i))
Next
Return str
End Function