Tolong pilih kategori sesuai, jenis posting (diskusi atau bukan) dan sertakan tag/topik yang sesuai seperti komputer, java, php, mysql, dll. Promosi atau posting tidak pada tempatnya akan kami hapus!
- Bagi Anda yang ingin mendaftar, baca link berikut:
http://diskusiweb.com/discussion/50491/how-to-registrasi-diskusiweb-com-baca-ini-terlebih-dahulu
- Cara menyisipkan kode program supaya tampil rapi dan terformat dengan baik di diskusiweb.com: http://www.diskusiweb.com/discussion/50415/cara-menyisipkan-kode-program-di-diskusiweb-com
- Cara posting gambar/image di post Anda: http://www.diskusiweb.com/discussion/47345/cara-menyisipkan-menyertakan-image-pada-posting/p1

membagi file di VB 6.0

;););)
Assalamualaikum .. . . .
Saya mw tnya nich. Saya dapat tugas untuk membagi file menjadi beberapa file yang berukuran lebih kecil. File ini berukuran 388 mega. File ini berisi seperti berikut:

insert into. ...
insert into....
....
....
commit;
insert into. ...
insert into....
....
....
commit;
insert into. ...
insert into....
....
....
commit;
insert into. . ..
....
...
commit;
dan seterusnya.
File ini nnti akan saya bagi mnjadi beberapa file. Setiap file berisi seperti ini:
insert into. ...
insert into....
....
....
commit;
Mohon bantuannya ya:D:D:D
Aplikasi yang saya gunakan VB 6.0. Atas bantuannya terima kasih......

Comments

  • Originally posted by azmi
    ;););)
    Assalamualaikum .. . . .
    Saya mw tnya nich. Saya dapat tugas untuk membagi file menjadi beberapa file yang berukuran lebih kecil. File ini berukuran 388 mega. File ini berisi seperti berikut:

    insert into. ...
    insert into....
    ....
    ....
    commit;
    insert into. ...
    insert into....
    ....
    ....
    commit;
    insert into. ...
    insert into....
    ....
    ....
    commit;
    insert into. . ..
    ....
    ...
    commit;
    dan seterusnya.
    File ini nnti akan saya bagi mnjadi beberapa file. Setiap file berisi seperti ini:
    insert into. ...
    insert into....
    ....
    ....
    commit;
    Mohon bantuannya ya:D:D:D
    Aplikasi yang saya gunakan VB 6.0. Atas bantuannya terima kasih......

    Maaf, mba.. masih kurang jelas..??? mo bagi file (Split File) atau menggunakan Query untuk proses membaginya???

    Salam, lewat....:cool:
  • sebelumnya ma'af
    Q nie cow bkan cew....
    :D:D

    ya mang bner,,
    Q mw split file seperti yg Q tnyakan di atas
    saya pny script split file sperti ini:


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

    'script untuk buka file
    Open "C:\data.sql" For Input As #1
    pembagi = Input(LOF(1), 1)
    Close #1

    'script untuk bagi atau split 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


    scriptQ nie sudah jlan dan bisa digunakan untuk split file jika ukuran filenya sangat kecil(sekitar 3 kb),,,
    tpi jika untuk file yang berukuran besar seperti yang Q punya (berukuran 388 mega) script ini tidak jalan,,,
    :(:(:(

    muncul pesan eror pada

    pembagi = Input(LOF(1), 1)

    yg perintah erornya "Out of string space"
    Saya tolong dibantu untuk menanggulangi msalah nie
    kira2 apa yg hrus dilakukan agar tidak "out of string space"?
    mohon pencerahannya ya....
    :P:P

    Keep Kunt
    ^_^
  • kayanya file sumbernya kegedean dech...
    :cool:
  • nah,,

    trus gmana donk para master VB?
    :(:(
    q nie msih awam ttg vb 6.0

    q juga g bsa apa2 ttg VB
    trims ya sebelumnya,,,
Sign In or Register to comment.