Dear All
Saya coba menjawab nih, semoga saja betul
Sub btn_po()
bersih
'jng lupa tambahkan di Tools - References
'library MICROSOFT SCRIPTING RUNTIME
Dim oFSO As New FileSystemObject
Dim oFS
pathfile = Application.ThisWorkbook.Path & "\"
Range("a5").Select
nfile = "contoh.txt"
Set oFS = oFSO.OpenTextFile(pathfile & nfile)
Ln = 0
Do Until oFS.AtEndOfStream
stext = oFS.ReadLine
If Right(stext, 1) = ";" Then
If Left(stext, 1) = "<" Then
stext = Trim(Mid(stext, 5, 60))
End If
Ln = Ln + 1
pgr = "'" & Mid(stext, 11, 5)
jdl = "'" & Mid(stext, 23, 10)
ActiveCell.Offset(Ln, 0).Value = Ln
ActiveCell.Offset(Ln, 1).Value = pgr
ActiveCell.Offset(Ln, 2).Value = jdl
End If
If Left(stext, 1) = "T" Then
ActiveCell.Offset(Ln, 3).Value = Mid(stext, 7, 5)
End If
Loop
MsgBox "Selesai"
End Sub
Sub bersih()
Range("A6:G123").Select
Selection.ClearContents
End Sub
Regards
--- In [email protected], Rocky <[EMAIL PROTECTED]> wrote:
>
> Dear,
> Mohon maaf karena data pendukungnya kurang lengkap, berikut saya
lampirkan contoh model file .txt nya.
> Untuk format PGR & JBK memang jumlah digitnya diset seperti itu
(tdk kurang tdk lebih).
>
> Output yang diharapkan adalah sbb:
>
> NO. PENGARANG JUDUL BUKU TOTAL
> 1 00001 00000000001 1
> 2 00001 00000000002 8
> 3 00002 00000000001 107
> 4 00003 00000000001 4164
> Semoga ada yg bisa membantu saya...
> Terima kasih
>
> Salam,
>
>
>
> ----- Original Message ----
> From: siti Vi <[EMAIL PROTECTED]>
> To: [email protected]
> Sent: Saturday, August 9, 2008 5:32:23 PM
> Subject: Re: ]] XL-mania [[ gimana cara buat macro untuk capture
data tertentu dari file .txt
>
>
> di sini hanya diceritakan file-file text "kelihatan" seperti itu
> biar ndak perlu mindo-gawe, mungkin akan lebih baik kalo
> contoh file *.txt nya dilampirkan;
> soalnya file txt itu pun bisa berjenis-jenis strukturnya. .
> barangkali ada calon pemberi solusi, biar beliau bisa liat sendiri
> file yg mau di obok oboknya spt apa.
>
>
>
> 2008/8/7 rockytengriano <rockytengriano@ yahoo.com>
>
> Dear Pakar Excel,
> Kenalkan saya anggota baru di milis ini, dan sangat pemula dalam hal
> MS.Excel..
> Saya ingin membuat laporan dengan data mentah dari file .txt, gimana
> caranya membuat macro nya ya supaya saya ga perlu kerja manual
dengan
> copy paste?
> Ilustrasinya kurang lebih seperti ini:
> Saya punya 1 file .txt yg berisi data sbb:
>
> Jenis buku=A, judul buku=B
>
> Rak1 = 1
> Rak2 = 5
> ---------
> total = 6
>
> Jenis buku=C, judul buku=D
>
> Rak1 = 2
> Rak2 = 3
> ---------
> total = 5
>
> Dari data tsb, saya cuma membutuhkan data total dari setiap jenis
dan
> judul buku.
> Atas bantuan teman-teman pakar Excel, sblmnya sy ucapkan terima
kasih.
>
> Salam,
> Rocky
>
>
>
>
>
> VIEW::PGR=00001,:JBK=00000000001;
>
> LOADING PROGRAM VERSION 10.00-0
>
> PPSM MAKASAR 2008-07-09 14:59:32
>
> RAKB COUNT
> RAKB 0 : 0
> RAKB 1 : 0
> RAKB 2 : 1
> RAKB 3 : 0
> RAKB 4 : 0
> ----------------------------------------------------------
> Total: 1 ( 0.0%)
>
> COMMAND EXECUTED
>
>
> DATA PENGARANG & JUDUL BUKU
> < VIEW::PGR=00001,:JBK=00000000002;
>
> LOADING PROGRAM VERSION 10.00-0
>
> PPSM MAKASAR 2008-07-09 14:59:32
>
> RAKB COUNT
> RAKB 0 : 2
> RAKB 1 : 4
> RAKB 2 : 1
> RAKB 3 : 1
> RAKB 4 : 0
> ----------------------------------------------------------
> Total: 8 ( 0.0%)
>
> COMMAND EXECUTED
>
>
> DATA PENGARANG & JUDUL BUKU
> < VIEW::PGR=00002,:JBK=00000000001;
>
> LOADING PROGRAM VERSION 10.00-0
>
> PPSM MAKASAR 2008-07-09 14:59:33
>
> RAKB COUNT
> RAKB 0 : 26
> RAKB 1 : 22
> RAKB 2 : 21
> RAKB 3 : 17
> RAKB 4 : 21
> ----------------------------------------------------------
> Total: 107 ( 0.0%)
>
> COMMAND EXECUTED
>
>
> DATA PENGARANG & JUDUL BUKU
> < VIEW::PGR=00003,:JBK=00000000001;
>
> LOADING PROGRAM VERSION 10.00-0
>
> PPSM MAKASAR 2008-07-09 14:59:33
>
> RAKB COUNT
> RAKB 0 : 847
> RAKB 1 : 835
> RAKB 2 : 846
> RAKB 3 : 823
> RAKB 4 : 813
> ----------------------------------------------------------
> Total: 4164 ( 1.4%)
>
> COMMAND EXECUTED
>
