Ver Mensaje Individual
  #1 (permalink)  
Antiguo 06/06/2016, 21:45
Andres_Fernando
 
Fecha de Ingreso: junio-2016
Mensajes: 3
Antigüedad: 8 años, 5 meses
Puntos: 0
poner ceros a la izquierda al exportar un dato

BUENA NOCHE E INTENTADO PONER CEROS A AL IZQUIERDA CUANDO EXPORTO A UN TXT UN NUMERO DE UN DATAGRIB EN VB.NET ESTE ES EL CODIGO Q UTILIZO APRA EXPORTAR LOS DATOS MI DUDA ES NO E PODIDO AGREGAR LOS CEROS A LA IZQUIERDA OSEA 002 LO INTENTE CON UN ToString("00000") PERO POS NADA ALGUIEN ME PUDE DAR UNA GUÍA O AYUDA MUCHAS GRACIAS


Dim sFile As String = "C:\Users\clases\Desktop\Registro.txt"
Process.Start("notepad.exe", "C:\Users\clases\Desktop\Registro.txt")
Dim _Line As String = Nothing

If File.Exists(sFile) = True Then 'Si el archivo existe, lo elimina antes
My.Computer.FileSystem.DeleteFile(sFile, FileIO.UIOption.OnlyErrorDialogs,
FileIO.RecycleOption.DeletePermanently, FileIO.UICancelOption.DoNothing)
End If


Dim swFile As StreamWriter = New StreamWriter(sFile)
With ClientesDataGridView



For i = 0 To .RowCount - 1
_Line = .Rows(i).Cells(0).Value.ToString("00000") & vbTab




swFile.WriteLine(_Line)
Next
End With
swFile.Close()