Membaca dan menulis file .INI dalam ASP.NET

ASP.NET merupakan platform dari Microsoft yang digunakan untuk mengembangkan aplikasi web (Web Application). Dengan rilis terbaru .NET Framework 2.0, Microsoft telah menambahkan fitur baru seperti Master Pages dan Automatic Site Navigation yang menjadikan ASP.NET sebagai salah satu tool pengembang web site yang powerful.

Kita mungkin ingin menyimpan pengaturan dan informasi konfigurasi suatu aplikasi ASP.NET yang bisa diakses secara cepat dan kapan saja. Alternatif lain selain menyimpan dalam database, proses penyimpanan juga bisa dilakukan ke dalam suatu file yang berakhiran .INI.

Dalam artikel ini saya tidak akan menjelaskan kelebihan dan kekurangan proses penyimpanan menggunakan file INI.
Disini saya akan mencoba menjelaskan bagaimana cara menulis dan membaca file INI menggunakan ASP.NET dengan Code Behind Visual Basic.NET. Class yang akan dibuat adalah Class INI yang memiliki fungsi baca serta fungsi tulis.

Proses baca menggunakan Class StreamReader yang membaca karakter dari suatu file INI. Proses baca akan dimulai dari baris pertama sampai baris terakhir, jika string yang diinginkan terdapat dalam suatu baris, maka string tersebut akan disampaikan kepada user.

Contoh penggunaan fungsi baca :


Dim cBaca As New ini
Dim strCari as String = cBaca.baca(NamaFileIni.ini, KataKunci)

Proses tulis menggunakan Class StreamWriter yang akan membaca konfigurasi dalam file INI setiap baris. Proses tulis dimulai dengan membaca isi setiap baris dalam file INI, mencari string yang telah ditentukan, jika ditemukan, maka string konfigurasi tersebut akan diupdate. Jika tidak ditemukan, maka buat string konfigurasi yang baru.
Contoh penggunaan fungsi tulis:


Dim cBaca As New ini
Dim strCari As String = cBaca.tulis(NamaFileIni.ini, StringKonfigurasi, NilaiStringKonfigurasi)

Source Code lengkap dari Class INI bisa dilihat pada listing di bawah ini:


'Source Code for Read and Write INI Files in ASP.NET

Imports Microsoft.VisualBasic
Imports System.IO

Public Class ini
    Public Shared Function baca(ByVal iniFile As String, ByVal kunciPencarian As String)

        Dim lenSS As Integer = Len(kunciPencarian)
        Dim locQ As Integer
        Dim strBaru As String

        Using sr As StreamReader = _
          New StreamReader(HttpContext.Current.Server.MapPath(iniFile))
            Dim baris As String
            ' loop sampai akhir file
            Do
                baris = sr.ReadLine()
                ' cek setiap baris
                If Left(baris, lenSS) = kunciPencarian Then
                    ' ditemukan, sekarang keluarkan nilainya
                    ' cari tanda petik dua pertama
                    locQ = InStr(baris, """")

                    ' buat nilai yang telah diperoleh
                    strBaru = Mid(baris, (locQ + 1), ((Len(baris) - locQ) - 1))

                    ' ambil dan berikan nilainya
                    Return strBaru
                    baris = Nothing
                End If
            Loop Until baris Is Nothing
            sr.Close()
        End Using
        Return "error"
    End Function

    Public Shared Function tulis(ByVal fileINI As String, _
           ByVal kunciTulis As String, ByVal nilaiTulis As String)

        ' file temp #1
        Dim iniFileTemp As String = "/tempsetting_del.ini"

        ' file temp #2
        Dim iniTempOrigFile As String = "/tempsettingori_del.ini"

        ' panjang string pencarian
        Dim lenSS As Integer = Len(kunciTulis)

        ' eof? t/f
        Dim boolEof As Boolean

        ' string untuk mencari pada eof
        Dim strEof As String = "[eof]"

        ' server.mappath ke semua file yang digunakan
        Dim iniMappedFile As String = _
           HttpContext.Current.Server.MapPath(fileINI)
        Dim iniMappedTempFile As String = _
           HttpContext.Current.Server.MapPath(iniFileTemp)
        Dim iniMappedTempOrigFile As String = _
           HttpContext.Current.Server.MapPath(iniTempOrigFile)

        Dim sw As StreamWriter = New StreamWriter(iniMappedTempFile)

        ' sekilas:
        ' 1. baca setiap file dari file INI
        ' 2. cari yang sesuai, jika tidak sesuai, tulis ke file temp
        ' 3. jika tidak sesuai, tulis nilai baru
        ' 4. tulis baris selanjutnya

        ' nilai baru yang akan ditulis
        Dim strNewValue = kunciTulis & " = """ & nilaiTulis & """"

        Using sr As StreamReader = New StreamReader(iniMappedFile)
            Dim line As String
            ' loop sampai akhir file
            Do
                line = sr.ReadLine()
                ' pertama2 cek apakah eof=true, sehingga kita tidak menulis baris kosong
                If Left(line, 5) = strEof Then boolEof = True

                ' cek setiap baris yang sesuai
                If Left(line, lenSS) = kunciTulis Then
                    ' ditemukan, menulis nilai baru ke file temp
                    sw.WriteLine(strNewValue)
                Else
                    ' apakah kita berada di akhir file?
                    If boolEof = True Then
                        sw.WriteLine(strEof)
                        ' keluar dari loop
                        Exit Do
                    End If
                    ' tidak ditemukan, tulis baris ke file temp
                    sw.WriteLine(line)
                End If
            Loop Until line Is Nothing
            sr.Close()
        End Using
        sw.Close()

        ' 1 / 3. pindahkan file ori ke file temp jika proses kedua gagal
        File.Move(iniMappedFile, iniMappedTempOrigFile)

        ' 2 / 3. pindahkan file temp ke file ori
        File.Move(iniMappedTempFile, iniMappedFile)

        ' 3 / 3. hapus yang di-rename, sekarang temp-kan file orig
        File.Delete(iniMappedTempOrigFile)

        ' selesai
        Return ""
    End Function
End Class