Left- und Right-Funktion nachgebaut (VB.NET) Dieser Tipp stellt zwei String-Funktionen vor, die so mancher VB6´ler beim Umstieg auf VB.NET vermisst.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  83.027
https://www.tools4vb.com	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 25 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.5 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Beim Umstieg von VB6 nach VB.NET vermisst so manch einer die beliebten Left- und Right-Funktionen zur String-Manipulation. Diese beiden Funktionen stehen standardmäßig unter VB.NET nicht mehr zur Verfügung und müssen durch die Substr-Methode des Strings ersetzt werden - es sei denn man import explizit die Visual Basic Klasse über die Anweisung:

Imports Microsoft.VisualBasic

Es geht aber auch ohne das Importieren der Visual Basic Klasse, indem man einfach die beiden Funktionen nachbaut:

' Left in VB.NET nachgebaut
Public Function Left(ByVal sText As String, _
  ByVal nLen As Integer) As String
 
  If nLen > sText.Length Then nLen = sText.Length
  Return (sText.Substring(0, nLen))
End Function

' Right in VB.NET nachgebaut
Public Function Right(ByVal sText As String, _
  ByVal nLen As Integer) As String
 
  If nLen > sText.Length Then nLen = sText.Length
  Return (sText.Substring(sText.Length - nLen))
End Function

Ab sofort können Sie in Ihrem VB.NET Code die beiden Left- und Right-Funktionen wieder wie gewohnt verwenden:

Dim sTest As String = "Das ist ein Test"
 
MsgBox Left(sTest, 3)   ' Das
MsgBox Right(sTest, 4)  ' Test