String Manipulation

1. Join Strings

    Digunakan untuk menggabungkan teks. 


      Private Sub CommandButton1_Click()

      Dim teks1 As String, teks2 As String

      teks1 = "Halo,"
      teks2 = "Nama saya bejo"

      MsgBox teks1 & " " & teks2
   
      End Sub




2.  Left

     Digunakan untuk mengambil karakter dari sebelah kiri

   Private Sub CommandButton1_Click()

     Dim teks As String

     teks = "tampilan"

     MsgBox Left(teks, 6)
 
     End Sub



3.  Right

     Digunakan untuk mengambil karakter dari sebelah kanan

   Private Sub CommandButton1_Click()

     Dim teks As String

     teks = "bertugas"

     MsgBox right(teks, 5)

     End Sub

4. Mid
    Digunakan untuk mengambil karakter dari tengah

      Private Sub CommandButton1_Click()   
      Dim teks As String
      teks = "menggunakan"
      MsgBox Mid(teks, 5, 4)

      End Sub



5. Len
    Digunakan untuk mengetahui jumlah karakter

      Private Sub CommandButton1_Click()

      Dim teks As String
      teks = "menggunakan"
      MsgBox Len(teks)

      End Sub



6. Instr
    Digunakan untuk mengetahui posisi awal subteks dalam sebuah teks

      Private Sub CommandButton1_Click()   
     
      Dim teks As String
      teks = "menggunakan"
      MsgBox instr(teks)

      End Sub














Tidak ada komentar:

Posting Komentar