Что нового

[Элементы GUI] Лимит GUICtrlCreateCombo

prokazzza

Новичок
Сообщения
160
Репутация
2
Можно ли как-то обойти лимит 75 строк в GUICtrlCreateCombo?
 

AZJIO

Меценат
Меценат
Сообщения
2,892
Репутация
1,196
prokazzza
Может нехватает стиля $WS_VSCROLL? Без него не появляется прокрутка списка, а список ограничен установкой высоты или пол-экрана.
 
Автор
P

prokazzza

Новичок
Сообщения
160
Репутация
2
AZJIO пробывал, результат 0, добавляю 76 пункт, вываливается ошибка. Уже все проверил несколько раз. Попробуйте сделать список на 76 строк. Если у вас получится буду копать.
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
prokazzza [?]
добавляю 76 пункт, вываливается ошибка.
500 пунктов.
Код:
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$oDic = ObjCreate('Scripting.Dictionary')

$sStr = ''
For $i = 100 To 600
	$sTmp = _NumberNumToName($i, 1)
	$oDic.add($sTmp, $i)
	$sStr &= $sTmp & '|'
Next

GUICreate('Test', 200, 150)
$nCombo = GUICtrlCreateCombo('', 25, 20, 150, 20, BitOR($CBS_DROPDOWN, $WS_VSCROLL))
GUICtrlSetData(-1, $sStr, $sTmp)
$sStr = ''
$sTmp = ''
$nInput = GUICtrlCreateInput('', 50, 60, 100, 20)
GUICtrlSetData($nInput, $oDic.item(GUICtrlRead($nCombo)))
GUISetState()

While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
		Case $nCombo
			GUICtrlSetData($nInput, $oDic.item(GUICtrlRead($nCombo)))
	EndSwitch
WEnd

