в 16:40, 26 мая 2010

2010-05-26T16:40:16Z

Admin: 1 версия

2010-05-26T12:51:02Z

1 версия

Новая страница

==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>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net by API/System/Char - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия