domingo, octubre 17, 2021

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,736FansMe gusta
326SeguidoresSeguir

Popular esta semana

SQL Server - Merge

MERGE en SQL Server para Insert, Delete y Update con dos tablas

Ejemplo práctico usando MERGE para sincronizar dos tablas, Insert, Update y Delete en un solo query. Válido para SQL SERVER 2008 o superior.

Calcular la distancia entre dos puntos geográficos en SQL Server

En este ejemplo mostramos como calcular la distancia en metros o kilómetros entre dos puntos geográficos, por latitud y longitud. El resultado lo obtenemos en metros o kilómetros.

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.

Últimos artículos

Flutter - Instagram Clone App

Instagram Clone App con Flutter

Marvin Stanley Valenzuela nos comparte un reto y genialidad a la vez, excelente práctica de la que podemos aprender mucho, diseñó en...

¿Cómo agregar una IP adicional en una VM Ubuntu en Azure?

Lo más común al momento de crear y configurar un nuevo servidor es que a este le asigne un solo IP, pero...
flutter one year

Después de un año con Flutter, esto es lo que aprendí

La historia comenzó cuando un día desperté pensando en tener un nuevo proyecto personal. Me dije a mí misma que hay muchas...
promocionar app

Cómo promocionar gratis tu app usando tappx

Como todos los que me siguen y mis redes sociales sabrán, recientemente lancé mi primera aplicación, pero más allá del desafío tecnológico de...