; AZJIO, преобразование и модернизация VBS-скрипта, найденного в Google
; http://forum.oszone.net/post-1900913.html#post1900913
; Преобразует число в запись прописью. Параметр $iNum - любое целое число от 1 до 9223372036854775806
Func _NumberNumToName($iNum, $iRusLng = 0)
	Local $aN, $aNum, $c, $i, $j, $n, $r, $sText

	$iNum = StringStripWS($iNum, 8) ; удаляем пробелы
	If $iNum = '0' Then
		If $iRusLng Then Return 'Ноль'
		Return 'Zero'
	EndIf
	$iNum = Int($iNum) ; берём целую часть числа
	If Not StringIsDigit($iNum) Or $iNum > 9223372036854775806 Or $iNum = 0 Then Return SetError(1, 0, '') ; если не цифры или огромное число, то вылет
	$iNum = StringRegExpReplace($iNum, '(\A\d{1,3}(?=(\d{3})+\z)|\d{3}(?=\d))', '\1 ') ; dwerf
	$aNum = StringSplit($iNum, ' ')
	If $iRusLng Then
		Dim $a[4][10] = _
				[ _
				[' десять', ' одиннадцать', ' двенадцать', ' тринадцать', ' четырнадцать', ' пятнадцать', ' шестнадцать', ' семнадцать', ' восемнадцать', ' девятнадцать'], _
				['', ' сто', ' двести', ' триста', ' четыреста', ' пятьсот', ' шестьсот', ' семьсот', ' восемьсот', ' девятьсот'], _
				['', '', ' двадцать', ' тридцать', ' сорок', ' пятьдесят', ' шестьдесят', ' семьдесят', ' восемьдесят', ' девяносто'], _
				['', '', '', ' три', ' четыре', ' пять', ' шесть', ' семь', ' восемь', ' девять'] _
				]

		Dim $aBitNum[7] = ['', ' тысяч', ' миллион', ' миллиард', ' триллион', ' квадриллион', ' квинтиллион']
	Else
		Dim $a[4][10] = _
				[ _
				[' ten', ' eleven', ' twelve', ' thirteen', ' fourteen', ' fifteen', ' sixteen', ' seventeen', ' eighteen', ' nineteen'], _
				['', 'hundred', ' two hundred', ' three hundred', ' four hundred', ' five hundred', ' six hundred', ' seven hundred', ' eight hundred', ' nine hundred'], _
				['', '', ' twenty', ' thirty', ' forty', ' fifty', ' sixty', ' seventy', ' eighty', ' ninety'], _
				['', '', '', ' three', ' four', ' five', ' six', ' seven', ' eight', ' nine'] _
				]

		Dim $aBitNum[7] = ['', ' thousand', ' million', ' billion', ' trillion', ' quadrillion', ' quintillion']
	EndIf
	$aNum[1] = StringFormat('%03s', $aNum[1]) ; дополняем нулями недостающие разряды
	$sText = ''
	For $i = 1 To $aNum[0]
		If $aNum[$i] = '000' Then ContinueLoop
		$aN = StringSplit($aNum[$i], '')
		$r = $aNum[0] - $i
		For $j = 1 To $aN[0]
			$n = Number($aN[$j])
			If Not $n Then ContinueLoop
			$c = $j
			Switch $j
				Case 3
					Switch $n ; для чисел 1 или 2
						Case 1
							If $iRusLng Then
								If $r = 1 Then ; разряд единиц (не десятков и сотен)
									$sText &= ' одна'
								Else
									$sText &= ' один'
								EndIf
							Else
								$sText &= ' one'
							EndIf
						Case 2
							If $iRusLng Then
								If $r = 1 Then
									$sText &= ' две'
								Else
									$sText &= ' два'
								EndIf
							Else
								$sText &= ' two'
							EndIf
					EndSwitch
				Case 2 ; для чисел от 10 до 19
					If $n = 1 Then
						$c = 0
						$n = Number($aN[3])
						$aN[3] = 0
					EndIf
			EndSwitch
			$sText &= $a[$c][$n] ; присоединения числа из массива
		Next
		$sText &= $aBitNum[$r]
		Switch $n ; окончания для раряда кратного 1000, при $j=3 в конце цикла
			Case 1
				If $r = 1 And $iRusLng Then ; одна тысяч<а>
					$sText &= 'а'
				EndIf
			Case 2, 3, 4
				If $r = 1 Then ; 2,3,4 тысяч<и>
					If $iRusLng Then
						$sText &= 'и'
					Else
						$sText &= 's'
					EndIf
				ElseIf $r > 1 Then ; 2,3,4 милион<а>
					If $iRusLng Then
						$sText &= 'а'
					Else
						$sText &= 's'
					EndIf
				EndIf
			Case Else
				If $r > 1 Then ; 5-9 милион<ов>
					If $iRusLng Then
						$sText &= 'ов'
					Else
						$sText &= 's'
					EndIf
				EndIf
		EndSwitch
	Next
	Return StringStripWS($sText, 3)
EndFunc   ;==>_NumberNumToName
С добавлением пунктов.
Код:
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

;функция _NumberNumToName() в коде выше
$iStart = 1
$iEnd = 500
$oDic = ObjCreate('Scripting.Dictionary')

$vStr = ''
For $i = $iStart To $iEnd
	$sTmp = _NumberNumToName($i, 1)
	$oDic.add($sTmp, $i)
	$vStr &= $sTmp & '|'
Next

GUICreate('Test', 240, 170)
$nCombo = GUICtrlCreateCombo('', 10, 20, 220, 20, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL))
GUICtrlSetData(-1, $vStr, $sTmp)
$vStr = ''
$sTmp = ''
$nInput = GUICtrlCreateInput('', 30, 60, 180, 20)
GUICtrlSetData($nInput, $oDic.item(GUICtrlRead($nCombo)))
GUICtrlCreateLabel('пунктов:', 80, 90, 50, 18)
$nLabel = GUICtrlCreateLabel(GUICtrlSendMsg($nCombo, $CB_GETCOUNT, 0, 0), 130, 90, 30, 18)
$nBtn = GUICtrlCreateButton('Add next num', 70, 120, 100, 30)
GUISetState()

