15 April 2019

Procedure VBA Untuk Me-REPLACE Teks Pada File .TXT

www.niguru.com
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)

No comments:

Post a Comment