Thanks alot bro, it's done.. Thanks Info nya
Deni S ----- Original Message ----- From: H SS To: [email protected] ; [EMAIL PROTECTED] Sent: Friday, March 14, 2008 3:08 PM Subject: Re: [indoprog-vb] Ambil data dari Text per Line Saya coba bantu ya..... untuk field1 dan field3 panjangnya sama ya untuk record 1, 2 dan seterusnya? kalau sama gunakan perintah "Mid", seperti ini: dim field1$ dim field2$ dim field3$ dim isitext$ open app.path & Namafile.txt for input as #1 do until eof(1) input #1, isitext field1=mid(isitext,1,12) field2=mid(isitext,13,len(isitext)-28) '28 didapat dari panjang field1 + field3 field3=right(isitext,16) 'Setelah ini masukkan sebagai record pertama, terus setelah looping berikutnya masukkan sebagai record kedua sampai seterusnya loop close kalau masih belum bs, dapat hub i sy via japri aja ya. Semoga membantu..... God Bless You # Deni S # <[EMAIL PROTECTED]> wrote: Teman2, misal aku punya data dari *.txt isi nya ini : 010110010001DD8 5073100507310001 010110010001ENAD 5073000507300001 010110010001ETV2 5073200507330001 010110010001ETV2 5073600507360001 010110010001ETV2 5073700508080001 010110010003ETV2 5073600507360001 010110010004GEMI 5111200511330001 010110010004SITMU5094200510590001 010110010004SITMU5113400511500001 Misal Hasilnya seharusnya : Field 1 : 010110010001 Field 2 : DD8 Field 3 : 5073100507310001 Aku mau export data2 txt ini ke access, tp aku kesulitan buat ambil fields nya karena 1 record nya nyambung dan tidak ada pemisahnya... ada yg tahu cara nya teman2... thanks Deni [Non-text portions of this message have been removed] --------------------------------- Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now. [Non-text portions of this message have been removed] [Non-text portions of this message have been removed]