While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
		Case $nCombo
			GUICtrlSetData($nInput, $oDic.item(GUICtrlRead($nCombo)))
		Case $nBtn
			$iEnd += 1
			$sTmp = _NumberNumToName($iEnd, 1)
			$oDic.add($sTmp, $iEnd)
			GUICtrlSendMsg($nCombo, $CB_ADDSTRING, 0, $sTmp)
			$vStr = GUICtrlSendMsg($nCombo, $CB_GETCOUNT, 0, 0)
			GUICtrlSetData($nLabel, $vStr)
			GUICtrlSendMsg($nCombo, $CB_SETCURSEL, $vStr - 1, 0)
			GUICtrlSetData($nInput, $oDic.item(GUICtrlRead($nCombo)))
			$vStr = 0
			$sTmp = ''
	EndSwitch
WEnd
 
Автор
P

prokazzza

Новичок
Сообщения
160
Репутация
2
Пример, достаточно убрать любой пункт из Global $aCombo3, чтобы скрипт заработал:

Код:
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#Include <GuiComboBox.au3>
#include <StaticConstants.au3>

GUICreate("Launcher Left 4 Dead 2", 448, 503) ;Гуи
GUISetState(@SW_SHOW)

$NameRej1 = "1"
$NameRej2 = "2"
$NameRej3 = "3"
$NameRej4 = "4"
$NameRej5 = "5"
$NameRej6 = "6"

$NameA1 = "1"
$NameA2 = "2"
$NameA3 = "3"
$NameA4 = "4"
$NameA5 = "5"
$NameA6 = "6"
$NameA7 = "7"
$NameA8 = "8"
$NameA9 = "9"
$NameA10 = "10"
$NameA11 = "11"
$NameA12 = "12"
$NameA13 = "13"
$NameA14 = "14"
$NameA15 = "15"
$NameA16 = "16"
$NameA17 = "17"
$NameA18 = "18"
$NameA19 = "19"
$NameA20 = "20"
$NameA21 = "21"
$NameA22 = "22"
$NameA23 = "23"
$NameA24 = "24"
$NameA25 = "25"
$NameA26 = "26"
$NameA27 = "27"
$NameA28 = "28"
$NameA29 = "29"
$NameA30 = "30"
$NameA31 = "31"
$NameA32 = "32"
$NameA33 = "33"
$NameA34 = "34"
$NameA35 = "35"
$NameA36 = "36"
$NameA37 = "37"
$NameA38 = "38"
$NameA39 = "39"
$NameA40 = "40"
$NameA41 = "41"
$NameA42 = "42"
$NameA43 = "43"
$NameA44 = "44"
$NameA45 = "45"
$NameA46 = "46"
$NameA47 = "47"
$NameA48 = "48"
$NameA49 = "49"
$NameA50 = "50"
$NameA51 = "51"
$NameA52 = "52"
$NameA53 = "53"
$NameA54 = "54"
$NameA55 = "55"
$NameA56 = "56"
$NameA57 = "57"
$NameA58 = "58"
$NameA59 = "59"
$NameA60 = "60"
$NameA61 = "61"
$NameA62 = "62"
$NameA63 = "63"
$NameA64 = "64"
$NameA65 = "65"
$NameA66 = "66"
$NameA67 = "67"
$NameA68 = "68"
$NameA69 = "69"
$NameA70 = "70"
$NameA71 = "71"
$NameA72 = "72"
$NameA73 = "73"
$NameA74 = "74"
$NameA75 = "76"
$NameA76 = "76"
$NameA77 = "77"
$NameA78 = "78"
$NameA79 = "79"
$NameA80 = "80"
$NameA81 = "81"
$NameA82 = "82"
$NameA83 = "83"
$NameA84 = "84"
$NameA85 = "85"
$NameA86 = "86"
$NameA87 = "87"
$NameA88 = "88"
$NameA89 = "89"
$NameA90 = "90"
$NameA91 = "91"
$NameA92 = "92"
$NameA93 = "93"
$NameA94 = "94"
$NameA95 = "95"
$NameA96 = "96"
$NameA97 = "97"
$NameA98 = "98"
$NameA99 = "99"
$NameA100 = "100"
$NameA101 = "101"
$NameA102 = "102"
$NameA103 = "103"
$NameA104 = "104" 
$NameA105 = "105"
$NameA106 = "106"
$NameA107 = "107"
$NameA108 = "108"
$NameA109 = "109"
$NameA110 = "110"
$NameA111 = "111"
$NameA112 = "112"
$NameA113 = "113"
$NameA114 = "114"
$NameA115 = "115"
$NameA116 = "116"
$NameA117 = "117"
$NameA118 = "118"
$NameA119 = "119"
$NameA120 = "120"
$NameA121 = "121"
$NameA122 = "122"
$NameA123 = "123"
$NameA124 = "124"

