Tutorial VB.NET : String Equals() CopyTo() Copy() Contains()

Tutorial VB.NET - Bagaimana cara menggunakan String Equals() CopyTo() Copy() Contains() String Compare() Clone() Chars() substring() Split() EndsWith() Concat() dan string Null ? Tutorial Vb.Net sebelumnya baca VB.NET String Length() Insert() IndexOf(),

Vb.Net Penggunaan String Equals()

VB.NET Functions String Equals() berguna untuk memeriksa dua nilai Obyek String yang sudah ditentukan apakah sama atau tidak

System.String.Equals(String x1, String x2) As Boolean

String x1 : argument (String)
String x2 : argument (String)

As Boolean : ya atau tidak
Contoh dalam aplikasi

Public Class Scode
    Private Sub Btn1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Btn1.Click
        Dim x1 As String = "Equals"
        Dim x2 As String = "Equals"

        If String.Equals(x1, x2) Then
            MsgBox("Strings are Equal() ")
        Else
            MsgBox("Strings are not Equal() ")
        End If
    End Sub
End Class

Coba kamu jalankan aplikasi akan menghasilkan pesan "Strings are Equal()".

Vb.Net Penggunaan String CopyTo()

VB.NET Functions String CopyTo() method yang dignakan dengan menyalin sejumlah karakter tertentu dari posisi yang sudah ditentukan, dalam contoh ini posisi ditentukan dalam bentuk array.

System.String.CopyTo(ByVal sourceIndex As Integer, ByVal destination() As Char, ByVal destinationIndex As Integer, ByVal count As Integer)

Integer sourceIndex merupakan posisi awal dari sumber input.
Char destination() : Character Array

Integer destinationIndex : Element Array Tujuan

Integer count : Jumlah Characters ke tujuan.

Contoh Penggunaan CopyTo()

Public Class Scode
    Private Sub Btn1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Btn1.Click
        Dim x1 As String = "Ganteng Banget"
        Dim chrs(6) As Char
        x1.CopyTo(0, chrs, 0, 7)
        MsgBox(chrs(0) + chrs(1) + chrs(2) + chrs(3) + chrs(4) + chrs(5) + chrs(6))

    End Sub
End Class

Jalankan dan kamu akan mendapatkah pesan "Ganteng"

Vb.Net Penggunaan String CopyTo()

VB.NET String Copy() menggunakan Method yang membuat String objek  baru dengan isi yang sama.

System.String.Copy(ByVal str As String) As String

String str : Argumen String yang ddigunakan untuk Method Copy
As String : Mengembalikan String baru sebagai konten yang sama dengan argumen String sebelumnya.

Public Class Scode
    Private Sub Btn1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Btn1.Click
        Dim str1 As String
        Dim str2 As String
        str1 = "Sector Code Ganteng"
        str2 = String.Copy(str1)
        MsgBox(str2)
    End Sub
End Class

Jalankan aplikasi dan hasilnya "Sector Code Ganteng".

Vb.Net Penggunaan String Contains()

VB.NET String Contains() yang berfungsi untuk memeriksa parameter yang ditentukan dari String yang ada dalam String.

System.String.Contains(String str) As Boolean

String str - String input yang akan di periksa

Contoh penggunaan String Contains()

Public Class Scode
    Private Sub Btn1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Btn1.Click
        Dim str As String
        str = "Scode Ganteng banget"
        If str.Contains("Ganteng") = True Then
            MsgBox("ditemukan kata 'Ganteng'")
        Else
            MsgBox("Tidak ada kata 'Ganteng'")
        End If
    End Sub
End Class

akan menghasilkan " ditemukan kata 'Ganteng'" .

Vb.Net Penggunaan String Compare()

VB.NET Functions String Compare() digunakan untuk membandingkan dua String Objek.

System.String.Compare(String str1,String str2, Boolean ) As Integer

String x1: Parameter String
String x2: Parameter String

Contoh penggunaan String Compare()

Public Class Scode
    Private Sub Btn1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Btn1.Click
        Dim x1 As String
        Dim x2 As String
        x1 = "vb.net"
        x2 = "VB.NET"
        Dim Hasil As Integer
        Hasil = String.Compare(x1, x2)
        MsgBox(Hasil)
        Hasil = String.Compare(x1, x2, True)
        MsgBox(Hasil)
    End Sub
