Простой телефонный справочник

...
Global $Form1 = GUICreate("Form1", 578, 377, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_TABSTOP))
Global $find = GUICtrlCreateInput("", 16, 8, 545, 21)
GUICtrlSetResizing(-1, 2 + 4 + 32 + 512)
__GUICtrlEdit_SetCueBanner($find, 'Поиск')
Global $ListView1 = GUICtrlCreateListView("", 16, 32, 546, 238, BitOR($LVS_EDITLABELS, $LVS_SINGLESEL, $LVS_SHOWSELALWAYS), BitOR($LVS_EX_INFOTIP, $LVS_EX_GRIDLINES, $LVS_EX_DOUBLEBUFFER, $LVS_EX_FULLROWSELECT))
GUICtrlSetResizing(-1, 2 + 4 + 32 + 64)
_GUICtrlListView_InsertColumn($ListView1, 0, 'Результаты поиска', 546)
$Input2 = GUICtrlCreateInput("", 16, 280, 265, 21)
GUICtrlSetResizing(-1, 2 + 64 + 512)
__GUICtrlEdit_SetCueBanner($Input2, 'Телефон')
$Input3 = GUICtrlCreateInput("", 16, 312, 545, 21)
GUICtrlSetResizing(-1, 2 + 4 + 64 + 512)
__GUICtrlEdit_SetCueBanner($Input3, 'ФИО')
$Input4 = GUICtrlCreateInput("", 16, 344, 457, 21)
__GUICtrlEdit_SetCueBanner($Input4, 'Отдел')
GUICtrlSetResizing(-1, 2 + 64 + 512)
Local $write = GUICtrlCreateButton("Записать", 488, 343, 75, 21)
GUICtrlSetResizing(-1, 4 + 64 + 768)
Local $dell = GUICtrlCreateButton("Удалить", 488, 275, 75, 21)
GUICtrlSetResizing(-1, 4 + 64 + 768)
ControlFocus($Form1, '', $ListView1)
GUISetState(@SW_SHOW)
...

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <File.au3>
Global $BaseArray, $selectdell = -1, $selectedit = -1, $point = 0, $flagfind = 0, $list, $selectfind = '', $dellstring = '', $textedit = ''
Global $DB = @ScriptDir & '\Base.txt'
Global $Form1 = GUICreate("Form1", 578, 377, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_TABSTOP))
Global $find = GUICtrlCreateInput("", 16, 8, 545, 21)
GUICtrlSetResizing(-1, 2 + 4 + 32 + 512)
__GUICtrlEdit_SetCueBanner($find, 'Поиск')
Global $ListView1 = GUICtrlCreateListView("", 16, 32, 546, 238, BitOR($LVS_EDITLABELS, $LVS_SINGLESEL, $LVS_SHOWSELALWAYS), BitOR($LVS_EX_INFOTIP, $LVS_EX_GRIDLINES, $LVS_EX_DOUBLEBUFFER, $LVS_EX_FULLROWSELECT))
GUICtrlSetResizing(-1, 2 + 4 + 32 + 64)
_GUICtrlListView_InsertColumn($ListView1, 0, 'Результаты поиска', 546)
$Input2 = GUICtrlCreateInput("", 16, 280, 265, 21)
GUICtrlSetResizing(-1, 2 + 64 + 512)
__GUICtrlEdit_SetCueBanner($Input2, 'Телефон')
$Input3 = GUICtrlCreateInput("", 16, 312, 545, 21)
GUICtrlSetResizing(-1, 2 + 4 + 64 + 512)
__GUICtrlEdit_SetCueBanner($Input3, 'ФИО')
$Input4 = GUICtrlCreateInput("", 16, 344, 457, 21)
__GUICtrlEdit_SetCueBanner($Input4, 'Отдел')
GUICtrlSetResizing(-1, 2 + 64 + 512)
Local $write = GUICtrlCreateButton("Записать", 488, 343, 75, 21)
GUICtrlSetResizing(-1, 4 + 64 + 768)
Local $dell = GUICtrlCreateButton("Удалить", 488, 275, 75, 21)
GUICtrlSetResizing(-1, 4 + 64 + 768)
GUICtrlSetState($ListView1, $GUI_FOCUS)
GUISetState(@SW_SHOW)
$BaseArray = FileReadToArray($DB)
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')

