Source ini digunakan untuk memisahkan huruf dan angka dari tanda baca seperti titik (.), koma (,), atao tanda baca lainnya berguna untuk mengecek persamaan kata apabila terdapat tanda baca (cocok digunakan dalam pembuatan kamus dengan memanfaatkan persamaan kata). Cek Source-nya :
Option Explicit
'menetapkan huruf dan angka biar beda dari tanda baca
Const ALPHA = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
Private Sub Command1_Click()
Dim kata As String
Dim cekkata As String
Dim panjangkata As Integer
Dim karakter As String
Dim katabukanhuruf As String
Dim katahuruf As String
kata = Text1.Text
'menetapkan panjang ke dalam cekkata untuk looping
cekkata = Trim(kata)
'jika cekkata tidak ada nilai maka keluar sub
If cekkata = "" Then Exit Sub
For panjangkata = 1 To Len(cekkata)
'ambil huruf perhuruf dari cekkata dilengkah 1 kata sampai looping panjangkata
karakter = Mid(cekkata, panjangkata, 1)
'jika terdapat konstanta ALPHA maka masukkan ke katahuruf
If InStr(ALPHA, UCase(karakter)) <> 0 Then
katahuruf = katahuruf + karakter
'jika tidak terdapat konstanta ALPHA maka masukkan ke katabukanhuruf
Else
katabukanhuruf = katabukanhuruf + karakter
End If
Next panjangkata
Text2.Text = katahuruf
Text3.Text = katabukanhuruf
Text4.Text = Text2.Text + Text3.Text
End Sub
Link untuk donlot
Source code : http://www.4shared.com/zip/Onk8rOxY/Memisahkan_Huruf_dan_Angka_Dar.html
Contoh aplikasi : http://www.4shared.com/file/oAhWDOu1/Pemisah_Kata.html
Sumber : Dari berbagai sumber
Source code : http://www.4shared.com/zip/Onk8rOxY/Memisahkan_Huruf_dan_Angka_Dar.html
Contoh aplikasi : http://www.4shared.com/file/oAhWDOu1/Pemisah_Kata.html
Sumber : Dari berbagai sumber
