Mencari Huruf didalam Angka

Selamat berjumpa kembali kawan...........

               Pernah gak kalian mendapatkan tugas dari guru atau dosen untuk mencari huruf yang diacak bersama angkan, dan di susun  secara cepat membentuk kalimat.

Contoh :
              8973l490i
              3s45a345h9
              3r9303e092
              0b84849 92
              a0394d9303a
              n309a93291

Ketika dijalankan , akan muncul
"Hasil :Anda berhasil"

Sulit bagi kita Jika dicari secara menual, contoh yang diatas.
Ok Kawan saya akan mempermudah anda dalam Pencarian....

Langkah Pertama :
     1. Buka Foxpronya
2. Buka Command , caranya (MODIFY COMMAND)
3. tulis koding dibawah ini :


PARAMETERS kode

kata='8973l490i'
kata=kata+'3s45a345h9'
kata=kata+'3r9303e092'
kata=kata+'0b84849 92'
kata=kata+'a0394d9303'
kata=kata+'n309a93291'
hasil=" "
pj=LEN(kata)
FOR n=pj TO 1 STEP -1
hrf=SUBSTR(kata,n,1)
IF ISALPHA(hrf)
hasil=hasil+hrf
ELSE
IF hrf=" "
hasil=hasil+hrf
ENDIF
ENDIF
NEXT
@14,10 say " hasil :"+hasil
RETURN kode

Terakhir jalankan.........

Terima Kasih....