Autoit Ile Sözlük Hazırlama

[graphix]

Dim $a[7500];7500'den fazla kelimeniz varsa köşeli parantez içindeki rakamı artırın.
 Dim $topla = ""
 #include <GuiConstants.au3>
 #NoTrayIcon

 $a[0]="hola: merhaba";her kelimede köşeli parantez içindeki rakamı artırın.
 $a[1]="cómo: nasıl"

 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 $xx=0 to 7499;Buradaki rakam her zaman birinci satırdaki rakamdan 1 eksik olacaktır.
 if StringInStr($a[$xx], $ara)>0 then $topla = $topla & $a[$xx] & 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[/CODE]