Rubrik: Variablen/Strings | VB-Versionen: VB.NET | 18.05.05 |
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: | Views: 82.102 |
www.tools4vb.de | System: WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
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