Dear indopb-er...
Saya ingin membaca sebuat text file,
namun karena panjangnya text tersebut,
jadinya saya ingin baca perbaris.
saya coba dengan LineMode untuk opsi Bacanya...
eh taunya kebaca cuma sebaris doang-an...
berikut scripting nya
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
// buat baca file per-garis
integer li_FileNum, loops, i
long flen, bytes_read, new_pos
string b, tot_b
// Cari Panjang File
flen = FileLength("D:\x.txt")
// Buka File
li_FileNum = FileOpen("D:\x.txt", &
StreamMode!, Read!, LockRead!)
// Menentukan Berapa kali memang funsi FileRead
IF flen > 32767 THEN
IF Mod(flen, 32767) = 0 THEN
loops = flen/32767
ELSE
loops = (flen/32767) + 1
END IF
ELSE
loops = 1
END IF
// Baca File-nya
new_pos = 1
messagebox('li_FileNum', li_FileNum)
messagebox(string(flen),loops)
do while (FileRead(li_FileNum, b))<>-100
//messagebox('Perhatian',string(FileRead(li_FileNum, b)))
tot_b = tot_b + b
st_1.text = b
//messagebox('Perhatian', b)
loop
FileClose(li_FileNum)
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
nah dalam hal ini, saya bingung...
bagamana caranya agar semua baris terbaca.
looping sambai baris terakhir...
Send instant messages to your online friends http://uk.messenger.yahoo.com
