jueves, agosto 22, 2019

Escribir archivos de texto con VB.NET

En algunos sistemas te solicitan exportar datos en formato de archivos de texto .txt, ya sea para importar o exportar datos, enviar algún tipo de información por correo electrónico o hacer algún respaldo sencillo, en fin, sirve para muchas otras cosas más y aquí te explicamos como crearlo.

En este ejemplo obtenemos los datos de una función que nos retorna un dataset, luego lo leemos y utilizamos cada datarow para llenar el archivo línea por línea.

Debemos importar la librería Imports System.IO

Private Sub GeneraArchivo()
  'Variables para abrir el archivo en modo de escritura
  Dim strStreamW As Stream
  Dim strStreamWriter As StreamWriter
  Try
      Dim ds As New DataSet
 
      Dim FilePath As String = "C:\nombreArchivo.txt"
 
      'Se abre el archivo y si este no existe se crea
      strStreamW = File.OpenWrite(FilePath)
      strStreamWriter = New StreamWriter(strStreamW, _
                          System.Text.Encoding.UTF8)
 
      'Se traen los datos que necesitamos para el archivo
      'TraerDatosArchivo retorna un dataset pero perfectamente
      'podria ser cualquier otro tipo de objeto
      'Aquí debe llenar el dataset con los datos requeridos
      ds = Negocios.TraerDatosArchivo()
 
      Dim dr As DataRow
      Dim Nombre as String = ""
      Dim Apellido as String = ""
      Dim Email as String = ""
 
      For Each dr In ds.Tables(0).Rows
         'Obtenemos los datos del dataset
         Nombre = CStr(dr("Nombre"))
         Apellido = CStr(dr("Apellido"))
         Email = CStr(dr("Email"))
 
         'Escribimos la línea en el achivo de texto
         strStreamWriter.WriteLine(Nombre & " " & Apellido & " - " & Email)
 
      Next
 
      strStreamWriter.Close()
 
      MsgBox("El archivo se generó con éxito")
 
  Catch ex As Exception
      strStreamWriter.Close()
      MsgBox(ex.Message)
  End Try
End Sub

 




Roy Rojashttp://www.dotnetcr.com
Con más de 20 años de experiencia en programación, experto en lenguajes .NET, VB, C#, ASP.NET, Xamarin, XCode, DBA en SQL Server. Creador de dotnetcr.com, sitio web para programadores en español. royrojas.com | dotnetcr.com | GitHub

Redes Sociales

2,795FansMe gusta
342SeguidoresSeguir

Popular esta semana

ERROR PHP 7.2

Error: PHP Warning: count(): Parameter must be an array or an object that implements...

Como solucionar el error "PHP Warning: count() : Parameter must be an array or an object that implements Countable in..."

SQL Server: Error 3414, servicio no inicia

El error 3414 se produce generalmente cuando el motor de la base de datos SQL Server sufre algún evento imprevisto. Aquí lo solucionamos.

DELETE con subconsulta o INNER JOIN

En el siguiente ejemplo se explica la forma en que se pueden eliminar registros en nuestras tablas con instrucciones DELETE más complejas que las...

Últimos artículos

Factura Electrónica Costa Rica

Encabezados del XML Factura Electrónica Costa Rica 4.3

Para generar el XML de la factura electrónica de Costa Rica se debe de seguir un formato específico para que estas sean...
C# - PDF417

Crear código PDF417 con iTextSharp y XZing en C# .NET

Para crear códigos PDF417 existen herramientas que podemos agregar a nuestra aplicaciones. En este ejemplo vamos explicar como utilizar iTextSharp y ZXing.

SQL Server: Error 3414, servicio no inicia

El error 3414 se produce generalmente cuando el motor de la base de datos SQL Server sufre algún evento imprevisto. Aquí lo solucionamos.
C# String Base64

Convertir String a Base64

Hemos tenido algunas consultas en estos días de cómo convertir Texto String a Base64 y viceversa, ahora por el tema de "Factura Electrónica", entonces decidimos hacer este pequeño ejemplo.