Question

我正在尝试将WText转换为ASCII代码并将其放入TextBox; Numencrypt。但我不想将空格转换为ASCII码。

如何用null替换空格？

当前代码：

Dim withSpace As String = Numencrypt.Text
For h = 1 To lenText
    wASC = wASC & CStr(Asc(Mid$(WText, h, 1)))
Next h
Numencrypt.Text = wASC
Numencrypt2.Text = Numencrypt2.Replace(Numencrypt.Text, " ", "")

顺便说一下，TextBox Numencrypt2是WText，里面没有空格。

Answer 1

在不知道您是否需要空字符或空字符串的情况下，我在控制台应用程序中执行了以下操作，因此我没有您的变量。我还使用了字符串构建器来使字符串连接更具性能。

Dim withSpaces = "This has some spaces in it!"
withSpaces = withSpaces.Replace(" "c, ControlChars.NullChar)
Dim wASC As New StringBuilder
For h = 1 To withSpaces.Length
    wASC.Append($"{AscW(Mid(withSpaces, h, 1))} ") ' Added a space so you can see the boundaries ascii code boundaries.
Next
Dim theResult = wASC.ToString()

Console.WriteLine(theResult)

你会发现，如果你使用ControlChars.NewLine，你有空格的地方将用零表示。如果您使用Replace(" ", "")

，则完全忽略该位置

如何替换字符串中的字符

1 个答案: