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, " ", "")
ところで、TextBoxNumencrypt2は内部空間なしWTEXTです。
null文字または空の文字列を使用するかどうかわからず、私はコンソールアプリケーションで次のことを行ったので、変数はありません。また、文字列の連結をより効率的にするために、文字列ビルダーを使用しました。
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(" ", "")
私はあなたの質問を理解することはできませんが、最初に入力文字列内のスペースを置き換え、文字列をASCIIコード_に変換するのはどうですか？ – Pikoh
サンプルと期待される出力を提供できますか？ – Prisoner
あまりにも遅くスペースを置き換えているようです。大文字スペースをASCIIコードに変換したくない場合は、ループの前にそれらを削除する必要があります。試してみてください。 'Dim withSpace As String = Numencrypt.Text.Replace（" "、" "）'代わりに。 –