Fungsi Bantu String pada Namespace Microsoft.VisualBasic


Selain pengolahan data string dengan menggunakan String Member, Visual Basic juga menyediakan berbagai fungsi bantu yang terdefinisi pada Namespace Micorosoft.VisualBasic, berikut ini adalah beberapa fungsi bantu yang dapat digunakan untuk pengolahan data string.


  • Asc(x), mengembalikan nilai ASCII dari huruf pertama dalam string x

  • AscW(x), mengembalikan nilai ASCII dari huruf pertama dalam string x

  • Chr(x), mengembalikan character dari suatu nilai ASCII x

  • ChrW(x), , mengembalikan character dari suatu nilai ASCII x

Contoh :
Option Explicit On
Imports System
Imports Microsoft.VisualBasic
Public Module modStr
   Sub Main()
       Console.WriteLine(Asc("H"))              '72
       Console.WriteLine(AscW("H"))             '72
       Console.WriteLine(Chr("72"))             'H
       Console.WriteLine(ChrW("72"))            'H
   End Sub

End Module

  • Len(x), mengembalikan panjang string x dalam karakter.

  • Lcase(x), mengembalikan string yang telah diubah menjadi huruf kecil.

  • Ucase(x), mengembalikan string yang telah diubah menjadi huruf besar.

Contoh :
Option Explicit On
Imports System
Imports Microsoft.VisualBasic
Public Module modStr
   Sub Main()
       Dim Nama As String = "Hendra Soewarno"
       Console.WriteLine(Len(Nama))             '15
       Console.WriteLine(LCase(Nama))           'hendra soewarno
       Console.WriteLine(UCase(Nama))           'HENDRA SOEWARNO
   End Sub

End Module

  • GetChar(x,y), mendapatkan character posisi ke y dalam string x.

  • Left(x,y), mengembalikan substring dari string x sebanyak y karakter dari depan.

  • Right(x,y), mengembalikan substring dari string x sebanyak y karakter dari belakang.

  • Mid(x,y,z) mengembalikan substring dari string x mulai posisi y sebanyak z karakter.

Contoh :
Option Explicit On
Imports System
Imports Microsoft.VisualBasic
Public Module modStr
   Sub Main()
       Dim Nama As String = "Hendra Soewarno"
       Console.WriteLine(GetChar(Nama,1))       'H
       Console.WriteLine(Left(Nama,6))          'Hendra
       Console.WriteLine(Right(Nama,8))         'Soewarno
       Console.WriteLine(Mid(Nama,4,3))         'dra
   End Sub

End Module
  • Space(x), mengembalikan string yang terdiri dari spasi sejumlah x karakter.

  • Rset(x,y), mengembalikan string rapat kanan dengan panjang y dengan menambah spasi di
  • depan string x.

  • Lset(x,y), mengembalikan string rapat kiri dengan panjang y dengan menambah spasi dibelakang string x.

Contoh :
Option Explicit On
Imports System
Imports Microsoft.VisualBasic
Public Module modStr
   Sub Main()
       Dim Nama1 As String = "Hendra"
       Dim Nama2 As String = "Soewarno"
       Console.WriteLine(Nama1 & Space(5) & Nama2) 'Hendra     Soewarno
       Console.WriteLine(RSet(Nama1,9))            '___Hendra    
       Console.WriteLine(LSet(Nama1,9))            'Hendra___    
   End Sub

End Module

  • Ltrim(x), mengembalikan string dengan menghilangkan spasi didepan string x.

  • Rtrim(x), mengembalikan string dengan menghilangkan spasi dibelakang string x.

  • Trim(x), mengembalikan string dengan prilaku gabungan Ltrim dan Rtrim.

  • StrReverse(x), mengembalikan string yang membalikan karakter dalam string x.

Contoh :
Option Explicit On
Imports System
Imports Microsoft.VisualBasic
Public Module modStr
   Sub Main()
       Dim Nama As String = "Susan"
       Console.WriteLine(Nama)                  'Susan
       Console.WriteLine(StrReverse(Nama))      'nasuS
   End Sub

End Module

  • InStr(y, x, z), mencari dari depan posisi keberadaan substring z dalam string x mulai posisi y.

  • InStrRev(x, z, y), mencari dari belakang posisi keberadaan substring z dalam string x mulai posisi y.
Contoh :
Option Explicit On
Imports System
Imports Microsoft.VisualBasic
Public Module modStr
   Sub Main()
       Dim Nama As String = "Felicia Fortuna"
       Console.WriteLine(InStr(1,Nama,"i"))           '4
       Console.WriteLine(InStr(5,Nama,"i"))           '6
       Console.WriteLine(InStrRev(Nama,"F",10))       '9
       Console.WriteLine(InStrRev(Nama,"F",7))        '1
   End Sub

End Module

  • StrDup(y, x), mengembalikan string yang merupakan duplikasi character x sebanyak y.

  • StrComp(x,y,z), mengembalikan nilai -1, 0, atau 1 yang merupakan perbandingan antara string x dengan string y, dengan metode z, dimana -1 (x < y), 0 (x =y), dan 1 (x > y), dan metode z adalah CompareMethod.Text dan CompareMethod.Binary.

