Mas Joko terima kasih atas codingnya...... lain kali kalau ada problem lagi saya minta banyuannya... ehe....
Joko Nurjadi <[EMAIL PROTECTED]> menulis:
Joko Nurjadi <[EMAIL PROTECTED]> menulis:
kira2 codingnya begini bro Agus:Dim a As String
Dim i As LongDim angka As String
Dim huruf As Stringa = "abcd1234e5"For i = 1 To Len(a)
If IsNumeric(Mid(a, i, 1)) Then
angka = angka & Mid(a, i, 1)
Else
huruf = huruf & Mid(a, i, 1)
End If
NextMsgBox angka
MsgBox huruf----- Original Message -----From: agus iwan supratmanSent: Thursday, April 13, 2006 4:26 PMSubject: [Programmer-VB] Ambil bilangan dari string dan huruf dari string ???1.Saya mau nanya gimana codenya mengambil nilai bilangannya pada stringcontoh a="ada12345" atau a="adadadasa12345"<===== panjang string bebas.saya pengen hasilnya=123452.Saya mau nanya gimana codenya mengambil hurufnya saja pada stringcontoh a="ada12345" atau a="ada145412345"<===== panjang string bebas.saya pengen hasilnya=adaTerima kasih bosss....Agus
Apakah Anda Yahoo!?
Kunjungi halaman depan Yahoo! Indonesia yang baru!
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
