Bir Metnin Içini Arama,dosya Arama V.b.

[hakanight]

Merhaba arkadaşlar.

Ben bir kelime yazacağım o kelimeyi metnin içinde arıycak.

Veya bir dosya arıycak.

Veya benim hazırladığım programda bir yazı arıycak.

Onun gibi birşey biliyormusunuz?

Yardım edermisiniz?

[reyiz]

1. örnek

$metin = InputBox("Metin Giriniz", "Arama yapacağınız metni giriniz.")

$kelime = InputBox("Arama Giriniz", "Girdiğiniz metinde aranacak metni giriniz.")

$ara = StringInStr($metin, $kelime)

If $ara = 0 Then
	MsgBox(64, "Bilgi",  '"' & $metin & '" metni içinde "' & $kelime & '" metni bulunamadı.')
Else
	MsgBox(64, "Bilgi",  '"' & $metin & '" metni içinde "' & $kelime & '" metni ' & $ara & ". sırada bulundu.")
EndIf

 

2. örnek

$metin = FileOpenDialog("Arama yapılacak dosyayı aç", @DesktopDir, "(*)")

$kelime = InputBox("Arama Giriniz", "Gösterdiğiniz dosyada aranacak metni giriniz.")

$dosya = FileRead($metin)

$ara = StringInStr($dosya, $kelime)

If $ara = 0 Then
	MsgBox(64, "Bilgi",  '"' & $metin & '" dosyası içinde "' & $kelime & '" metni bulunamadı.')
Else
	MsgBox(64, "Bilgi",  '"' & $metin & '" dosyası içinde "' & $kelime & '" metni ' & $ara & ". sırada bulundu.")
EndIf

Edited September 3, 2013 by reyiz