03 May 2019

Function (Sub Program Yang Mengembalikan Nilai) Untuk Memastikan Kandungan Kata Tertentu Pada Suatu File Teks (.TXT)

www.niguru.com
Niguru.com | Jumat, 3 Mei 2019 | Memastikan sebuah kata tertentu yang terkandung didalam sebuah file teks (bisa ber-extension .TXT, .CSV, .PAS, atau .BAS atau apapun yang berisi hanya teks saja) adalah hal yang mudah dilakukan bila menggunakan aplikasi Text Editor.

Cukup dengan menekan tombol [Ctrl + F] saja maka sebuah window dialog akan tampil, dan user tinggal mengetikkan kata yang ingin dicari. Tapi bagaimana bila pencarian tersebut lewat perintah VBA?



Kali ini Niguru.com akan menjelaskan cara pembuatan function untuk memastikan sebuah kata ada dalam suatu file teks.

Berikut ini function-nya:

Function Word2Find(MyWord As String, MyFile As String) As Boolean
Dim WordTemp As String
Word2Find = False

Open MyFile For Input As #1
Do
 Input #1, WordTemp
 If WordTemp = MyWord Then Word2Find = True
Loop Until EOF(1)
Close #1
End Function


Contoh penggunaan:

Dim KataD As String
Dim NFile As String
Dim Hasil As Boolean

KataD = "resistor"
NFile = "C:\Documents\PanduanElektronika.txt"
Hasil = Word2Find(KataD, NFile)


Demikianlah function untuk memastikan sebuah kata tertentu ada dalam sebuah file teks.
Selamat mencoba .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)

No comments:

Post a Comment