Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

343 - Exportar Flexgrid a un archivo de texto

Ejemplo simple que recorre las filas y columnas de un control Microsoft Flexgrid para guardar los datos en un archivo de texto

Formulario

vista del formulario para poder exportar el flexgrid a un archivo de texto

Para el ejemplo agregar

un control CommandButton
y un control Flexgrid o Hierarchical Flexgrid

Al procedimiento que graba en el archivo de texto, pasarle como parámetro el flex, el path o ruta del txt y el delimitador que se usará para separar las columnas, por ejemplo el caracter de tabulación VbTab, una coma, punto y coma etc...

Código fuente en el formulario

Option Explicit Private Sub Command1_Click() Dim ret As Boolean ' Le envia el control MsFlexgrid, el path del archivo _ txt y el delimitador ret = Exportar_FlexGrid_txt(MSFlexGrid1, "prueba.txt", vbTab) If ret Then MsgBox "Flexgrid exportardo a txt ", vbInformation End If End Sub ' Función que genera el txt con los datos de la grilla ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function Exportar_FlexGrid_txt(FlexGrid As Object, _ Path_Txt As String, _ Delimitador As Variant) As Boolean On Error GoTo Err_Funcion Dim Fila As Integer Dim Columna As Integer Dim Free_File As Integer ' Número de archivo libre para crear el archivo de texto Free_File = FreeFile ' Abre y crea el archivo Open Path_Txt For Output As #Free_File ' Recorre las filas del Flexgrid For Fila = 0 To _ FlexGrid.Rows - 1 FlexGrid.Row = Fila ' Recorre las columnas For Columna = 0 To _ FlexGrid.Cols - 1 FlexGrid.Col = Columna ' escribe el Delimitador If Columna > 0 Then Print #Free_File, Delimitador; End If ' Escribe el dato Print #Free_File, vbNullString & FlexGrid.Text & vbNullString; Next Print #Free_File, "" Next Close Exportar_FlexGrid_txt = True ' Fin Exit Function ' error Err_Funcion: Close #Free_File MsgBox Err.Description, vbCritical End Function Private Sub Form_Load() Dim dato As String Dim Fila As Integer ' carga algunos datos al flexgrid MSFlexGrid1.Cols = 3 For Fila = 1 To 12 dato = CStr(Fila) & Chr(9) & MonthName(Fila) ' añade el dato MSFlexGrid1.AddItem dato Next Command1.Caption = " Guardar Flexgrid en txt" Me.Caption = " Guardar Flexgrid en un archivo de texto " End Sub

Recursos Visual basic 6.0 - Enlaces relacionados

Recursos vb.net - enlaces relacionados

Exportar un control DataGridView a un archivo de texto Csv

Buscar en Recursos vb