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 ???
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?
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
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
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
EndNo 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
Bienvenido, Invitado
Últimos temas
Problema con el repósito ...
Foro: InstalaciónÚltimo mensaje por: guizans, 14-04-2026, 21:38
Respuestas: 2 - Vistas: 333
UEFI y BIOS
Foro: Hardware & IoTÚltimo mensaje por: guizans, 13-04-2026, 21:22
Respuestas: 3 - Vistas: 2,497
Visual Studio Code con Ga...
Foro: GeneralÚltimo mensaje por: guizans, 07-03-2026, 14:24
Respuestas: 2 - Vistas: 714
WebForm con mysql gridvie...
Foro: WebApp/WebFormsÚltimo mensaje por: vjarvelo, 03-03-2026, 16:32
Respuestas: 2 - Vistas: 3,373
Sobre la proteccion del c...
Foro: GeneralÚltimo mensaje por: Shordi, 19-02-2026, 11:07
Respuestas: 7 - Vistas: 1,307