jadi inget waktu kuliah sistem pengarsipan dan akses..hehehehehe... MI -----Original Message-----
From: su_betmen nusaputra <[EMAIL PROTECTED]> To: programmer vb <[email protected]> Date: Sun, 10 Feb 2008 20:32:53 -0800 (PST) Subject: [Programmer-VB] tanya: cara baca byte per byte alo mas budiman lai, terima kasih buat info-nya cmn saya masih blm tahu bagaimana cara menampung byte-byte tsb ke variabel sementara trus kmdn dibaca sesuai formatnya misal : type data long (4 byte) ... 4 byte dikumpulin ke variable sementara, trus kmdn dibaca sbg long?? gmn caranya ya? type data date (8 byte) ... dimasukin ke variable sementara, trus kmdn dibaca sbg date ... msh blm nemu caranya ... --> kmrn nyoba dim B as string, C as long, data(4) as byte for A = 1 to 4 B = B & data(A) ' ngumpulin byte jd 4 byte next A C = clng(B) tapi ngga bisa .. hiks hiks klo contoh yg mas budiman lai tampilkan, itu utk teks database, krn harusnya tipe data integer sepanjang 1 byte ngga muncul sbg angka ditampilan ... krn dia ngga ngikut rumus ascii ... papling munculnya sbg karakter ... klo byte nya pas dgn rumus ascii -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Ofbudiman Lai 1. pake metode Open aja dan baca file tersebut dan simpan dalam bentuk array contoh: '======================== ' Start Code '======================== Dim buff() as string sub ReadFile2Array(filename as string) Open filename For Binary Access Read As #1 Redim buff(Lof(1)) Get #1, , buff() Close #1 End Sub ' untuk baca perbyte, bisa menggunkana fungsi seek. gw 'lupa cara penulisan/penggunaan-nya. fungsi ini berguna 'untuk memindahkan pointer file ke byte tertentu sesuai 'dengan keinginan kita. klo ga salah cara pakainya: ' seek #1, byte_ke_berapa '======================== ' End Code '======================== 2. mgkn caranya bisa membaca byte per byte dan masukkan nilainya ke variable sementara, kemudian setelah pointer file menemukan karakter spasi, baru nilai variabel sementara di cek nilainya berupa tipe apa dengan menggunakan fungsi isnumeric, isdate, isstring, dan lain-lain. untuk membuat database sendiri, format headernya bisa di buat sendiri. misal nama_field#type_field#panjang_value, nama_field#type_field#panjang_value, dst kemudian untuk bagian data juga sudah di tentukan panjang dari value-nya sesuai dengan structur yg sudah di buat di header. contoh ' ini header database id#integer#5, nama#string#15, email#string#25 ' ini data dari database [EMAIL PROTECTED] [mailto:1%2A%2A%2A%2Abudiman%2A%2A%2A%2A%2A%2A%2A%2Abudiman_lai%40yahoo.com]**** [EMAIL PROTECTED] [mailto:2%2A%2A%2A%2Ayanto%2A%2A%2A%2A%2A%2A%2A%2A%2A%2Ayanto%40gmail.com]********** [EMAIL PROTECTED] [mailto:3%2A%2A%2A%2Atuti%2A%2A%2A%2A%2A%2A%2A%2A%2A%2A%2Atuti%40yahoo.co.id]********* dst... NB: karakter bintang * diatas itu berupa spasi. sy tulis * agar mudah di pahami. smoga membantu. rgds, Budi Never miss a thing. Make Yahoo your homepage. [http://us.rd.yahoo.com/evt=51438/*http://www.yahoo.com/r/hs]
