USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Completar com espaços
Lú998
SAO PAULO
SP - BRASIL
Postada em 16/02/2006 13:48 hs         
Oi Galera !!!
 
Como posso completar uma variavel com espaços ? Por exemplo, quero que minha variavel tenha o tamanho 10 e quero colocar a palavra "AA". Quero que a variavel tenha o tamanho 10 com essa palavra. Como fazer ???
 
Brigadu !!!
 
     
vaini
PARAPUÃ
SP - BRASIL
ENUNCIADA !
Postada em 16/02/2006 14:00 hs            
Se eu entendi bem vc sempre tera uma variavel com 10 caracteres. Porem se os dois primeiros forem "AA", o restante sera espaços em branco??? se foi, tente assim
 
Dim MeuTexto As String
MeuTexto = "AA"
Dim QtdSpaces As Integer
QtdSpaces = 10 - Len(Trim(MeuTexto))
MeuTexto = MeuTexto & Space(QtdSpaces)
 
Se alguém tiver alguma ideia que economize codigo, ou souber algo mais facil....por favor, poste.

Fernando Cesar Vaini

Se voce morrer daqui a 5 minutos, vai levar todo o seu conhecimento. Antes que isso aconteça, compartilhe-o!!!

   
Knight
GOIÂNIA
GO - BRASIL
ENUNCIADA !
Postada em 16/02/2006 14:06 hs         
Num sei se funciona, mas q tal uma mascara???
MSK_CAMPO.MASK = "??????????"
Só entra so 2 letras o resto fica como espaço em branco.
 
Espero ter ajudado.

Emoções Knight Emoções

http://host.csti.eti.br

CSTI WebHosting
Hospedando Idéias Emoções

   
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
Postada em 16/02/2006 14:26 hs            
MeuTexto = "AA"
MeuTexto = MeuTexto & String(10 - Len(MeuTexto), " ")
 
Flw!


Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn:
elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
Emoções "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

     
caco
Pontos: 2843

SP - BRASIL
Postada em 16/02/2006 16:04 hs            
Você pode declarar a String com tamanho fixo também. A desvantagem é que o comprimento deve ser uma constante.
 
Dim text As String * 100
text = "AA"
 
Se tentar fazer uma função do tipo
 
Function PadSpaces(ByVal text As String, ByVal lenght As Integer)
    Dim fixedText As String * lenght
    fixedText = text
    PadSpaces = fixedText
End Function
 
Dá erro porque 'lenght' deve ser constante.

Messenger: vbdev@uol.com.br

     
VACA
LIMEIRA
SP - BRASIL
ENUNCIADA !
Postada em 17/02/2006 06:11 hs            
nossa gente pelo amor de deus, vcs estaum complicando mt
naum eh mais facil assim:
mid("AA" & sting(10," "), 1, 10)?

"Quando estou fraco, aí então é que sou Poderoso"
   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página