hakanight Posted September 3, 2013 Share Posted September 3, 2013 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? Quote Link to comment Share on other sites More sharing options...
reyiz Posted September 3, 2013 Share Posted September 3, 2013 (edited) 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 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.