VB.Net by API/System/Char
Содержание
Char.IsDigit
<source lang="vbnet"> Imports System Public Class MainClass
Shared Sub Main() Console.WriteLine("is digit: " & Char.IsDigit("aaa") ) End Sub " Main
End Class
</source>
Char.IsLetter
<source lang="vbnet"> Imports System Public Class MainClass
Shared Sub Main() Console.WriteLine("is letter: " & Char.IsLetter("aaa") ) End Sub " Main
End Class
</source>
Char.IsLetterOrDigit
<source lang="vbnet"> Imports System Public Class MainClass
Shared Sub Main() Console.WriteLine("is letter or digit: " & Char.IsLetterOrDigit("aaa") ) End Sub " Main
End Class
</source>
Char.IsLower
<source lang="vbnet"> Imports System Public Class MainClass
Shared Sub Main() Console.WriteLine("is lower case: " & Char.IsLower("aaa") ) End Sub " Main
End Class
</source>
Char.IsPunctuation
<source lang="vbnet"> Imports System Public Class MainClass
Shared Sub Main() Console.WriteLine("is punctuation: " & Char.IsPunctuation("aaa") ) End Sub " Main
End Class
</source>
Char.IsSymbol
<source lang="vbnet"> Imports System Public Class MainClass
Shared Sub Main() Console.WriteLine("is symbol: " & Char.IsSymbol("aaa")) End Sub " Main
End Class
</source>
Char.IsUpper
<source lang="vbnet"> Imports System Public Class MainClass
Shared Sub Main() Console.WriteLine("is upper case: " & Char.IsUpper("aaa") ) End Sub " Main
End Class
</source>
Char.IsWhiteSpace
<source lang="vbnet">
Public Class Tester
Public Shared Sub Main Dim source As String = _ Space(17) & "This string had " & Chr(12) & _ StrDup(5, Chr(9)) & "extra whitespace. " & Space(27) Dim thisIsWhiteSpace As Boolean Dim prevIsWhiteSpace As Boolean Dim result As New System.Text.StringBuilder(source.Length) Dim counter As Integer For counter = 0 To source.Length - 1 prevIsWhiteSpace = thisIsWhiteSpace thisIsWhiteSpace = Char.IsWhiteSpace(source.Chars(counter)) If (thisIsWhiteSpace = False) Then If (prevIsWhiteSpace = True) AndAlso _ (result.Length > 0) Then result.Append(Space(1)) result.Append(source.Chars(counter)) End If Next counter Console.WriteLine(result.ToString()) End Sub
End Class
</source>
Char.ToLower
<source lang="vbnet"> Imports System Public Class MainClass
Shared Sub Main() Console.WriteLine("to lower case: " & Char.ToLower("aaa") ) End Sub " Main
End Class
</source>
Char.ToUpper
<source lang="vbnet"> Imports System Public Class MainClass
Shared Sub Main() Console.WriteLine("to upper case: " & Char.ToUpper("aaa") ) End Sub " Main
End Class
</source>