500 пунктов.добавляю 76 пункт, вываливается ошибка.
#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
#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
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]
Можно записать в несколько строкНеужели никак нельзя это обойти ?? У меня еще где-то 100 пунктов ((
Local $aCombo3[6] = [ _
$NameA1 & '|' & $NameA2 & '|' & _
$NameA3 & '|' & $NameA4 & '|' & _
$NameA5 & '|' & $NameA6 & '|' & _
$NameA7 & '|' & $NameA8 & '|' & ...