'Beispiel: VB .Net - Char(0) und Char(32) aus String entfernen - Remove char from string ' ' Imports System Imports System.Drawing Imports System.Windows.Forms Imports vb = Microsoft.VisualBasic Namespace VB_DotNet_Remove_Char_0_Remove_Char_32_From_String Public Class MainForm Inherits System.Windows.Forms.Form Private button1 As System.Windows.Forms.Button Public Shared Sub Main Dim fMainForm As New MainForm fMainForm.ShowDialog() End Sub Public Sub New() MyBase.New Me.InitializeComponent End Sub #Region " Windows Forms Designer generated code " Private Sub InitializeComponent() Me.button1 = New System.Windows.Forms.Button Me.SuspendLayout ' 'button1 ' Me.button1.Location = New System.Drawing.Point(8, 8) Me.button1.Name = "button1" Me.button1.Size = New System.Drawing.Size(384, 208) Me.button1.TabIndex = 0 Me.button1.Text = "Remove Char(0) and Char(32) from String..." AddHandler Me.button1.Click, AddressOf Me.Button1Click ' 'MainForm ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(400, 221) Me.Controls.Add(Me.button1) Me.Name = "MainForm" Me.Text = "Testform <Char(0) und Char(32) aus String entfernen>" Me.ResumeLayout(false) End Sub #End Region Private Sub Button1Click(sender As System.Object, e As System.EventArgs) Dim [String] As String = " Dies ist ein Test " 'Length = 19 Dim cup As New StringCleanUp() Call cup.String_RemoveChars([String]) Dim Result As String = cup.MyCleanUp() MessageBox.Show(Result & System.Environment.NewLine & CStr(Result.Length)) End Sub End Class End Namespace Public Class StringCleanUp Private CleanUp As String = String.Empty Public ReadOnly Property MyCleanUp() As String Get Return CleanUp End Get End Property Public Sub String_RemoveChars(ByVal Source As String) If Source.Length = 0 Then Exit Sub Else Dim Position As Integer = 0 Do Until (Not Source.ToCharArray(Position, 1) = vb.Chr(0) And _ (Not Source.ToCharArray(Position, 1) = vb.Chr(32))) Position += 1 If Position >= vb.Len(Source) Then Exit Do Loop If (Position >= vb.Len(Source)) Then Exit Sub Dim PositionEnd As Integer = vb.Len(Source) - 1 Do Until (Not Source.ToCharArray(PositionEnd, 1) = vb.Chr(0) And _ (Not Source.ToCharArray(PositionEnd, 1) = vb.Chr(32))) PositionEnd -= 1 If PositionEnd <= 0 Then Exit Do Loop Dim [Length] As Integer = _ vb.Len(Source) - (((vb.Len(Source) - 1) - PositionEnd) + Position) CleanUp = Source.Substring(Position, [Length]) End If End Sub End Class