Oracle, Web, Script, SQLserver, Tips & Trick

January 15, 2013

Cara menghapus record pada operasi file sequential (Quick Basic)

Filed under: qbasic — sikathabis @ 7:37 pm
Tags:

Cara menghapus record pada operasi file sequential / text file menggunakan Quick Basic

Sebagai Ilustrasi ada menu sebagai berikut

hapus01

 

Tampilkan data per halaman, lalu ada input-an baris berapa yang akan dihapus, jika diinput (> 0) maka hapus record pada file

hapus02

 

Setelah terhapus refresh

hapus03

Berikut kutipan source-nya

'Label menu untuk menghapus record
HAPUS:
CLS
'Copy file aseli terlebih dahulu ke file temporary (TXT -> BAK)
OPEN "D:\JAVA\QB64\FILE\FILM.TXT" FOR INPUT AS #1
OPEN "D:\JAVA\QB64\FILE\FILM.TXT.BAK" FOR OUTPUT AS #2
DO UNTIL EOF(1)
    LINE INPUT #1, txt$
    WRITE #2, txt$
LOOP
CLOSE 2
CLOSE 1

'Dibawah ini adalah source untuk cetak laporan (sesuai dengan kebutuhan masing2 kasus)
..
..
'Perbedaannya ada inputan baris yang akan dihapus
PRINT "HALAMAN KE: "; HALAMAN; " Baris berapa yg akan di hapus [ENTER utk abaikan]";
INPUT ""; brs
IF brs > 0 THEN
    GOTO ExecHAPUS
ELSE
    GOSUB JUDUL
END IF
GOTO awal 'Jika brs tidak bernilai maka Balik ke menu awal

'Label eksekusi hapus record 
ExecHAPUS:
CLOSE 1
BARIS = 0
'Copy file dari temporary ke file aseli (BAK -> TXT)
OPEN "D:\JAVA\QB64\FILE\FILM.TXT.BAK" FOR INPUT AS #1
OPEN "D:\JAVA\QB64\FILE\FILM.TXT" FOR OUTPUT AS #2
DO UNTIL EOF(1)
    'Baca dari text file temporary (BAK)
    LINE INPUT #1, txt$
    BARIS = BARIS + 1
    'Jika posisi pada baris yang ingin dihapus, maka tidak ditulis ke file asli (TXT)
    IF BARIS <> brs THEN
        WRITE #2, txt$
    END IF
LOOP
CLOSE 2
CLOSE 1
'Hapus temporary file (BAK)
KILL "D:\JAVA\QB64\FILE\FILM.TXT.BAK"
GOTO HAPUS 'balik lagi ke menu penghapusan

2 Comments »

  1. bisa pake search engine ga pak datanya ? hehe

    Comment by Chibi Blog — January 28, 2013 @ 5:52 pm | Reply


RSS feed for comments on this post. TrackBack URI

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Create a free website or blog at WordPress.com.

Teknologi Pendidikan

Just another WordPress.com weblog

KATAKAMI

Jurnalisme Yang Dapat Dipercaya

Tonk Kosonk Baonk Bunyinya

Penampungan Serapah Tanpa Sumpah

Qey050489's Blog

Ayo Bangkit sobat..!!!!!

B. S. Totoraharjo

Orang Bodoh Yang Tak Kunjung Pandai

culturekitchen foodlab

New Food and Art in Yogyakarta

Wahyu Catur Wibowo

Musafir Dunia Maya

SQL.... Still Learning

My Reference on SQL Server

neinframe

Street Photography is like a box of a chocolates, you're never know what you're gonna get - Thomas Leuthard -

Keluarga Andrivito

-- Andrivito's Journal --

DRK™

This site is about Latest NEWS, Articles, Videos, Books, Course, Presentations, Tips & Tricks related to I.T Pro's

Gaurav Saxena

|| तत् त्वम् असि ||

Be a good Moeslim

Menuju Pribadi Muslim Sejati yang Bertaqwa

TuanSUFI

Manajemen Sholat, renungan spiritual, Teknologi Informasi

Pelangi di khatulistiwa....

Mari berbagi kebaikan, pengalaman dan senyum denganku

angkasa13

Ceritanya saya, Pikirannya saya, Hatinya saya

sikathabis

sikathabis semua informasi disini

%d bloggers like this: