Menghitung Jumlah Baris (vbNewLine,vbCRLF) di File Teks VB6 | DASAR PROGRAMER

Menghitung Jumlah Baris (vbNewLine,vbCRLF) di File Teks VB6

Berikut ini adalah cara menghitung jumlah baris yang terdapat dalam file teks, di visual basic 6, untuk mempraktekannya siapkan :
1. Buat 1 Project baru dengan 1 form dan 1 commandbutton
2. Tambahkan reference "Microsoft Scripting Runtime"  (scrrun.dll) melalui menu: "Project->References..."
3. Buat sebuah file teks baru bernama "FileTeks.txt" dan ketikkan data yang terdiri dari beberapa baris. Letakkan file dalam direktori yang sama dengan source-code/tips ini berada.
4. Copy-kan coding berikut ke dalam editor form yang bertalian.

          Option Explicit

          Private Function HitungBarisFileTeks(strFileName As String) As Long

          On Error GoTo ErrHandler
            Dim fso As FileSystemObject
            Dim TextStream As TextStream
            Dim lngBaris As Long, sLine As String

            'Buat object dengan menggunakan FSO
            Set fso = CreateObject("Scripting.FileSystemObject")
            'Buka file dan tampung ke dalam TextStream
            Set TextStream = fso.OpenTextFile(strFileName)
            'Ulangi selama belum mencapai akhir baris

            '(akhir dari stream).
            Do While TextStream.AtEndOfStream = False
              'Baca setiap satu baris
              sLine = TextStream.ReadLine

              'Update counter baris
              lngBaris = lngBaris + 1
            Loop
            'Setelah selesai, tutup file

            TextStream.Close
            'Kembalikan jumlah baris yang diperoleh
            HitungBarisFileTeks = lngBaris
            Exit Function
          ErrHandler:

            MsgBox Err.Number & " - " & _
                   Err.Description, _
                   vbExclamation, _
                   "Error HitungBarisFileTeks"

          End Function

          Private Sub Command1_Click()
            MsgBox "Jumlah baris dalam file = " & _

                   HitungBarisFileTeks(App.Path & _
                   "\FileTeks.txt"), vbInformation, _
                   "Jumlah Baris"
          End Sub

Tags:
contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module
Jika Anda menyukai Artikel di blog ini, Silahkan klik disini untuk berlangganan gratis via email, dengan begitu Anda akan mendapat kiriman artikel setiap ada artikel yang terbit di dasarprogrammer.blogspot.com

0 komentar:

Posting Komentar