Comunidad Gambas-es

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

Mensajes parecidos, repetidos en tema, buscador

Shell 17-12-2023, 14:34

Buenas!.

Hoy, día 17 de diciembre he creado un mensaje sobre la bios y sus perfiles.
No me acordaba en su día había creado otro similar.

Podemos:

Primero buscar mensajes similares para no repetir el título o la temática o bien, continuar el post
anterior.

A la hora de buscar me encontré un problema. Suponer que estamos buscando "perfil" y "bios"
Y existen a lo mejor los dos mensajes, ya los había creado.

Fijaros, el título del primer mensaje contiene "perfil" y el otro es "Perfil".
Pues son distintos. Si buscas perfil, no aparece el mensaje que contiene de título Perfil.
¿ Es sensible a mayúsculas y minúsculas ?. Tiene todas las posibilidades.

Puede que esto fuese más complejo de hacer. A la vez que estamos creado un título nuevo, que los mensajes
del foro que contengan palabras similares fueran apareciendo al igual que una lista. Supongo que esto debe
ser la pera de consumo de recursos del sistema.

Pues no, no sale el otro post. Que raro.

Si escribo perfil y Perfil siempre me muestra el primer mensaje, el de hoy, pero no me encuentra el antiguo:

Perfil de Bios

Sobre gambas-es.org Respuestas 2

Actualizar la bios y recuperar el perfil grabado

Shell 17-12-2023, 12:35

Buenas!.

Como sé que os gusta mucho el tema de Linux y sobre todo el hardware. Es que no paráis. Rolleyes

Hace unos días actualicé la bios, ya le tocaba, no es algo que me guste, pero iba para casi dos
años que no lo hacía. La bios incluye una opción que es "perfiles". En estos perfiles guardas
la configuración de las opciones seleccionadas de la bios.

El motivo es para no tener que estar configurando la bios otra vez, perdiendo el tiempo.
Y por si alguna se te olvida una opción o más de una. Por ejemplo, velocidad de la ram, tener activa la virtualización, etc, etc.

Problema, al actualizar se pierden los perfiles.

Es probable que este perfil deba ser grabado en un dispositivo externo.
Un usb y luego cargarlo desde ese dispositivo.

No sé si os gusta tocar las cosas de la bios sin haber rezado antes vuestras oraciones. ( Es una forma de hablar ). Shy