[решено] Создание структуры и множества - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)

- - [решено] Создание структуры и множества (http://forum.oszone.net/showthread.php?t=135846)

Создание структуры и множества

Здравствуйте!
Скажите пожалуйста возможно ли на Autoit создать структуру и множество?

Структуры возможно, а что такое «множество» я так и не понял, может это массивы?

DllStructCreate ;)

справка рулит (rtfm) )))

Сори я видел в справке DllStructCreate просто сначала подумал что оно нужно для создания структуры в библиотеке.
Но всеравно какаято странная команда например чтобы получить данные нужно использовать
DllStructGetData ( Struct, Element [, index ] )
В то время как в других язык можно получить данные так
Struct.Element[index]

Цитата:

Цитата Creat0R

а что такое «множество» »

Например в паскале множество создается так:

Код:

program name;

type mnog=set of byte; {Тип множество }

var a:mnog; {a типа mnog}

      temp:char;

BEGIN

   temp:='a';

   a:=['a','b','c'];

   if (temp in a) then writeln('В переменной temp есть либо a либо b либо c');

END.

В Паскале под множественным типом понимается конечная совокупность элементов, принадлежащих некоторому базовому типу данных.

Цитата:

Цитата morgan1991

в других язык можно получить данные так »

Неужели намного проще/короче? :)

Цитата:

В Паскале под множественным типом понимается конечная совокупность элементов, принадлежащих некоторому базовому типу данных

Ну это могут быть и массивы (Array)...

Цитата:

Цитата Creat0R

Ну это могут быть и массивы (Array)... »

Т.е. можно сделать так?

Код:

if string in array then msgbox(0, "", "")

имеешь в виду такое:

Код:

Local   $sString   = 'Строка agk673qwikyg'

Local   $aArray[3] = ['Массив', 1, $sString]



_Check(IsArray($aArray), $aArray)

_Check(IsArray($sString), $sString)



Func _Check($iIsArray, $vWhatCheck)

    If $iIsArray == 1 Then

        MsgBox(64, 'Внимание', 'Проверяется: ' & $vWhatCheck & @CRLF & 'Результат проверки: ' & $iIsArray & @CRLF & @CRLF & 'Переменная массив')

    Else

        MsgBox(64, 'Внимание', 'Проверяется: ' & $vWhatCheck & @CRLF & 'Результат проверки: ' & $iIsArray & @CRLF & @CRLF & 'Переменная НЕ массив')

    EndIf

EndFunc

Цитата:

Цитата morgan1991

Т.е. можно сделать так? »

Для этого массив не нужен:

Код:

$sVar = "This is a Test"

$sTest = "Test"



If StringInStr($sVar, $sTest) Then MsgBox(64, 'Title', StringFormat('$sTest ("%s") found in $sVar ("%s")', $sTest, $sVar))

А если всё же в массиве нужно, тогда так:

Код:

Dim $aArray[5] = [4, "This", "is", "a", "Test"]

$sTest = "Test"



For $i = 1 To $aArray[0]

    If $aArray[$i] = $sTest Then MsgBox(64, 'Title', StringFormat('$sTest ("%s") found in $aArray (element [%i])', $sTest, $i))

Next