Kod: Tümünü seç
Dim $topla= ""
#include <GuiConstants.au3>
#NoTrayIcon
$file = FileOpen("liste.txt", 128)
If $file = -1 Then
MsgBox(0, "Hata", "Dosya bulunamıyor.")
Exit
EndIf
#include <file.au3>
Dim $a
If Not _FileReadToArray("liste.txt",$a) Then
MsgBox(4096,"Error", " Error reading log to Array error:" & @error)
Exit
EndIf
FileClose($file)
GUICreate("Sözlük v.1.0", 400, 400)
GUISetBkColor(0x00FF99)
WinSetTrans("Sözlük v.1.0", "", 240)
GUISetState(@SW_SHOW)
$araB=GUICtrlCreateInput("", 88, 20, 190, 25)
GUICtrlSetFont(-1,12,600)
$button_1 = GUICtrlCreateButton("Arama", 285, 20, 50, -1, 0x0001)
GUICtrlSetFont(-1,9,600)
$list_1=GUICtrlCreateEdit("", 21, 80, 375,310, 0x00200000)
GUICtrlSetFont(-1,12,800)
Func Ara()
GUICtrlSetData($list_1,"")
$ara=GUICtrlRead($araB)
if StringLen($ara)<2 Then
MsgBox(48, "Sözlük", "Arama yaparken en azından iki karakter giriniz!")
Else
GUICtrlSetData($list_1,"Aranıyor.....")
for $nn=1 to $a[0]
if stringleft($a[$nn], stringlen($ara)) = $ara then $topla = $topla & $a[$nn] & chr(13) & chr(10) & chr(13) & chr(10)
Next
if $topla=="" then $topla="Sonuç bulunamadı!"
GuiCtrlSetData($list_1, $topla)
$topla=""
EndIf
EndFunc
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $button_1
if stringlen(GUICtrlRead($araB))>0 Then Ara()
Case $msg= ""
EndSelect
WEnd