$NameB1 = "B1"
$NameB2 = "B2"
$NameB3 = "B3"
$NameB4 = "B4"
$NameB5 = "B5"
$NameB6 = "B6"
$NameB7 = "B7"
$NameB8 = "B8"
$NameB9 = "B9"
$NameB10 = "B10"
$NameB11 = "B11"
$NameB12 = "B12"
$NameB13 = "B13"
$NameB14 = "B14"
$NameB15 = "B15"
$NameB16 = "B16"
$NameB17 = "B17"

Global $aCombo1[6] = [$NameRej1, $NameRej2, $NameRej3, $NameRej4, $NameRej5, $NameRej6]
Global $aCombo3[6] = [$NameA1&'|'&$NameA2&'|'&$NameA3&'|'&$NameA4&'|'&$NameA5&'|'&$NameA6&'|'&$NameA7&'|'&$NameA8&'|'&$NameA9&'|'&$NameA10&'|'&$NameA11&'|'&$NameA12&'|'&$NameA13&'|'&$NameA14&'|'&$NameA15&'|'&$NameA16&'|'&$NameA17&'|'&$NameA18&'|'&$NameA19&'|'&$NameA20&'|'&$NameA21&'|'&$NameA22&'|'&$NameA23&'|'&$NameA24&'|'&$NameA25&'|'&$NameA26&'|'&$NameA27&'|'&$NameA28&'|'&$NameA29&'|'&$NameA30&'|'&$NameA31&'|'&$NameA32&'|'&$NameA33&'|'&$NameA34&'|'&$NameA35&'|'&$NameA36&'|'&$NameA37&'|'&$NameA38&'|'&$NameA39&'|'&$NameA40&'|'&$NameA41&'|'&$NameA42&'|'&$NameA43&'|'&$NameA44&'|'&$NameA45&'|'&$NameA46&'|'&$NameA47&'|'&$NameA48&'|'&$NameA49&'|'&$NameA50&'|'&$NameA51&'|'&$NameA52&'|'&$NameA53&'|'&$NameA54&'|'&$NameA55, $NameA1&'|'&$NameA2&'|'&$NameA3&'|'&$NameA4&'|'&$NameA5&'|'&$NameA6&'|'&$NameA7&'|'&$NameA8&'|'&$NameA9&'|'&$NameA10&'|'&$NameA11&'|'&$NameA12&'|'&$NameA13&'|'&$NameA14&'|'&$NameA15&'|'&$NameA16&'|'&$NameA17&'|'&$NameA18&'|'&$NameA19&'|'&$NameA20&'|'&$NameA21&'|'&$NameA22&'|'&$NameA23&'|'&$NameA24&'|'&$NameA25&'|'&$NameA26&'|'&$NameA27&'|'&$NameA28&'|'&$NameA29&'|'&$NameA30&'|'&$NameA31&'|'&$NameA32&'|'&$NameA33&'|'&$NameA34&'|'&$NameA35&'|'&$NameA36&'|'&$NameA37&'|'&$NameA38&'|'&$NameA39&'|'&$NameA40&'|'&$NameA41&'|'&$NameA42&'|'&$NameA43&'|'&$NameA44&'|'&$NameA45&'|'&$NameA46&'|'&$NameA47&'|'&$NameA48&'|'&$NameA49&'|'&$NameA50&'|'&$NameA51&'|'&$NameA52&'|'&$NameA53&'|'&$NameA54&'|'&$NameA55&'|'&$NameA56&'|'&$NameA57&'|'&$NameA58&'|'&$NameA59&'|'&$NameA60&'|'&$NameA61&'|'&$NameA62&'|'&$NameA63&'|'&$NameA64&'|'&$NameA65&'|'&$NameA66&'|'&$NameA67&'|'&$NameA68&'|'&$NameA69&'|'&$NameA70&'|'&$NameA71&'|'&$NameA72&'|'&$NameA73&'|'&$NameA74&'|'&$NameA75&'|'&$NameA76&'|'&$NameA77&'|'&$NameA78&'|'&$NameA79&'|'&$NameA80&'|'&$NameA81&'|'&$NameA82&'|'&$NameA83&'|'&$NameA84&'|'&$NameA85&'|'&$NameA86&'|'&$NameA87&'|'&$NameA88&'|'&$NameA89&'|'&$NameA90&'|'&$NameA91&'|'&$NameA92&'|'&$NameA93&'|'&$NameA94&'|'&$NameA95&'|'&$NameA96&'|'&$NameA97&'|'&$NameA98&'|'&$NameA99&'|'&$NameA100&'|'&$NameA101&'|'&$NameA102&'|'&$NameA103&'|'&$NameA104&'|'&$NameA105&'|'&$NameA106&'|'&$NameA107&'|'&$NameA108&'|'&$NameA109&'|'&$NameA110&'|'&$NameA111&'|'&$NameA112&'|'&$NameA113&'|'&$NameA114&'|'&$NameA115&'|'&$NameA116&'|'&$NameA117&'|'&$NameA118&'|'&$NameA119, $NameB1&'|'&$NameB2&'|'&$NameB3&'|'&$NameB4&'|'&$NameB5&'|'&$NameB6&'|'&$NameB7&'|'&$NameB8&'|'&$NameB9&'|'&$NameB10&'|'&$NameB11&'|'&$NameB12&'|'&$NameB13&'|'&$NameB14&'|'&$NameB15&'|'&$NameB16&'|'&$NameB17, $NameA1&'|'&$NameA2&'|'&$NameA3&'|'&$NameA4&'|'&$NameA5&'|'&$NameA6&'|'&$NameA7&'|'&$NameA8&'|'&$NameA9&'|'&$NameA10&'|'&$NameA11&'|'&$NameA12&'|'&$NameA13&'|'&$NameA14&'|'&$NameA15&'|'&$NameA16&'|'&$NameA17&'|'&$NameA18&'|'&$NameA19&'|'&$NameA20&'|'&$NameA21&'|'&$NameA22&'|'&$NameA23&'|'&$NameA24&'|'&$NameA25&'|'&$NameA26&'|'&$NameA27&'|'&$NameA28&'|'&$NameA29&'|'&$NameA30&'|'&$NameA31&'|'&$NameA32&'|'&$NameA33&'|'&$NameA34&'|'&$NameA35&'|'&$NameA36&'|'&$NameA37&'|'&$NameA38&'|'&$NameA39&'|'&$NameA40&'|'&$NameA41&'|'&$NameA42&'|'&$NameA43&'|'&$NameA44&'|'&$NameA45&'|'&$NameA46&'|'&$NameA47&'|'&$NameA48&'|'&$NameA49&'|'&$NameA50&'|'&$NameA51&'|'&$NameA52&'|'&$NameA53&'|'&$NameA54&'|'&$NameA55, $NameA4&'|'&$NameA5&'|'&$NameA10&'|'&$NameA14&'|'&$NameA15&'|'&$NameA20&'|'&$NameA24&'|'&$NameA25&'|'&$NameA26&'|'&$NameA27&'|'&$NameA28&'|'&$NameA30&'|'&$NameA34&'|'&$NameA39&'|'&$NameA45&'|'&$NameA51, $NameA1&'|'&$NameA2&'|'&$NameA3&'|'&$NameA4&'|'&$NameA5&'|'&$NameA6&'|'&$NameA7&'|'&$NameA8&'|'&$NameA9&'|'&$NameA10&'|'&$NameA11&'|'&$NameA12&'|'&$NameA13&'|'&$NameA14&'|'&$NameA15&'|'&$NameA16&'|'&$NameA17&'|'&$NameA18&'|'&$NameA19&'|'&$NameA20&'|'&$NameA21&'|'&$NameA22&'|'&$NameA23&'|'&$NameA24&'|'&$NameA25&'|'&$NameA26&'|'&$NameA27&'|'&$NameA28&'|'&$NameA29&'|'&$NameA30&'|'&$NameA31&'|'&$NameA32&'|'&$NameA33&'|'&$NameA34&'|'&$NameA35&'|'&$NameA36&'|'&$NameA37&'|'&$NameA38&'|'&$NameA39&'|'&$NameA40&'|'&$NameA41&'|'&$NameA42&'|'&$NameA43&'|'&$NameA44&'|'&$NameA45&'|'&$NameA46&'|'&$NameA47&'|'&$NameA48&'|'&$NameA49&'|'&$NameA50&'|'&$NameA51&'|'&$NameA52&'|'&$NameA53&'|'&$NameA54&'|'&$NameA55]

