olá amigos,

 

Tipos = Array("P", "B", "S")

para pegar a string eu utilizo o valor 

tipos(1) tem a string "B"

mas e para fazer o contrario...

 

tenho a string e quero saber o valor.

 

dede já agradeço.

Um... na minha cachola no momento acho q só percorrendo o array mesmo... pois qdo se trabalha com um array em tese os elementos podem se repetir... se vc fizer isso:

 

tipos("B")

 

qual o valor q vc espera q ele retorne? Pode-se ter vários "B" no array. No caso de campos de um objeto recordset é diferente pois os nomes de campos são únicos e não podem se repetir o que torna viável vc passar assim => recordset("campo") ou assim => Recordset(0)

 

No caso que vc passou dá pra se fazer uma "gambezinha":

 

texto = Join(tipos, "")
MsgBox InStr(1, texto, "B") - 1

 

creio q funcionaria só nos casos de array com um caractere por elemento mas talvez, dependendo da situação, dá pra adaptar.

 

falows!

Veja se isto ajuda (tem um exemplo no final):

 

Description
Returns a zero-based array containing a subset of a string array based on a specified filter criteria.
Syntax
Filter(InputStrings, Value[, Include[, Compare]])
The Filter function syntax has these parts:

Part Description
InputStrings Required. One-dimensional array of strings to be searched.
Value Required. String to search for.
Include Optional. Boolean value indicating whether to return substrings that include or exclude Value. If Include is True, Filter returns the subset of the array that contains Value as a substring. If Include is False, Filter returns the subset of the array that does not contain Value as a substring.
Compare Optional. Numeric value indicating the kind of string comparison to use. See Settings section for values.

Settings
The Compare argument can have the following values:
Constant Value Description
vbBinaryCompare 0 Perform a binary comparison.
vbTextCompare 1 Perform a textual comparison.

 

Remarks
If no matches of Value are found within InputStrings, Filter returns an empty array. An error occurs if InputStrings is Null or is not a one-dimensional array.
The array returned by the Filter function contains only enough elements to contain the number of matched items.

The following example uses the Filter function to return the array containing the search criteria "Mon":

Dim MyIndex
Dim MyArray (3)
MyArray(0) = "Sunday"
MyArray(1) = "Monday"
MyArray(2) = "Tuesday"
MyIndex = Filter(MyArray, "Mon") ' MyIndex(0) contains "Monday".