Case $tipsdat ; обработка кнопи Выбор по date ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
$dtipdat=GUICtrlRead($Combo1)
_EzMySql_Query("SET NAMES 'cp1251'")
$vibordatat = _EzMySql_GetTable2d("SELECT god,name,tip,kach,file,id FROM datafilms WHERE god= '"& $dtipdat & "' ")
ConsoleWrite($vibordatat & @LF)
$error = @error
If Not IsArray( $vibordatat) Then MsgBox(0, $sMySqlStatement & " error", $error)
_ArrayDisplay( $vibordatat, "Список выбранных фильмов в базе по дате")
Dim $avArraygod
$godtxtt=FileOpen ( "c:\text1t2.txt", 2 )
For $it = 1 to Ubound($vibordatat) - 1
$BccAddresst=($vibordatat[$it][0])
$BccAddresst1=($vibordatat[$it][1])
$BccAddresst2=($vibordatat[$it][2])
$BccAddresst3=($vibordatat[$it][3])
$BccAddresst4=($vibordatat[$it][4])
$BccAddresst5=($vibordatat[$it][5])
FileWrite ( "c:\text1t2.txt", $BccAddresst1&" /"&$BccAddresst2&" /"&$BccAddresst&" /"&$BccAddresst3&" /"&"id="&$BccAddresst5& @CRLF)
Next
FileClose($godtxtt)
dim $aRecdata
If Not _FileReadToArray("c:\text1t2.txt",$aRecdata) Then
MsgBox(4096,"Error", " Error reading log to Array error:" & @error)
Exit
EndIf
_ArraySort($aRecdata)
$aRecdata1=_ArrayToString($aRecdata, "|",1,$it)
ConsoleWrite($aRecdata1 & @CRLF)
;_ArrayDisplay($aRecdata1)
GUICtrlSetData($Combo1god_save,$aRecdata1)
GUISetState(@SW_SHOW)
ConsoleWrite($aRecdata1 & @CRLF)