Menu

  • slider04-vb6sqlhd
  • slider01-vb6sqlhd
  • slider01-vb6sqlhd
  • slider01-vb6sqlhd
  • slider01
  • slider01
  • slider01
  • slider01

Suscríbete a Aprende-Viendo 5.0

Content

Encabezado a TXT

0
Señores una pregunta, tengo un datagridview (tal como lo hizo nuestro mentor Ronald en el webinar de VB.NET), agregue un codigo para exportarlo a un archivo XML, solo q quiero agregar un encabezado antes de q empieze a escribir las Lineas, el codigo lo tengo asi:

Private Sub BtnExportar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExportar.Click
Dim sFile As String = "C:\Users\ivannegger\Desktop\try.xml"
Dim _Line As String = Nothing
Try
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 DgvClientes 'dgvLis es el nombre de mi DataGridView
For i = 0 To .RowCount - 1
_Line = .Rows(i).Cells(0).Value & "|" & _
.Rows(i).Cells(1).Value & "|" & _
.Rows(i).Cells(2).Value & "|" & _
.Rows(i).Cells(3).Value & "|"
swFile.Write("Inicia XML")
swFile.WriteLine(_Line)
Next
End With
MsgBox("Archivo Creado satisfactoriamente")
swFile.Close()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub

Como le puedo hacer para q escriba un encabezado y una nota al final del archivo???

Gracias y Saludos
Agregar Tu Respuesta
Por favor registrese o ingrese para poder publicar su respuesta.

Agradesco tu Paciencia. Muchas Gracias por la espera! Somos Aprende Viendo 5.0

Grupo AprendeViendo & Ronald López agradecen a todos sus fieles seguidores por la larga espera. Basados en nuestro nuevo concepto, Grupo Aprendeviendo les ofrece un sin fin de posibilidades en sus largas horas de adiestramiento y soluciones de problemas tanto empresariales como cotidianos. Sigamos siendo un portal de enseñanza de virtual gratuito y más que eso!

Copyright © 2006 - 2014 - Grupo AprendeViendo & Ronald López. Todos los Derechos Reservados

Grupo AprendeViendo a sido desarrollado por Ronald López - Kalizron. Esta prohibida su reproducción total o parcial sin previa autorización de parte de sus autores. Ronald López Bahamonde - Resolución: 1024-768 - Aviso Legal - Términos de Uso

Log In or Register

fb iconLog in with Facebook