Procedure VBA Untuk Me-REPLACE Teks Pada File .TXT

Oleh Nino Guevara Ruwano April 14, 2019 Posting Komentar

Niguru.com | Senin, 15 Apr 2019 | Saat melakukukan editing pada file teks (.TXT atau .CSV) seringkali programmer harus melakukan proses editing tersebut secara manual dengan menggunakan aplikasi text editor seperti Notepad atau aplikasi word processor seperti Wordpad atau Microsoft word.

Terkait dengan kebutuhan tersebut, pada posting kali ini Niguru.com akan menjelaskan mengenai cara untuk membuat procedure yang dapat digunakan untuk melakukan proses “find and replace” (mencari kata dan menggantinya dengan kata baru).

Instruksi ini bersumber dari website TheSpreadsheetGuru.com yang kemudian oleh Niguru.com dimodifikasi agar dapat menjadi procedure, agar mudah untuk dipergunakan oleh para programmer.
Berikut ini deretan instruksi untuk procedure-nya:

‘------------------------------------------------------
Sub TxtReplace(fpath As String, OWord As String, NWord As String)
'PURPOSE: Modify Contents of a text file using Find/Replace
'SOURCE: www.TheSpreadsheetGuru.com

Dim TextFile As Integer
Dim FilePath As String
Dim FileContent As String
'File Path of Text File
FilePath = fpath
'---------------------------------------------------------------
'Determine the next file number available for use by the FileOpen function
TextFile = FreeFile
'Open the text file in a Read State
Open FilePath For Input As TextFile
'Store file content inside a variable
FileContent = Input(LOF(TextFile), TextFile)
'Close Text File
Close TextFile
'-----------------------------------------------------------------
'Find/Replace
FileContent = Replace(FileContent, OWord, NWord)
'Determine the next file number available for use by the FileOpen function
TextFile = FreeFile
'Open the text file in a Write State
Open FilePath For Output As TextFile
'Write New Text data to file
Print #TextFile, FileContent
'Close Text File
Close TextFile
End Sub
‘------------------------------------------------------

Cara penggunaan procedure ini sangat mudah, cukup dengan menuliskan nama file teks (.TXT atau .CSV) yang akan diedit, kemudian cantumkan kata yang akan diganti dan dilanjutkan dengan mencantumkan kata penggantinya.

Contoh:
TxtReplace “C:\Datasurat\namapengirim.txt”, “Jakarta”, “Surabaya”

Contoh diatas adalah untuk mengganti konten dari file “namapengirim.txt”, dimana kata “Jakarta” didalam file teks tersebut akan diganti dengan kata “Surabaya”.

Demikianlah penjelasan mengenai cara pembuatan procedure untuk mengganti kata pada file teks (.TXT atau .CSV).
Selamat mencoba .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)