Pode-se atribuir dados a cada um dos elementos de um array usando-se um \u00edndice come\u00e7ando do zero e terminando no tamanho declarado (o n\u00famero de elementos do array \u00e9 sempre o n\u00famero mostrado nos par\u00eanteses mais um).<\/p>\n
Exemplo:<\/p>\n
A(0) = 256<\/span> Tamb\u00e9m \u00e9 poss\u00edvel criar um array utilizando o m\u00e9todo Array(arglist) do VBScript. Este comando retorna uma vari\u00e1vel do tipo Variant que cont\u00e9m um array. Os valores dever\u00e3o ser separados por v\u00edrgula.<\/p>\n Exemplo:<\/p>\n A = Array(10,20,30) <\/span> Split(expression, [delimiter], [count], [compare])<\/span><\/p>\n Retorna um array unidimensional baseada em zero, contendo um n\u00famero especificado de substrings. Exemplo:<\/p>\n UBound(arrayname)<\/span><\/p>\n Retorna a dimens\u00e3o do array (arrayname).<\/p>\n Exemplo:<\/p>\n Dim MyArray(3)<\/span> Aparece uma caixa de mensagem com o valor 3.<\/p>\n Configura\u00e7\u00e3o de Driver em execu\u00e7\u00e3o<\/span><\/span><\/p>\n Para modificar em execu\u00e7\u00e3o qualquer propriedade do dialog do driver de comunica\u00e7\u00e3o deve ser criado um array com os par\u00e2metros que deseja alterar. Os mais comuns s\u00e3o:<\/p>\n Exemplo:<\/p>\n Um jeito mais elegante de escrever seria:<\/p>\n
A(1) = 324<\/span>
A(2) = 100<\/span>
…<\/span>
A(10) = 55<\/span><\/p>\n
MsgBox A(0)<\/span>
MsgBox A(1)<\/span>
MsgBox A(2)<\/span><\/p>\n
\nExpression<\/span>: Obrigat\u00f3rio. Express\u00e3o de String contendo subseq\u00fc\u00eancias e delimitadores.
\nDelimiter<\/span>: Opcional. Qualquer caractere singular usado para identificar limites subseq\u00fc\u00eancia de caracteres. Se Delimiter for omitido, o caractere de espa\u00e7o (” “) \u00e9 assumido como o delimitador.
\nCount<\/span>: Opcional. N\u00famero m\u00e1ximo de substrings no qual a seq\u00fc\u00eancia de caracteres de entrada deve ser dividida. O padr\u00e3o, – 1, indica que a seq\u00fc\u00eancia de caracteres de entrada deve ser dividida em cada ocorr\u00eancia da seq\u00fc\u00eancia Delimiter.
\nCompare<\/span>: Opcional. Valor num\u00e9rico indicando a compara\u00e7\u00e3o para usar ao avaliar substrings.<\/p>\nMyString = \"Os que muito falam, pouco fazem de bom\"<\/span>
MyArray = Split(MyString, \" \")<\/span>
' MyArray(0) contem \"Os\"<\/span>
' MyArray(1) contem \"que\"<\/span>
' MyArray(2) contem \"muito\"<\/span>
' MyArray(3) contem \"falam,\"<\/span>
' MyArray(4) contem \"pouco\"<\/span>
' MyArray(5) contem \"fazem\"<\/span>
' MyArray(6) contem \"de\"<\/span>
' MyArray(7) contem \"bom.\"<\/span>
for i=0 to 7<\/span>
\u00a0\u00a0\u00a0 MsgBox MyArray(i)<\/span>
Next<\/span><\/pre>\n
MsgBox UBound(MyArray)<\/span><\/p>\n![\"\"](\"http:\/\/kb.elipse.com.br\/pt-br\/images\/ID2102\/fig_013.bmp\" "\\"\\"")
\nFigura 13<\/span><\/div>\nDim arr(6)<\/span>
'configura os elementos do array <\/span>
arr(1) = \"IO.Type\" <\/span>
arr(2) = \"Serial\" <\/span>
arr(3) = \"IO.Serial.Port\" <\/span>
arr(4) = 1 <\/span>
arr(5) = \"IO.serial.BaudRate\" <\/span>
arr(6) = 19200 <\/span><\/pre>\nDim arr(3)<\/span>
arr(1) = Array(\"IO.Type\", \"Serial\") <\/span>
arr(2) = Array(\"IO.Serial.Port\", 1) <\/span>
arr(3) = Array(\"IO.serial.BaudRate\", 19200)<\/span><\/pre>\n