VB6 Menghapus spasi berlebih

seringkali kita dihadapkan dengan spasi berlebih, baik di sebelum teks maupun sesudah text atau ditengah teks.
disini diberikan contoh penggunaan, TRIM dan REPLACE untuk menghilangkan spasi berlebih atau menghilangkan spasi

Private Sub Form_Activate()
'Trim: Untuk menghilangkan spasi
'dari kiri dan kanan teks
'Relace : untuk mengganti karakter
'dengan karakter yang kita inginkan
'dlam hal ini (2 spasi diganti 1 spasi di ulang)
A = " Mohu "
b = " Lo du " 'spasi ditengah lebih dari 3
c = "55 5A F2 B0 93 86 90 B5 6A 43 78 73 84 AD FC AF"
Do Until InStr(b, " ") = 0 'di ulang sampai tidak ditemukan 2 spasi
b = Replace(b, " ", " ")
Loop
c = Replace(c, " ", "")
Print Trim(A) ' "Mohu"
Print Trim(b) ' "Lo du"
Print c '"555AF2B0938690B56A43787384ADFCAF"
End Sub

terima kasih

PAKET HARGA ID CARD

Untuk Kartu Pegawai, Kartu Karyawan, Kartu Mahasiswa, Kartu Pelajar dll

Pemesanan untuk wilayah Kota Gorontalo, Kab. Gorontalo, Kab. Bone Bolango

• Data yang perlu disiapkan: data siswa/pemegang kartu (format Excel)
• Minimal Order : 50 pcs Harga = Rp. 10.000,- / pcs
• Discount : 0% s.d. 30 %(harga hanya: Rp.7.000,-) Berdasarkan Jumlah Order ( Nego )
• Order dibawah 50 pcs harga nego
• Pemotretan langsung atau dapat juga menggunakan Pasphoto
• Anda berminat silahkan tulis komentar.

Pemesanan untuk wilayah Kab. Gorontalo Utara, Kab. Pohuwato, Kab. Boalemo

• Data yang perlu disiapkan: data siswa/pemegang kartu (format Excel)
• Minimal Order : 50 pcs Harga = Rp. 15.000,- / pcs
• Discount : 0% s.d. 30 %(harga hanya: Rp.10.500,-) Berdasarkan Jumlah Order ( Nego )
• Order dibawah 50 pcs harga nego
• Pemotretan langsung atau dapat juga menggunakan Pasphoto
• Anda berminat silahkan tulis komentar.

Desain disesuaikan dengan keinginan, mendukung BarCode

Format Excel dapat di download disini dapat di sesuaikan dengan kebutuhan

Hubungi : agusksaid@yahoo.com

User Manager Mikrotik

Setelah obrak abrik om google.. upggrate mikrotik dengan perasaan deg-degan... akhirnya mikrotikku bisa berfungsi "user managernya"
versi yang digunakan dapat dilihat di :
http://www.mikrotik.com/download.html
in filenya

http://download.mikrotik.com/routeros-mipsbe-5.0rc7.npk
file user manag nya disini :
http://download.mikrotik.com/all_packages-mipsbe-5.0rc7.zip