FUNCAO PARA COMPLETAR STRING

USUARIO.EXCLUIDOS 12/09/2006 21:54:46
#171058
Olá pessoal,

Queria saber se existe alguma função que complete uma string, num tamanho determinado, com os caracteres que eu quiser.

Ex.:

String = "TESTE"

Quero uma string de tamanho 10 sendo que, o que não fizer parte da palavra TESTE complete com "X"
Ficaria assim: "TESTEXXXXX"

Se alguém souber por favor me passe a dica!! Um abraço!!
USUARIO.EXCLUIDOS 12/09/2006 22:01:23
#171064
Text1.Text = Text1 & String(11, "x")
USUARIO.EXCLUIDOS 12/09/2006 22:04:53
#171066
Dim strEntrada As String
strEntrada = "TESTE"

if len(strEntrada) < 10 then
strEntrada = strEntrada & String(10-len(strEntrada),"X")
end if

Assim mesmo que strEntrada seja "" retorna 10 XXXXXXXXXX
USUARIO.EXCLUIDOS 13/09/2006 09:03:59
#171127
Crie vc mesmo a função...

'Em um modulo
[c]Public Function Completar (Palavra as String, Qtd as integer, Caracter as String)
   For i = 1 to Qtd - Len(Palavra)
      Palavra = Palavra & Caracter
   Next

   Completar = Palavra
End Function



'para chamar a Função
Dim Palavra as strinf
Palavra = Completar("TESTE",10,"X")[/c]
GREGO 13/09/2006 09:09:42
#171129
COMPLETE COM ESPAÇOS

varTexto = varTexto & Space(10 - Len(varTexto)

o 10 e a quantidade de caracteres que a string tem q ter
o Len(varTexto) descobri quantos caracteres a string tem
Tópico encerrado , respostas não são mais permitidas
Voltar