COMPLETAR ESPACOS DE UMA STRING

MATHEUS86 11/10/2011 17:24:58
#386452
Boa tarde a todos!
Gostaria de saber como faço para completar os espaços de uma String com um tipo de caracter?
Por exemplo:
Tenho uma string com tamanho de 40 caracteres, porém foram preenchidos 15 caracteres e o restante é espaço, então quero colocar o caracter [Ô]?[Ô] onde tiver espaço nessa string.
Como faço?
No aguardo.
Att;
Matheus
FEDERHEN 11/10/2011 17:55:29
#386459
A = [Ô]123456789012345[Ô]
B = LEFT(A & SPACE(40),40)
o resultado será [Ô]123456789012345 [Ô]


ou outra forma :

Dim X As String * 40
X = [Ô]123456789012345[Ô]
o resultado será [Ô]123456789012345 [Ô]
KERPLUNK 11/10/2011 18:20:41
#386463 Resposta escolhida
variavel = replace(Sua_string, [Ô] [Ô],[Ô]?[Ô])
MARCELO.TREZE 11/10/2011 19:36:10
#386467
Ou

If Len(Texto) < 40 then
Texto = Texto & String(40 - Len(texto) ,[Ô]?[Ô])
End If
Tópico encerrado , respostas não são mais permitidas
Voltar