prinsipnya bisa dengan mencari isi teks yg diapit dengan karakter, kata, atau
kata2 tertentu, misal:
- [NAMA] diapit dengan kata2 "Kepada yth" dan "tagihan anda"
- [AMOUNT] diapit dengan kata2 "bulan sebesar Rp. " dan "ini jatuh tempo"
- [DUE_DATE] diapit dengan kata2 "pada tgl" [DUE_DATE] dan karakter "."
untuk contoh poin 1, yaitu "[NAMA]" bisa diakses dengan:
kalimat$ = "Kepada yth [NAMA] tagihan anda bulan sebesar Rp. [AMOUNT] ini jatuh
tempo pada tgl [DUE_DATE]."
teks_apit1$ = "Kepada yth"
teks_apit2$ = "tagihan anda"
posisi_apit1% = InStr(kalimat$, teks_apit1$)
posisi_apit2% = InStr(kalimat$, teks_apit2$)
If (posisi_apit1% > 0) And (posisi_apit2%) Then
namaygdicari$ = Trim(Mid(kalimat$, posisi_apit1% + Len(teks_apit1$),
posisi_apit2% - (posisi_apit1% + Len(teks_apit1$))))
End If
'untuk mempermudah, buatlah sebuah fungsi yg tujuannya untuk mengambil teks
'yg diapit dengan dua teks tertentu:
Private Function YgDiapit$(sKalimat$, sApit1$, sApit2$)
posisi_apit1% = InStr(sKalimat$, sApit1$)
posisi_apit2% = InStr(sKalimat$, sApit2$)
If (posisi_apit1% > 0) And (posisi_apit2%) Then
namaygdicari$ = Trim(Mid(sKalimat, posisi_apit1% + Len(sApit1),
posisi_apit2% - (posisi_apit1% + Len(sApit1))))
End If
YgDiapit = namaygdicari$
End Function
Private Sub Command1_Click()
'sehingga contoh pemakaiannya adalah sebagai berikut:
namaygdicari$ = YgDiapit(kalimat$, "Kepada yth", "tagihan anda")
amount$ = YgDiapit(kalimat$, "sebesar Rp.", "ini jatuh tempo")
duedate$ = YgDiapit(kalilmat$, "jatuh tempo pada tgl", ".")
End Sub
Catatan:
akhiran "$" pada "kalimat$" menunjukkan variabel kalimat tersebut
dideklarasikan sebagai string, akhiran % berarti variabel integer (tanpa
"Option Explicit"). untuk di java silahkan disesuaikan sendiri, karena saya
sendiri tdk pernah pake java.
dear all,kepada vb master saya punya data seperti ini
input:
Kepada yth [NAMA] tagihan anda bulan sebesar Rp. [AMOUNT] ini jatuh tempo pada
tgl [DUE_DATE].
output:
[nama] , [AMOUNT], [DUE_DATE]
bagaimana mengambil string hanya [nama] , [AMOUNT], [DUE_DATE]
thanks ya..
note:kalo bisa codingnya bisa dipakai di java
[Non-text portions of this message have been removed]
