Sintaks ini saya peroleh ketika saya mendapatkan job selama PSG. Dengan sedikit bersusah payah dan berkeringat darah, hehehe,, akhirnya saya bisa ketemu sintaks ini. Tentunya setelah googling kesana kemari. Hehehe…. Sintaks ini berjalan untuk file yang berukuran tidak terlalu besar.

Misalkan isi file yang akan displit seperti ini:

insert into siswa
insert into ….
insert into …..
insert into ….
insert into …..
insert into ….
insert into …..
insert into ….
commit;
insert into guru
insert into ….
insert into …..
insert into ….
insert into …..
insert into ….
insert into …..
insert into ….
commit;
insert into pegawai
insert into ….
insert into …..
insert into ….
insert into …..
commit;
insert into pelajaran
insert into…
insert into…
commit;
dan seterusnya.

Dan akan displit berdasarkan separator ”commit;”. Berikut ini sintaksnya:

Option Explicit
Const Pembatas = “commit;”
Dim i As Long
Dim posisi As Integer
Dim pembagi As Variant
Dim batas() As String

‘Script untuk buka file
Open the “D:\sourcefile.txt” For Input As #1
pembagi = Input(LOF(1), 1)
Close #1

‘script untuk membagi file
posisi = 1
List1.Clear
batas = Split(pembagi, Pembatas)
For i = LBound(batas) To UBound(batas)
Open “C:\text” & posisi & “.txt” For Output As #posisi
Print #posisi, batas(i)
List1.AddItem batas(i)
posisi = posisi + 1
Close #1
Next i

Itulah sekelumit sintaks yang diperlukan untuk split file berdasarkan separator.
Mudah-mudahan bisa membantu.