While 1
	If $point = 1 Then
		$point = 0
		Local $edit = StringStripWS(_GUICtrlListView_GetItemText($ListView1, $selectedit), 3)
		If $edit <> $textedit Then
			For $i = 0 To UBound($BaseArray) - 1
				If $BaseArray[$i] = $textedit Then
					$BaseArray[$i] = $edit
					_FileWriteToLine($DB, $i + 1, $edit, 1)
					_GUICtrlListView_SetItemText($ListView1, $selectedit, StringStripWS($edit, 3))
					ExitLoop
				EndIf
			Next
		Else
			_GUICtrlListView_SetItemText($ListView1, $selectedit, StringStripWS($textedit, 3))
		EndIf
	EndIf
	If $flagfind = 1 Then
		If IsArray($BaseArray) Then
			$selectfind = StringStripWS(GUICtrlRead($find), 3)
			If StringLen($selectfind) >= 1 Then
				_find()
			ElseIf $selectfind = '' Then
				GUICtrlSetData($find, '')
			EndIf
		EndIf
		$flagfind = 0
	EndIf
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $dell
			_GUICtrlListView_DeleteItem($ListView1, $selectdell)
			For $i = 0 To UBound($BaseArray) - 1
				If $dellstring = $BaseArray[$i] Then
					_FileWriteToLine($DB, $i + 1, '', 1)
					_ArrayDelete($BaseArray, $i)
					ExitLoop
				EndIf
			Next
		Case $write
			Local $tel = StringStripWS(GUICtrlRead($Input2), 3)
			Local $name = StringStripWS(GUICtrlRead($Input3), 3)
			Local $dep = StringStripWS(GUICtrlRead($Input4), 3)
			If $tel <> '' Or $name <> '' Or $dep <> '' Then
				FileWriteLine($DB, $name & ' ' & $tel & ' ' & $dep)
				_ArrayAdd($BaseArray, $name & ' ' & $tel & ' ' & $dep)
			EndIf
	EndSwitch
WEnd

Func _find()
	_GUICtrlListView_DeleteAllItems($ListView1)
	_GUICtrlListView_DeleteColumn($ListView1, 0)
	_GUICtrlListView_InsertColumn($ListView1, 0, 'Результаты поиска', 546)
	$flagfind = 0
	For $i = 0 To UBound($BaseArray) - 1
		If $flagfind = 1 Then ExitLoop
		If StringInStr($BaseArray[$i], $selectfind) Then
			If _GUICtrlListView_FindText($ListView1, $BaseArray[$i], -1, False) = -1 Then GUICtrlCreateListViewItem($BaseArray[$i], $ListView1)
		EndIf
	Next
EndFunc   ;==>_find

Func WM_COMMAND($hWnd, $imsg, $iwParam, $ilParam)
	Local $nNotifyCode, $nID
	$nNotifyCode = BitShift($iwParam, 16)
	$nID = BitAND($iwParam, 0xFFFF)
	Switch $hWnd
		Case $Form1
			Switch $nNotifyCode
				Case $EN_CHANGE
					Switch $nID
						Case $find
							$flagfind = 1
					EndSwitch
			EndSwitch
	EndSwitch
	Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_COMMAND

Func WM_NOTIFY($hWnd, $imsg, $wParam, $lParam)
	#forceref $hWnd, $iMsg, $wParam
	Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $tInfo
	$tNMHDR = DllStructCreate($tagNMHDR, $lParam)
	$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
	$iCode = DllStructGetData($tNMHDR, "Code")
	Switch $iIDFrom
		Case $ListView1
			Switch $iCode
				Case $LVN_BEGINLABELEDITA, $LVN_BEGINLABELEDITW
					$tInfo = DllStructCreate($tagNMLVDISPINFO, $lParam)
					Return False
				Case $LVN_ENDLABELEDITA, $LVN_ENDLABELEDITW
					$tInfo = DllStructCreate($tagNMLVDISPINFO, $lParam)
					Local $tBuffer = DllStructCreate("char Text[" & DllStructGetData($tInfo, "TextMax") & "]", DllStructGetData($tInfo, "Text"))
					If StringLen(DllStructGetData($tBuffer, "Text")) Then
						$point = 1
						Return True
					EndIf
				Case $NM_RCLICK
					$tInfo = DllStructCreate($tagNMITEMACTIVATE, $lParam)
					$selectedit = DllStructGetData($tInfo, "Index")
					$textedit = StringStripWS(_GUICtrlListView_GetItemText($ListView1, $selectedit), 3)
					_GUICtrlListView_EditLabel($ListView1, $selectedit)
				Case $NM_CLICK
					$tInfo = DllStructCreate($tagNMITEMACTIVATE, $lParam)
					$selectdell = DllStructGetData($tInfo, "Index")
					$dellstring = _GUICtrlListView_GetItemText($ListView1, $selectdell)
			EndSwitch
	EndSwitch
	Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_NOTIFY

Func __GUICtrlEdit_GetCueBanner($i_ID)
	Local Const $__EM_GETCUEBANNER = 0x1502
	Local $t_Text = DllStructCreate('wchar[4096]')
	If GUICtrlSendMsg($i_ID, $__EM_GETCUEBANNER, DllStructGetPtr($t_Text), 4096) <> 1 Then Return SetError(-1, 0, '')
	Return DllStructGetData($t_Text, 1)
EndFunc   ;==>__GUICtrlEdit_GetCueBanner

Func __GUICtrlEdit_SetCueBanner($i_ID, $s_Text)
	Local Const $__EM_SETCUEBANNER = 0x1501
	Return GUICtrlSendMsg($i_ID, $__EM_SETCUEBANNER, 0, String($s_Text))
EndFunc   ;==>__GUICtrlEdit_SetCueBanner