Comunidad Gambas-es

jorge trejos 30-12-2023, 05:22

Bueno por cosas de la vida ahora tengo que hacer un reporte o una factura mas bien ...el asunto es el siguiente... no hay buena documentación de gambas report alguien tiene algún buen ejemplo de como hace una factura usando el gambas report ?? o del uso del gambas report ???

General Respuestas 1

uso websocket

playmepe 27-12-2023, 01:02

Hola grupo, alguien que conoce de websocket; que tenga un ejemplo de como tener los controles multimedia en una pagina index.html y el reproductor de video en otra pagina player.html, estas páginas se encuentren en localhost y controlarlos via websocket?

General Sin respuestas

Reemplazar cabeceras de un archivo CSV

alberto-moyano 21-12-2023, 02:15

Hola gente, estoy intentando insertar un archivo CSV a una de las tablas de mi base de datos, antes de poder hacer el insert en SQLite necesito normalizar algunas de las cabeceras del archivo CSV que obtengo por exportación desde otro programa, el código que escribí es el sigueinte

Código:
Public Sub menuBIBingresar_Click()

  Dialog.Title = "Seleccionar archivo CSV con bibliografía"

  Dialog.Filter = ["*.csv", "Archivos de texto CSV"]

  Dialog.AutoExt = True

  Dialog.Path = User.Home & "/"

  Dialog.ShowHidden = False

  If Dialog.OpenFile() Then

    Dim rutaArchivo As String = Dialog.Filename ' Obtener la ruta del archivo seleccionado

    Dim reemplazos As String[][] ' Función que incorpora las referencias

    ' Defino los reemplazos

    reemplazos = [["BibliographyType", "NuevoNombre1"], ["ISBN", "NuevoNombre2"]]

    ' Llama a la función y obtengo la línea modificada

    Dim lineaModificada As String = ModificarNombresDeColumnas(rutaArchivo, reemplazos)

    ' Guardar la línea modificada

    Dim nuevoArchivo As String = rutaArchivo

    GuardarEnArchivo(nuevoArchivo, lineaModificada)

  End If

End

' Función para realizar la secuencia de reemplazos

Public Function ModificarNombresDeColumnas(archivo As String, reemplazos As String[][]) As String

  Dim miArchivo As File

  miArchivo = Open archivo For Read Write

  Dim linea As String = miArchivo.ReadLine

  miArchivo.Close

  ' Realiza los reemplazos de nombres

  Dim r As String[]

  For Each r In reemplazos

    linea = Replace(linea, r[0], r[1])

  Next

  Return linea

End

' Función para guardar en un archivo

Public Sub GuardarEnArchivo(archivo As String, contenido As String)

  Dim miArchivo As File

  miArchivo = Open archivo For Output

  ' Escribe el contenido en el archivo

  Print miArchivo, contenido

  ' Cierra el archivo

  miArchivo.Close

End

No obtengo ningún error del ide, pero tampoco el resultado buscado, no me queda claro si me estoy equivocando al escribir el cambio (piso sobre el mismo archivo) o si directamente no estoy haciendo los reemplazos.

¿Donde me estoy equivocando?

Gracias de antemano

Aplicaciones/Fragmentos de Código Respuestas 4

Páginas (557): 1 … 107 108 109 110 111 … 557

Bienvenido, Invitado

Buscar en los foros

Estadísticas del foro

Miembros: 284

Último miembro: VALENTIN KORONADO

Temas del foro: 1,719

Mensajes del foro: 8,922

Últimos temas

Portal

jorge trejos 30-12-2023, 05:22

playmepe 27-12-2023, 01:02

alberto-moyano 21-12-2023, 02:15

Un sistema de ayudas cont...

Publicidad

Web con gambas, a ver si ...

Crear una aplicación para...

Paso de parámetros a una ...