Contoh :
Option Explicit On
Imports System
Imports Microsoft.VisualBasic
Public Module modStr
   Sub Main()
       Dim Nama1 As String = "felicia"
       Dim Nama2 As String = "FELICIA"
       Console.WriteLine(StrDup(10,"-"))                    '----------
       Console.WriteLine(StrComp(Nama1,Nama2,CompareMethod.Text))    '0
       Console.WriteLine(StrComp(Nama1,Nama2,CompareMethod.Binary))  '1
   End Sub

End Module

Catatan :

Pada metode Binary, perbandingan dilakukan berdasarkan nilai ASCII, dimana ASCII huruf kecil > dari huruf besar, contoh A = 65, dan a = 97.

  • Split(x,y), mengembalikan array string yang merupakan hasil pemisahan dari string x dengan delimeter y

Option Explicit On
Imports System
Imports Microsoft.VisualBasic
Public Module modStr
   Sub Main()
       Dim Nama As String = "Felicia Fortuna"
       Dim aNama() As String = Split(Nama," ")
       Console.WriteLine(aNama(0))              'Felicia
       Console.WriteLine(aNama(1))              'Fortuna
   End Sub

End Module
  • Join(x,y), mengembalikan string yang merupakan hasil gabungan array string x dengan  delimeter y

Option Explicit On
Imports System
Imports Microsoft.VisualBasic
Public Module modStr
   Sub Main()
       Dim aNama() As String = {"Felicia","Fortuna"}
       Console.WriteLine(Join(aNama,", "))      'Felicia, Fortuna
   End Sub

End Module

  • Replace(x,y,z,[1],[2],[3]), mengembalikan string yang merupakan pengantian string y dengan z dalam string x mulai posisi [1] sampai sejumlah karakter [2], dengan metode perbandingan [3].

Contoh :
Option Explicit On
Imports System
Imports Microsoft.VisualBasic
Public Module modStr
   Sub Main()
       Dim Nama As String = "Hendra"
       Console.WriteLine(Replace(Nama,"a","o")) 'Hendro
   End Sub

End Module

  • StrConv(x,y), menghasilkan string yang merupakan hasil konversi dengan metode y dari string x, dimana y (VBStrConv.UpperCase, VBStrConv.LowerCase, VBStrConv.ProperCase)

Contoh :
Option Explicit On
Imports System
Imports Microsoft.VisualBasic
Public Module modStr
   Sub Main()
       Dim Nama As String = "Hendra"
       Console.WriteLine(StrConv(Nama,VbStrConv.UpperCase)) 'HENDRA
       Console.WriteLine(StrConv(Nama,VbStrConv.LowerCase)) 'hendra
       Console.WriteLine(StrConv(Nama,VbStrConv.ProperCase)) 'Hendra   
   End Sub
End Module

  • FormatDateTime(x,y), menghasilkan string hasil konversi date x dengan format sesuai dengan setting pada komputer, dimana y (DateFormat.GeneralDate,  DateFormat.LongDate, DateFormat.ShortDate, DateFormat.LongTime, DateFormat.ShortTime)

Contoh :
Option Explicit On
Imports System
Imports Microsoft.VisualBasic
Public Module modStr
   Sub Main()
       Console.WriteLine(FormatDateTime(Now,DateFormat.LongDate)) 'Sunday, May 22, 2005
   End Sub
End Module

  • FormatCurrency(x,y), menghasilan string yang merupakan format currency dari angka x dengan jumlah desimal y.

  • FormatPercent(x,y), menghasilkan string yang merupakan format percent dari angka x dengan jumlah desimal y.

  • FormatNumber(x,y), menghasilkan string yang merupakan format angka dari angka x dengan jumlah desimal y.

Contoh :
Option Explicit On
Imports System
Imports Microsoft.VisualBasic
Public Module modStr
   Sub Main()
       Dim Angka As Decimal = 100000
       Dim PPN As Single = 0.1
       Console.WriteLine(FormatCurrency(Angka,2))     '$100,000.00
       Console.WriteLine(FormatNumber(Angka,2))       '100,000.00
       Console.WriteLine(FormatPercent(PPN,2))        '10.00%
   End Sub
End Module

  • Format(x,y), menghasilkan string yang merupakan format dari argumen x dengan format y, dengan format yang dapat dilihat pada lampiran 1.

Contoh :
Option Explicit On
Imports System
Imports Microsoft.VisualBasic
Public Module modStr
   Sub Main()
       Console.WriteLine(Format(10000,"#,##0.00"))          '10,000.00
       Console.WriteLine(Format(Now,"dd/MM/yyyy HH:MM:SS")) '22-05-2005 20:15:01
   End Sub
End Module

  • Filter(x,y,[1],[2]), menghasilkan array yang berisi string dari array string x yang mana elemen yang mengandung substring y, dengan ketentuan [1] (true=contain, false = exclude), dengan compare method [2].
Contoh :
Option Explicit On
Imports System
Imports Microsoft.VisualBasic
Public Module modStr
   Sub Main()
       Dim aNama1() As String = {"Hendra","Susan","Felicia Fortuna"}
       Dim aNama2() As String = Filter(aNama1,"r",true,CompareMethod.Binary)
       For Each A As String In aNama2
           Console.WriteLine(A)           'Hendra & Felicia Fortuna
       Next
   End Sub
End Module
Labels: