12 July 2014

VB6: Fungsi String


Berikut ini kita akan membahas beberapa fungsi yang berhubungan dengan nilai string.

1. Left
Fungsi ini untuk mengambil beberapa karakter dari sebelah kiri nilai string.
Sintaks :
Left(string, n) 
String adalah karakter string, n adalah jumlah karakter yang akan dihasilkan.
Contoh:
Print Left("Visual", 3)
Output : Vis

2. Right
Fungsi ini untuk mengambil beberapa karakter dari sebelah kanan nilai string.
Sintaks :
Right(string, n)
String adalah karakter string, n adalah jumlah karakter yang akan dihasilkan.
Contoh:
Print Right("Visual", 3)
Output : ual

3. Mid
Gunakan fungsi ini untuk mendapatkan karakter ditengah-tengah sebuah string.
Sintaks :
Mid(string, m, n)
string adalah karakter string, karakter yang dihasilkan mulai dari karakter ke m, dan n adalah jumlah karakter yang dihasilkan.
Contoh :          
Print Mid("Visual", 3, 2)
Output : su

4. Len
Fungsi Len untuk menghutung jumlah karakter string.
Contoh :
Private Sub cmdCount_Click()
    Dim str As String
    str = "Visual Basic"
    Print Len(str)
End Sub

Output : 12

5. InStr
Fungsi InStr mengembalikan angka posisi dari sub-string yang terdapat pada sebuah string.
Sintaks:
Instr(str1, str2)
Contoh :
Dim str As String
str = "Visual Basic"
Print InStr(str, "Basic")

Output : 8

6. Chr & Asc
Fungsi Chr mengkonversi nilai ASCII ke karakter dan fungsi Asc mengkonversi karakter ke nilai ASCII.
Sintaks :
Chr(ASCII value)
Asc(chr)

Contoh :
Print Chr(65)
Output : A
Print Asc("A")
Output : 65

Chr(9) and chr(13) adalah karakter Tab dan Penambah baris baru (enter).
Print "Hello" & Chr(9) & "world"
Output : Hello         world
Print "Hello" & Chr(13) & "world"
Output :
Hello
world

7. Str
Untuk menggunakan angka sebagai string gunakan fungsi Str.
Sintaks :
Str(n)
Contoh :        
Print str(5) + str(7)
Output : 57

8. LCase & UCase
Fungsi LCase untuk mengubah karakter menjadi huruf kecil dan fungsi UCase untuk mengubah karakter menjadi huruf kapital.
Contoh:
Private Sub cmdChangeCase_Click()
    Dim s As String
    s = "HELLO"
    Print LCase(s)
End Sub

Output : hello

Contoh :
Dim s As String
s = "hello"
Print UCase(s)

Output : HELLO

9. Trim
Fungsi Trim adalah untuk menghilangkan spasi pada karakter string.
Contoh :
Dim s As String
s = "            HEL  LO"
Print Trim(s)

Output : HELLO

10. LTrim & RTrim
Fungsi Ltrim untuk menghilangkan spasi di awal string dan RTrim untuk menghilangkan spasi di akhir string.
Contoh :
Dim s As String
s = "                      HELLO"
Print LTrim(s)

Output : HELLO

Dim s As String
s = "HELLO      "
Print RTrim(s)

Output : HELLO

11. StrReverse
Fungsi StrReverse adalah untuk membalikkan posisi karakter dalam string.
Contoh :
Print StrReverse("Basic")
Output : cisaB

12. Space
Fungsi Space menambahkan sejumlah karakter spasi.
Contoh:
Print Space(10) + "Basic"
Output :           Basic
10 spasi sebelum Basic

13. StrConv
Fungsi StrConv adalah untuk mengkonversi karakter dalam string ke beberapa kondisi hurup kapital, huruf kecil, atau hurup besar di awal.
Contoh:
Print StrConv("hello", vbUpperCase)
Output : HELLO

Print StrConv("hello", vbProperCase)
Output : Hello

14. StrComp
Fungsi StrComp adalah untuk membandingkan 2 string apakah sama/sesuai atau tidak. Jika sama akan mengembalikan nilai 0 dan jika tidak 1.
Contoh:
str = StrComp("vb", "vb", vbTextCompare) 'Hasil 0
str = StrComp("vb", "VB", vbTextCompare) 'Hasil 0
str = StrComp("vb", "VB", vbBinaryCompare) 'Hasil 1


Jika parameter optional bernilai vbTextCompare maka huruf kapital atau kecil tidak berpengaruh, sementara jika bernilai vbBinaryCompare maka berpengaruh.

15. Tab
Fungsi tab adalah untuk menambahkan karakter Tab sejumlah tertentu.
The Tab(n) function lets the string be displayed at nth position.
Contoh :
Print Tab(20) ; "Language"
Output :                    Language

16. Replace
Fungsi Replace adalah untuk mencari bagian dari string kemudian menggantikan nya dengan karakter lainnya yang ditentukan.
Contoh:
newvalue = Replace("months", "s", "1") 
Output: month1

Click here if you like this article.


2 comments:

Irfan Sanusi said...

kak, gimana kodingnya menghilangkan spasi ditengah kalimat, misal :
Dim s As String
s = "Hello World"
jadi "HelloWorld" tanpa spasi ditengah
pake Trim(s)
ga bisa

rani irsan said...

pake fungsi Replace