06/06/2016, 21:45
|
| | 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() |