Sintaks Mengubah Kapitalisasi teks/string

Share:



  • Mengubah semua ke huruf kecil (Letter Case)

       Dim Contoh As String
         Dim Hasil As String

         Contoh = "Visual Basic NET"
         Hasil = LCase(Contoh)
         'Hasil = visual basic net
         Mengubah semua ke huruf besar (Upper Case).
         Dim Contoh As String
         Dim Hasil As String

         Contoh = "Visual Basic NET"
         Hasil = UCase(Contoh)
         'Hasil = VISUAL BASIC NET

  • Huruf besar di tiap awal kata (Title Case)

         Dim Contoh As String
         Dim Hasil As String

         Contoh = "Visual Basic NET"
         Hasil = StrConv(Contoh, VbStrConv.ProperCase)
         'Hasil = Visual Basic Net

  • Huruf kecil di tiap awal kata (Toggle Case)

         Dim Contoh As String
         Dim Hasil As String
         Dim c As Char

         Contoh = "Visual Basic NET"
         For Each c In StrConv(Contoh, VbStrConv.ProperCase)
         If Char.IsLower(c) Then
         Hasil &= UCase(c)
         Else
         Hasil &= LCase(c)
         End If
         Next
         'Hasil = vISUAL bASIC nET

Tidak ada komentar