|
|
Postada em 22/09/2006 13:53 hs
Boa tarde, Tenho uma rotina que percorre uma string, caracter por caracter, e localiza os caracteres de espaço. Bem, quando a rotina encontrar um caracter de espaço preciso que faça a substituição desses caracteres por outro, por exemplo o sinal de Ø (vazio). Estou fazendo assim. Dim x as String x = Mid(Text1.text, Contador, 1) If x = " " then x = "Ø" Else x = x End if Mas acontece que a rotina ainda continua me voltando o caracter de espaço. O que pode estar errado? Existe uma outra forma de fazer isso? Grato, Danilo Peçanha |
|
|
|
|
|
|
|
Postada em 22/09/2006 13:55 hs
sim x = replace (Mid(Text1.text, Contador, 1)," ","") at+ |
|
|
|
Cardoso G
|
PATOS DE MINAS
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 22/09/2006 13:58 hs
x = replace (Mid("alexandre cardoso", i, 1)," ","-") |
|
|
|
|
|
Postada em 22/09/2006 14:00 hs
Desculpa aí gente, esqueci do laço: Dim Z, Y as Integer Dim Contador as Byte Dim X as String Z = len(text1.text) for Y = 0 to Z Contador = Contador + 1 X = Mid(text1.text, Contador, 1) If X = " " Then X = "Ø" Else X = X End if Next |
|
|
|
00b
|
VILA VELHA / ES
ES - BRASIL
|
|
|
|
|
Postada em 22/09/2006 15:38 hs
Obrigado galera, era isso mesmo. Danilo |
|
|
|
|
