REPLACE VARIOS CRITERIOS

IRENKO 24/08/2007 14:27:17
#232588

Marcelo beleza, não estava entendendo esse delimitador(|), como eu o carrego?


Para terminar, gostaria de um esclarecimento sobre array, isso só para aprender a lidar com o mesmo. Tentei isso:

Dim Matriz(0) As String
Dim i As Integer
Matriz(0) = "."
Matriz(1) = ";"
Matriz(2) = ","
For i = 1 To 3
TxtOF.text = ReplaceMultiplo(TxtOF.text, Matriz(i), "-")
Next i
End If

da erro na chamada de sua função (o argumento não é opcional)

Veja bem, o meu problema já esta resolvido com sua função, so gostaria de entender a lógica dssa tal de array. Fico grato.

USUARIO.EXCLUIDOS 24/08/2007 14:32:08
#232590

Então amigo... vc declarou um array como tamanho 0. Ou seja, ele só tem a posição 0!!!

Não tem posição 1, nem 2, nem 3...

Para o seu código funcionar, vc deveria declarar a matriz com 3 posições.

Dim Matriz(2) As String
Desta forma, possui a posição 0, 1 e 2....

Ai seu for ficaria assim:
For i = 0 To 2
TxtOF.text = ReplaceMultiplo(TxtOF.text, Matriz(i), "-")
Next i


Abaixo tem um ótimo artigo falando de arrays
http://www.macoratti.net/arrays.htm

IRENKO 24/08/2007 15:02:47
#232595

Continua dando erro aqui:(o argumento não é opcional)

ReplaceMultiplo(TxtOF.text, Matriz(i), "-")

tÃÂ' chamando errado?

USUARIO.EXCLUIDOS 24/08/2007 15:17:04
#232599

Está sim cara... está faltando um argumento, o demilitador...

ReplaceMultiplo(TxtOF.text, Matriz(i) ,"|", "-")
ou
ReplaceMultiplo(TxtOF.text, Matriz(i) ,",", "-")

ou com qualquer demilitador que vc quiser...

IRENKO 24/08/2007 16:00:13
#232610

Valeu Marcelo!! Vou encerrar.