Re: [Programmer-VB] Ambil bilangan dari string dan huruf dari string ???

[Joko Nurjadi]

 kira2 codingnya begini bro Agus:   Dim a As String Dim i As Long   Dim angka As String Dim huruf As String   a = "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 Next   MsgBox angka MsgBox huruf   ----- Original Message ----- From: agus iwan supratman To: Programmer-VB@yahoogroups.com Sent: Thursday, April 13, 2006 4:26 PM Subject: [Programmer-VB] Ambil bilangan dari string dan huruf dari string ??? 1.Saya mau nanya gimana codenya mengambil nilai bilangannya pada string contoh a="ada12345" atau a="adadadasa12345"<===== panjang string bebas. saya pengen hasilnya=12345   2.Saya mau nanya gimana codenya mengambil hurufnya saja pada string contoh a="ada12345" atau a="ada145412345"<===== panjang string bebas. saya pengen hasilnya=ada     Terima kasih bosss....       Agus 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.