$Combo1 = GUICtrlCreateCombo("", 16, 174, 123, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_DROPDOWNLIST))
GUICtrlSetData(-1, _ArrayToString($aCombo1), $aCombo1[1])
GUICtrlSetCursor (-1, 0)

$Combo3 = GUICtrlCreateCombo("", 166, 174, 265, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_DROPDOWNLIST, $WS_VSCROLL))
_SetCombo3()
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Combo1
			_SetCombo3()	
			
	EndSwitch
WEnd

Func _SetCombo3()
   GUICtrlSetData($Combo3, "", "")
   GUICtrlSetData($Combo3, $aCombo3[_ArraySearch($aCombo1, GUICtrlRead($Combo1))])
   _GUICtrlComboBox_SetCurSel($Combo3, 0)
EndFunc

Exit
 

inververs

AutoIT Гуру
Сообщения
2,135
Репутация
465
Вы кажется достигли технического ограничения языка, максимальная длинна одной строки не может быть больше чем 4095 знаков.
 

ivsatel

Продвинутый
Сообщения
319
Репутация
84
prokazzza

Может
Код:
Dim

вместо
Код:
Global


Код:
Dim $aCombo1[6] = [$NameRej1, $NameRej2, $NameRej3, $NameRej4, $NameRej5, $NameRej6]
Dim $aCombo3[6] = [$NameA1&'|'&$NameA2&'|'&$NameA3&'|'&$NameA4&'|'&$NameA5&'|'&$NameA6&'|'&$NameA7&'|'&$NameA8&'|'&$NameA9&'|'&$NameA10&'|'&$NameA11&'|'&$NameA12&'|'&$NameA13&'|'&$NameA14&'|'&$NameA15&'|'&$NameA16&'|'&$NameA17&'|'&$NameA18&'|'&$NameA19&'|'&$NameA20&'|'&$NameA21&'|'&$NameA22&'|'&$NameA23&'|'&$NameA24&'|'&$NameA25&'|'&$NameA26&'|'&$NameA27&'|'&$NameA28&'|'&$NameA29&'|'&$NameA30&'|'&$NameA31&'|'&$NameA32&'|'&$NameA33&'|'&$NameA34&'|'&$NameA35&'|'&$NameA36&'|'&$NameA37&'|'&$NameA38&'|'&$NameA39&'|'&$NameA40&'|'&$NameA41&'|'&$NameA42&'|'&$NameA43&'|'&$NameA44&'|'&$NameA45&'|'&$NameA46&'|'&$NameA47&'|'&$NameA48&'|'&$NameA49&'|'&$NameA50&'|'&$NameA51&'|'&$NameA52&'|'&$NameA53&'|'&$NameA54&'|'&$NameA55, $NameA1&'|'&$NameA2&'|'&$NameA3&'|'&$NameA4&'|'&$NameA5&'|'&$NameA6&'|'&$NameA7&'|'&$NameA8&'|'&$NameA9&'|'&$NameA10&'|'&$NameA11&'|'&$NameA12&'|'&$NameA13&'|'&$NameA14&'|'&$NameA15&'|'&$NameA16&'|'&$NameA17&'|'&$NameA18&'|'&$NameA19&'|'&$NameA20&'|'&$NameA21&'|'&$NameA22&'|'&$NameA23&'|'&$NameA24&'|'&$NameA25&'|'&$NameA26&'|'&$NameA27&'|'&$NameA28&'|'&$NameA29&'|'&$NameA30&'|'&$NameA31&'|'&$NameA32&'|'&$NameA33&'|'&$NameA34&'|'&$NameA35&'|'&$NameA36&'|'&$NameA37&'|'&$NameA38&'|'&$NameA39&'|'&$NameA40&'|'&$NameA41&'|'&$NameA42&'|'&$NameA43&'|'&$NameA44&'|'&$NameA45&'|'&$NameA46&'|'&$NameA47&'|'&$NameA48&'|'&$NameA49&'|'&$NameA50&'|'&$NameA51&'|'&$NameA52&'|'&$NameA53&'|'&$NameA54&'|'&$NameA55&'|'&$NameA56&'|'&$NameA57&'|'&$NameA58&'|'&$NameA59&'|'&$NameA60&'|'&$NameA61&'|'&$NameA62&'|'&$NameA63&'|'&$NameA64&'|'&$NameA65&'|'&$NameA66&'|'&$NameA67&'|'&$NameA68&'|'&$NameA69&'|'&$NameA70&'|'&$NameA71&'|'&$NameA72&'|'&$NameA73&'|'&$NameA74&'|'&$NameA75&'|'&$NameA76&'|'&$NameA77&'|'&$NameA78&'|'&$NameA79&'|'&$NameA80&'|'&$NameA81&'|'&$NameA82&'|'&$NameA83&'|'&$NameA84&'|'&$NameA85&'|'&$NameA86&'|'&$NameA87&'|'&$NameA88&'|'&$NameA89&'|'&$NameA90&'|'&$NameA91&'|'&$NameA92&'|'&$NameA93&'|'&$NameA94&'|'&$NameA95&'|'&$NameA96&'|'&$NameA97&'|'&$NameA98&'|'&$NameA99&'|'&$NameA100&'|'&$NameA101&'|'&$NameA102&'|'&$NameA103&'|'&$NameA104&'|'&$NameA105&'|'&$NameA106&'|'&$NameA107&'|'&$NameA108&'|'&$NameA109&'|'&$NameA110&'|'&$NameA111&'|'&$NameA112&'|'&$NameA113&'|'&$NameA114&'|'&$NameA115&'|'&$NameA116&'|'&$NameA117&'|'&$NameA118&'|'&$NameA119, $NameB1&'|'&$NameB2&'|'&$NameB3&'|'&$NameB4&'|'&$NameB5&'|'&$NameB6&'|'&$NameB7&'|'&$NameB8&'|'&$NameB9&'|'&$NameB10&'|'&$NameB11&'|'&$NameB12&'|'&$NameB13&'|'&$NameB14&'|'&$NameB15&'|'&$NameB16&'|'&$NameB17, $NameA1&'|'&$NameA2&'|'&$NameA3&'|'&$NameA4&'|'&$NameA5&'|'&$NameA6&'|'&$NameA7&'|'&$NameA8&'|'&$NameA9&'|'&$NameA10&'|'&$NameA11&'|'&$NameA12&'|'&$NameA13&'|'&$NameA14&'|'&$NameA15&'|'&$NameA16&'|'&$NameA17&'|'&$NameA18&'|'&$NameA19&'|'&$NameA20&'|'&$NameA21&'|'&$NameA22&'|'&$NameA23&'|'&$NameA24&'|'&$NameA25&'|'&$NameA26&'|'&$NameA27&'|'&$NameA28&'|'&$NameA29&'|'&$NameA30&'|'&$NameA31&'|'&$NameA32&'|'&$NameA33&'|'&$NameA34&'|'&$NameA35&'|'&$NameA36&'|'&$NameA37&'|'&$NameA38&'|'&$NameA39&'|'&$NameA40&'|'&$NameA41&'|'&$NameA42&'|'&$NameA43&'|'&$NameA44&'|'&$NameA45&'|'&$NameA46&'|'&$NameA47&'|'&$NameA48&'|'&$NameA49&'|'&$NameA50&'|'&$NameA51&'|'&$NameA52&'|'&$NameA53&'|'&$NameA54&'|'&$NameA55, $NameA4&'|'&$NameA5&'|'&$NameA10&'|'&$NameA14&'|'&$NameA15&'|'&$NameA20&'|'&$NameA24&'|'&$NameA25&'|'&$NameA26&'|'&$NameA27&'|'&$NameA28&'|'&$NameA30&'|'&$NameA34&'|'&$NameA39&'|'&$NameA45&'|'&$NameA51, $NameA1&'|'&$NameA2&'|'&$NameA3&'|'&$NameA4&'|'&$NameA5&'|'&$NameA6&'|'&$NameA7&'|'&$NameA8&'|'&$NameA9&'|'&$NameA10&'|'&$NameA11&'|'&$NameA12&'|'&$NameA13&'|'&$NameA14&'|'&$NameA15&'|'&$NameA16&'|'&$NameA17&'|'&$NameA18&'|'&$NameA19&'|'&$NameA20&'|'&$NameA21&'|'&$NameA22&'|'&$NameA23&'|'&$NameA24&'|'&$NameA25&'|'&$NameA26&'|'&$NameA27&'|'&$NameA28&'|'&$NameA29&'|'&$NameA30&'|'&$NameA31&'|'&$NameA32&'|'&$NameA33&'|'&$NameA34&'|'&$NameA35&'|'&$NameA36&'|'&$NameA37&'|'&$NameA38&'|'&$NameA39&'|'&$NameA40&'|'&$NameA41&'|'&$NameA42&'|'&$NameA43&'|'&$NameA44&'|'&$NameA45&'|'&$NameA46&'|'&$NameA47&'|'&$NameA48&'|'&$NameA49&'|'&$NameA50&'|'&$NameA51&'|'&$NameA52&'|'&$NameA53&'|'&$NameA54&'|'&$NameA55]
 
Автор
P

prokazzza

Новичок
Сообщения
160
Репутация
2
ivsatel К сожалению если добавить 120, также вылетает.


Добавлено:
Сообщение автоматически объединено:

Неужели никак нельзя это обойти ?? У меня еще где-то 100 пунктов ((
 

AZJIO

Меценат
Меценат
Сообщения
2,892
Репутация
1,196
prokazzza [?]
Неужели никак нельзя это обойти ?? У меня еще где-то 100 пунктов ((
Можно записать в несколько строк
Код:
Local  $aCombo3[6] = [ _
$NameA1 & '|' & $NameA2 & '|' & _
$NameA3 & '|' & $NameA4 & '|' & _
$NameA5 & '|' & $NameA6 & '|' & _
 $NameA7 & '|' & $NameA8 & '|' & ...
 
Верх