End Class

Maka hasilnya akan memberikan pesan pertama "-1" dan pesan ke dua "0"

Vb.Net Penggunaan String Clone()

String Clone() menggunakan Method mengembalikan referensi ke contoh String yang di Clone.

Public Function Clone() As Object

Contoh penggunaan String Clone()

Public Class Scode
    Private Sub Btn1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Btn1.Click
        Dim str As String = "Ini adalah String"
        Dim clonedString As String
        clonedString = str.Clone()
        MsgBox(clonedString)
    End Sub
End Class

Hasil yang akan ditampilkan di pesan box "Ini adalah String".

Penggunaan String Chars()

Metode VB.NET String Chars() menghasilkan Chars pada indeks yang sudah ditentukan.

Public Class Scode
    Private Sub Btn1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Btn1.Click
        Dim str As String = "Scode Ganteng Banget"
        Dim singleChar As Char
        singleChar = str.Chars(4)
        MsgBox(singleChar)
    End Sub
End Class

Akan menghasilkan pesan 'e'.

Penggunaan String Substring()

Substring() di Vb.Net Class string mengembalikan string baru yang merupakan substring dari string ini. Substring diberikan indeks tertentu dan diperpanjang sampai dengan panjang string yang diberikan.

Contoh Penggunaan Substring()

Public Function Substring(ByVal startIndex As Integer, ByVal length As Integer) As String

Public Class Scode
    Private Sub Btn1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Btn1.Click
        Dim str As String
        Dim retString As String
        str = "This is substring test"
        retString = str.Substring(8, 9)
        MsgBox(retString)
    End Sub
End Class

Hasil dari program diadatas "subtring".

Penggunaan String Split()

VB.Net Functions Split() Mengeluarkan substring dari string yang diberikan dan dibatasi oleh parameter pemisah, dan mengembalikan substring sebagai elemen array.

Public Function Split(ByVal ParamArray separator() As Char) As String()

Contoh Penggunaan Split()

Public Class Scode
    Private Sub Btn1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Btn1.Click
        Dim str As String
        Dim strArr() As String
        Dim count As Integer
        str = "Sector Code Ganteng banget"
        strArr = str.Split(" ")
        For count = 0 To strArr.Length - 1
            MsgBox(strArr(count))
        Next
    End Sub
End Class

Hasilnya adalah :
Sector
Code
Ganteng
Banget

Penggunaan String EndsWith()

EndsWith() di VB.NET Class String yang memeriksa apakah Parameter String EndsWith yang ditentukan pada String.

System.String.EndsWith(String suffix) as Boolean

Contoh Penggunaan EndsWith()

Public Class Scode
    Private Sub Btn1_Click(ByVal sender As System.Object, 
 ByVal e As System.EventArgs) Handles Btn1.Click
        Dim str As String
        str = "Sector Code Memang Ganteng"
        If str.EndsWith("Ganteng") = True Then
            MsgBox("String memiliki akhiran 'Ganteng'")
        Else
            MsgBox("String tidak memiliki akhiran 'Ganteng'")
        End If
    End Sub
End Class

Hasil "String memiliki akhiran 'Ganteng'".

Penggunaan String Concat()

Public Class Scode
    Private Sub Btn1_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles Btn1.Click
        Dim x1 As String
        Dim x2 As String
        x1 = "Scode"
        x2 = "Ganteng"
        MsgBox(String.Concat(x1, x2))
    End Sub
End Class

Hasil "Scode Ganteng".

Penggunaan String Null()

Public Class Scode
 Private Sub Btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn1.Click
  Dim str As String = Nothing
  If str = Nothing Then
   MsgBox("String adalah null")
  Else
   MsgBox("String adalah tidak null")
  End If
  str = "tidakkosong"
  If String.IsNullOrEmpty(str) Then
   MsgBox("String null atau empty")
  Else
   MsgBox("String tidak null or empty")
  End If
 End Sub
End Class

Hasil 'String tidak null or empty'.