VB.Net Tutorial/Data Type/String Case — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 15:54, 26 мая 2010
Capitalize the first letter
<source lang="vbnet">Public Class Tester
Public Shared Sub Main Dim quote As String = "AbCdEfG" Dim result As New System.Text.StringBuilder result.AppendLine("Original: " & quote) result.AppendLine("Upper Case: " & quote.ToUpper()) result.AppendLine("Lower Case: " & quote.ToLower()) result.AppendLine("Mixed Case: " & MixedCase(quote)) Console.WriteLine(result.ToString()) End Sub Public Shared Function MixedCase(ByVal origText As String) As String Dim counter As Integer Dim textParts() As String = Split(origText, " ") For counter = 0 To textParts.Length - 1 If (textParts(counter).Length > 0) Then _ textParts(counter) = _ UCase(Microsoft.VisualBasic.Left( _ textParts(counter), 1)) & _ LCase(Mid(textParts(counter), 2)) Next counter Return Join(textParts, " ") End Function
End Class</source>
Original: AbCdEfG Upper Case: ABCDEFG Lower Case: abcdefg Mixed Case: Abcdefg
Change string to lower case and upper case
<source lang="vbnet">Public Class Tester
Public Shared Sub Main Dim quote As String = "AbCdEfG" Dim result As New System.Text.StringBuilder result.AppendLine("Original: " & quote) result.AppendLine("Upper Case: " & quote.ToUpper()) result.AppendLine("Lower Case: " & quote.ToLower()) result.AppendLine("Mixed Case: " & MixedCase(quote)) Console.WriteLine(result.ToString()) End Sub Public Shared Function MixedCase(ByVal origText As String) As String Dim counter As Integer Dim textParts() As String = Split(origText, " ") For counter = 0 To textParts.Length - 1 If (textParts(counter).Length > 0) Then _ textParts(counter) = _ UCase(Microsoft.VisualBasic.Left( _ textParts(counter), 1)) & _ LCase(Mid(textParts(counter), 2)) Next counter Return Join(textParts, " ") End Function
End Class</source>
Original: AbCdEfG Upper Case: ABCDEFG Lower Case: abcdefg Mixed Case: Abcdefg
Change string to upper case by using UCase
<source lang="vbnet">Class Tester
Shared Sub Main() Dim userInput As String userInput = " asdf " Console.WriteLine(UCase(userInput)) End Sub
End Class</source>
ASDF