需要从文本框中排除输入密钥

从基于文本的文件中读取文本到文本框中的下面的代码，但也显示了输入键（作为两个小框）我需要我的代码来减去文本框中绝对最后一个字符如何才能做到这一点？前需要从文本框中排除输入密钥

String.IsNullOrEmpty：

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

    Dim ReadALPHA As System.IO.StreamReader 

    ReadALPHA = System.IO.File.OpenText("C:\Alpha.val") 
    TextBox1.Text = (ReadALPHA.ReadToEnd) 
    ReadALPHA.Close() 

    Dim ReadBETA As System.IO.StreamReader 

    ReadBETA = System.IO.File.OpenText("C:\BETA.val") 
    TextBox2.Text = (ReadBETA.ReadToEnd) 
    ReadBETA.Close() 


    'TextBox1.Text = "<Enter first value>" 
    'TextBox2.Text = "<Enter second value>" 

End Sub

来源

2011-02-18 Mac

的Mac，如果你认为我的回答对你来说已经够好了，请问你能否关闭它？谢谢 – LeftyX 2011-02-18 09:37:06

可以替换的字符，像这样：

TextBox2.Text = (ReadBETA.ReadToEnd).Replace(Environment.NewLine, " ")

但它总是最好检查字符串为空。

Dim Buffer As String 
Buffer = ReadBETA.ReadToEnd 
If Not String.IsNullOrEmpty(Buffer) Then 
    TextBox2.Text = Buffer.Replace(Environment.NewLine, " ") 
End If

甚至更好，检查那些讨厌的人物与扩展方法：

进口System.Runtime.CompilerServices

Public Module ExtMethods 

    <Extension()> _ 
    Public Function ReplaceEnterKeyword(ByVal Value As String, Optional ByVal CharSubstitution As String = "") As String 
     If Not String.IsNullOrEmpty(Value) Then 
      With Value 
       Value = .Replace(Microsoft.VisualBasic.ControlChars.CrLf, CharSubstitution) _ 
         .Replace(Microsoft.VisualBasic.ControlChars.Cr, CharSubstitution) _ 
         .Replace(Microsoft.VisualBasic.ControlChars.Lf, CharSubstitution) 
      End With 
     End If 
     Return (Value) 
    End Function 

End Module

，并调用它像这样：

TextBox2.Text = Buffer.ReplaceEnterKeyword(" ");

来源

2011-02-18 08:27:13 LeftyX

TextBox2.Text =（ReadBETA.ReadToEnd）

如果Textbox2.Text.Length> 0，则

TextBox2.Text = TextBox2.Text.Remove（TextBox2.Text.Length - 1,1）

结束如果

来源

2011-02-19 01:43:12 Rob

需要从文本框中排除输入密钥

回答

相关问题