Dernier mais un Char dans vb.net Chaîne

Question

Comment puis-je trouver le dernier mais un caractère dans un vbstring

par exemple. Dans la chaîne V1245-12V0 je veux retourner V

Answer 1

Si vous voulez obtenir le dernier caractère alpha dans une chaîne, vous pouvez utiliser une requête LINQ tels que (C#):

var d = from c in myString.ToCharArray().Reverse() 
       where Char.IsLetter(c) 
       select c; 
return d.First(); 

Answer 2

string.Substring (string.Length - 2, 1);

Answer 3

Désolé, il a été un moment que je l'ai fait VB donc cela ne peut pas être parfait (et est probablement un mélange de C# et VB), mais vous voyez l'idée:

Dim s = "V1245-12V0" 
Dim lastButOneLetter = String.Empty 

If s.Length > 1 Then 
    'Can only get the last-but-one letter from a string that is minimum 2 characters 
    lastButOneLetter = s.Substring(s.Length - 2, 1) 
Else 
    'do something if string is less than 2 characters 
End If 

EDIT: fixe être compilable VB Code .NET.

Answer 4

Utilisez le Substring sur la chaîne s contenant « V1245-12V0 »

s.Substring(s.Length - 2, 1); 

Answer 5

Vous pouvez avoir vos propres fonctions comme

Function Left(ByVal str as string, byval index as integer) As String 

    Left=str.Substring(0,index); 
End Function 

Function Right(ByVal str as string, byval index as integer) As String 

    Right=str.Substring(str.Length-index) 
End Function 

et les utiliser pour obtenir ce dont vous avez besoin.

Answer 6

Dim secondToLastChar As Char 
secondToLastChar = Microsoft.VisualBasic.Strings.GetChar(mystring, mystring.Length - 2) 

http://msdn.microsoft.com/en-us/library/4dhfexk4(VS.80).aspx

Ou tout simplement se rappeler que toute chaîne est un tableau de caractères;

secondToLastChar = mystring(mystring.Length - 2) 

Answer 7

Était-ce difficile?

dim mychar as string 
dim yourstring as string 
yourstring="V1245-12V0" 
mychar=yourstring.Substring(yourstring.Length - 2, 1) 

Answer 8

Ne pas utiliser sous-chaîne pour obtenir un seul caractère

Dim MyString As String = "V1245-12V0" 
Dim MyChar As Char = MyString(MyString.Length - 2) 

Answer 9

Voici une solution VB:

Dim text = "V1245-12V0" 
Dim v = Left(Right(text, 2), 1) 

Vous ne pas besoin de vérifier la longueur de text , sauf pour votre sémantique quant à ce que vous voulez arriver pour vide (et Nothing) et les chaînes de caractères simples.