Inserir Espacos

[felipeiw]

Bom dia,

Estou precisando inserir espaços em branco em uma variavel string, por exemplo "JOAO" preciso inserir 6 espacos em branco para completar o tamanho de 10 caracteres, "JOAQUIM" preciso inserir 3 espaços em branco, e assim por diante, pois estou montando um arquivo TXT e preciso ter todos os campos em posicoes fixas.

abraços

[BrunoVeríssimo]

Posso estar errado, mas pelo que sei, você não precisa completar com espacos em branco ao colocar em um arquivo TXT...

quando você for resgatar, ele pega certo.... vou mostrar um exeplo de como fica num arquivo TXT as gravações dos campos ( Nome, Endereco e Telefone)

Arquivo TXT:

"JOAO" "RUA PAULO ALMEIDA, 35" "8325-6585"

"JOAQUIM" "AV BARÃO , 1010" "9986-4572"

Apesar das colunas acabarem ficando fora de ordem, não haverá problemas no resgate dos dados, pois as aspas ( " " ) é que marcarão o fim do registro...

Posso estar falando besteira, mas nunca deu erro comigo!!! ~/o

[felipeiw]

Obrigado Bruno, mas no meu caso realmente eu preciso, pois vou fazer uma importacao onde eu terei que pegar campo a campo, pela sua posicao na linha do txt e pelo seu tamanho, exemplo Copy(linha,10,50).

abraços

[Graymalkin]

Geralmente eu crio duas funções para isso, as quais chamo de AjustaE() para espaços à esquerda e AjustaD() para espaços à direita:

Public Function AjustaD(ByVal texto As String, ByVal tamanho As Integer) As String
    Dim s As String
    
    s = Space(tamanho)
    LSet s = texto
    AjustaD = s
End Function

Public Function AjustaE(ByVal texto As String, ByVal tamanho As Integer) As String
    Dim s As String
    
    s = Space(tamanho)
    RSet s = texto
    AjustaE = s
End Function

Daí é só usar:

? AjustaD("JOÃO", 10)
? AjustaD("JOAQUIM", 10)

Certo? ;)

Graymalkin