ALINHAR TXT

ADHEL 12/09/2011 12:17:50
#383985
é possível alinhar txt gerado pelo vb.net ?

A forma que gero é essa abaixo

For i = 0 To dgv.Rows.Count - 1
fluxoTexto.WriteLine(dgv.CurrentRow.Cells([Ô]codigo[Ô]).Value.ToString _
& [Ô] [Ô] & dgv.CurrentRow.Cells([Ô]nome[Ô]).Value.ToString _
& [Ô] [Ô] & dgv.CurrentRow.Cells([Ô]saldo[Ô]).Value.ToString ))
dgv.Rows.RemoveAt(dgv.CurrentRow.Index)
Next

Ele gera desse modo

12 JOAO CARLOS 30,00
239 MARIA TEIXEIRA 45,00
1005 PEDRO DA SILVA 1200,00

Gostaria que ficasse assim se possível

12 JOAO CARLOS 30,00
239 MARIA TEIXEIRA 45,00
1005 PEDRO DA SILVA 1200,00

Desde já grato pela atenção






ALTAIR148 12/09/2011 12:58:15
#383986
Boa tarde,

Acho que nesse caso ai vc teria que ser com largura fixa, olha se isso te ajuda:

http://social.msdn.microsoft.com/Forums/pt-BR/vsvbasicpt/thread/3aaf2071-cb70-42f4-9098-a4b69cf2daa4/

Até mais.
ADHEL 12/09/2011 13:39:30
#383987
Altair obrigado por sua atenção
Não entendi a lógica e não soube aplicar à minha necessidade.
Se não for descabido,tem como me auxiliar mais .
Um exemplo se possível
Até mais
MAXCIM 12/09/2011 14:00:31
#383988 Resposta escolhida
Dim strfmt As String = [Ô]{0,-10}{1,-20}{1,-10}[Ô]

fluxoTexto.WriteLine(String.Format(strfmt, dgv.CurrentRow.Cells([Ô]codigo[Ô]).Value.ToString _
& [Ô] [Ô] & dgv.CurrentRow.Cells([Ô]nome[Ô]).Value.ToString _
& [Ô] [Ô] & dgv.CurrentRow.Cells([Ô]saldo[Ô]).Value.ToString )))
dgv.Rows.RemoveAt(dgv.CurrentRow.Index)


vc pode tentar assim. cria um espaço reservado de 10 posiçoes outro de 20 posiçoe e o ultimo de 30 posiçoes e insere os valores nestes espaços..
os campos numeros vc pode ainda uar o PadLeft para ajustar a direita.
Tópico encerrado , respostas não são mais permitidas
Voltar