Что нового

Считывание из Array в GUICtrlCreateEdit

vasykas

Новичок
Сообщения
24
Репутация
0
Есть две GUICtrlCreateEdit:

Код:
$dorki = GUICtrlCreateEdit("", 9, 158, 777, 575, $ES_AUTOVSCROLL + $WS_VSCROLL + $ES_NOHIDESEL + $ES_WANTRETURN + $LBS_DISABLENOSCROLL)
$sql = GUICtrlCreateEdit("", 9, 158, 777, 575, $ES_AUTOVSCROLL + $WS_VSCROLL + $ES_NOHIDESEL + $ES_WANTRETURN + $LBS_DISABLENOSCROLL)


в $dorki закинул ссылки
вот этим удалил дубликаты:

Код:
$aList_1 = StringSplit(StringStripCR(GUICtrlRead($dorki)), @LF)
          $oDict = ObjCreate('Scripting.Dictionary')
        For $i = 1 To $aList_1[0]
          $oDict.Item($aList_1[$i]) = $oDict.Item($aList_1[$i]) + 1
	   Next
Dim $aList_2[$oDict.Count][2], $iCounter = 0
For $oKey In $oDict
    $aList_2[$iCounter][0] = $oKey
    $aList_2[$iCounter][1] = $oDict.Item($oKey)
	$iCounter += 1
 Next
;_ArrayDisplay($aList_2)


а теперь не могу из $aList_2 перекинуть в $sql

Код:
Func _sql()
   GUICtrlCreateLabel('', 580, 40, 80, 30)
GUISetState(@SW_LOCK)
  	$read_sqls = StringSplit(StringStripCR($read_sql), @LF)
For $i = 0 to UBound($read_sqls) - 1
   GUICtrlCreateLabel($read_sqls[$i], 140, 760, 520, 23)
   GUICtrlSetResizing(-1, 1)
   GUICtrlSetFont(-1, 9, 180, 4, $font)
       $inet = BinaryToString(InetRead($read_sqls[$i] & "'", 1))
       $com = StringRegExpReplace($inet, "Warning:", "") 
 If StringInStr($com,'not a valid MySQL') Or StringInStr($com,'SQL syntax') Then
      $iCounts += 1
       Dim $aTitlesa[$iCounts]
       $aTitlesa[$iCounts - 1] = $read_sqls[$i]
              GUICtrlSetData($sql, $aTitlesa[$iCounts - 1] & @CRLF, 1)
              GUICtrlSetFont(-1, 12, 180, 3)
			  $itog = $itog + 1
			  GUICtrlCreateLabel($itog, 585, 40, 80, 30)
			  GUICtrlSetResizing(-1, 1)
              GUICtrlSetFont(-1, 14, 180, 4, $font)
		   EndIf
		Sleep(100)   
	 Next
		 WinSetState($sql, "", @SW_SHOW)
GUISetState(@SW_UNLOCK)
MsgBox(64, "Готово", "Надено: - " & $itog)
EndFunc

кто что может подсказать
 
Верх