Begini caranya: - buat tabel yang berisi 1 field/kolom saja dengan type char/text panjangnya 80 - buka file teks tsb dengan perintah Assign dan baca data PER BARIS - untuk baca data perbaris gunakan Readln - hasil Readln kemudian disimpan di tabel tsb
Ok, sekarang semua isi file txt sudah masuk ke Tabel, berikutnya: - buat tabel kedua dengan Field TeleponN, X1, X2, X3 dst-nya - kata kunci pemisah pada data anda adalah DES - logikanya setiap ketemu DES maka berarti record baru HTH ----- Original Message ----- From: "susanto liu" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Friday, January 24, 2003 9:58 AM Subject: [Delphindo] OOT : Conversi data text dari per baris jadi per kolom > hi teman2 :) > > saya mohon bantuannya lagi,boleh kan ? > > saya langsung kasih contoh kasusnya aja ya :) > > contoh : > > isi file text c:\data.txt adalah > > DES TELEPHONE1 > TN 014 15 16 17 > TYPE 500 > CDEN 4D > CUST 0 > WRLS NO > DN 3942 0 MARP > AST NO > IAPG 0 > HUNT > TGAR A1 > LDN O > NCOS B4 > SGRP C4 > RNPG D0 > LNRS 20 > XLST > SCI 0 > SCPW 3942 > SFLT NO > CAC_MFC 0 > CLS TLD DTN FBD XFA WTA THFD FND HTD ONS > LPR XRD CWD SWD MWD RMMD SMWD LPD XHD CCSD LNA TVD > CFTD SFD MRD C6D CNID CLBD AUTU > ICDA CDMA EHTD MCTD > GPUD DPUD CFXA ARHA OVDD AGTD CLTD LDTD ASCD > MBXD UDI RCC HBTD IRGD IAMD DDGA NAMA MIND > NRWD NRCD NROD CRD PRSD MCRD > EXR0 SHL SMSD ABDA CFHD DNDY DNO3 > CWND USRD BNRD OCBD RTDD RBDD RBHD FAXD PGND FTTC > PLEV 02 > AACS NO > MLWU_LANG 0 > FTR CFW 4 > FTR PHD > DATE 15 FEB 2000 > > DES TELEPHONE2 > TN 018 19 20 21 > TYPE 500 > CDEN 4D > CUST 0 > WRLS NO > DN 3943 0 MARP > AST NO > IAPG 0 > HUNT > TGAR W1 > LDN O > NCOS X4 > SGRP Y4 > RNPG Z0 > LNRS 20 > XLST > SCI 0 > SCPW 3943 > SFLT NO > CAC_MFC 0 > CLS TLD DTN FBD XFA WTA THFD FND HTD ONS > LPR XRD CWD SWD MWD RMMD SMWD LPD XHD CCSD LNA TVD > CFTD SFD MRD C6D CNID CLBD AUTU > ICDA CDMA EHTD MCTD > GPUD DPUD CFXA ARHA OVDD AGTD CLTD LDTD ASCD > MBXD UDI RCC HBTD IRGD IAMD DDGA NAMA MIND > NRWD NRCD NROD CRD PRSD MCRD > EXR0 SHL SMSD ABDA CFHD DNDY DNO3 > CWND USRD BNRD OCBD RTDD RBDD RBHD FAXD PGND FTTC > PLEV 02 > AACS NO > MLWU_LANG 0 > FTR CFW 4 > FTR PHD > DATE 15 FEB 2000 > > > yang saya inginkan ialah menjadi data text juga dengan hasil sebagai berikut : > disimpan ke file yaitu hasil.txt > > TELEPHONE1 14 15 16 17 500 0 3942 0 MARP A1 B4 C4 D0 null tld dtn > TELEPHONE2 18 19 20 21 500 0 3943 0 MARP W1 X4 Y4 Z0 null tld dtn > > KETERANGAN : > > file data.txt diatas itu isinya berupa data feature2 telephone yang di tampilkan per extension/ > telephone. > Dari contoh diatas ada 2 data extension yaitu : > pertama data extension 3942 > kedua data extension 3943 > > data.txt = feature2 extension ditampilkan per baris. > > Yang saya inginkan > hasil.txt = feature2 extension ditampilkan per kolom. > > seperti contoh hasil.txt diatas agar hasil data tersebut > bisa saya buka dengan Excel dan menjadi data2 dalam tampilan Tabel. > > contoh data hasil.txt diatas ada yang berisi 'null' itu maksud saya, > bila menemukan data yang tidak > ada nilainya diberikan nilai 'null' > Dari contoh diatas feature extension 'xlst' itu tidak ada isinya > maka diberi nilai null pada data hasil.txt > > Tolong teman2 bantu saya :) > terima kasih banyak. > -- > __________________________________________________________ > Sign-up for your own FREE Personalized E-mail at Mail.com > http://www.mail.com/?sr=signup > > Meet Singles > http://corp.mail.com/lavalife > > > > Berlangganan: [EMAIL PROTECTED] > Stop Berlangganan: [EMAIL PROTECTED] > Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED] > > Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/ > Berlangganan: [EMAIL PROTECTED] Stop Berlangganan: [EMAIL PROTECTED] Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED] Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
