Question

在古代, 我们可以指定所有字符, 名称为 chr( 56)

例如, 说字符不可打印。我们想把它放在字符串中。只要做

Dim a as string = chr (56)

现在我们有UTF8或 Unicode (或任何编码) 。

说我想让变数A包含

 &#8194;    &ensp;      en space
 &#8195;    &emsp;      em space
 &#8201;    &thinsp;    thin space
‌ &#8204;    &zwnj;      zero width non-joiner
‍ &#8205;    &zwj;       zero width joiner
‎ &#8206;    &lrm;       left-to-right mark
 &#8207;    &rlm;       right-to-left mark

事实上,说我想建立一个功能来从我的弦上除掉所有这些人物

我该如何做呢?

我希望这个功能能保持中国人、韩国人、日本人的角色完整,

Answer 1

"http://msdn.microsoft.com/en-us/library/microsoft.visualbility.basy.strings.strings.replace" rel=“nofollow” >Replace 移除任何你想要的字符。 ChrW 生成了按代码(在Unicode Plane 0 外生成字符,您需要将 2 Char 连接起来) 的 Unicode 字符。

类似 :

Replace("My text", ChrW(8194), "");

Answer 2

    <summary>
    This function replaces  smart quotes  (ASC 145, 146, 147, 148, 150) with their correct ASCII versions (ASC 39, 34, 45), and replaces any other non-ASCII characters with "?"
    </summary>
    <param name="expression"></param>
    <returns></returns>
    <remarks></remarks>
Public Function Unicode2ASCII(ByVal expression As String) As String
  Dim sb As New System.Text.StringBuilder
  For i As Integer = 1 To Len(expression)
    Dim s As String = Mid(expression, i, 1)
    Select Case Asc(s)
      Case 145, 146  apostrophes 
        sb.Append(" "c)
      Case 147, 148  inverted commas 
        sb.Append(""""c)
      Case 150  hyphen 
        sb.Append("-"c)
      Case Is > 127
        sb.Append("?"c)
      Case Else
        sb.Append(s)
    End Select
  Next i
  Return sb.ToString
End Function

或者添加它们...

Dim s As String = "a" & ChrW(8194) & "b"
MsgBox(s)

Answer 3

似乎应该有更好的办法, 但我所能想到的最好办法, 在所有情况下都会有效,

Private Function getString(ByVal xmlCharacterCode As String) As String
    Dim doc As XmlDocument = New XmlDocument()
    doc.LoadXml("<?xml version=""1.0"" encoding=""utf-8""?><test>" + xmlCharacterCode + "</test>")
    Return doc.InnerText
End Function

然后像这样使用它:

myString = myString.Replace(getString("&#8194;"), "")

另外,你不妨看看我找到的这页:

< a href=' https://stackoverflow.com/ questions/3393153/easy-way-way-to-convert-xx-from-html-to-utf-8-xml-either- programmaticaly-in-ne" > 转换 & amp;# XXXX; 将 HTML 转换为 UTF-8 xml 的简单方法。

友情链接