Shell 09-03-2024, 15:02
Buenas!.

Quizás se deba situar esto en aplicaciones o fragmentos, pero es que no es eso.
Creo que es importante ya que sería más fácil de encontrarse el archivo.

Algo sobre los temas de colores que lo que podíamos hablar es qué es cada uno de sus definiciones.
Algunas parecen muy claras, otras no (no tantas) y hay que probar a ver que son, variando su propiedad
para ver que resultado hace.

¿ Cuáles de estas valores de configuración para el color no saben que es ?. ( Y así resolvemos dudas )
Lo verán tal con los colores que tengo aplicado ahora mismo. Y se ve bien con temas oscuros. ( Bueno, para gusto los colores). Smile


[Imagen: 253atlJ.png]

Otra cosa que intenté fue cambiar el nombre del archivo, pero tal como lo hago desde el administrador de
archivos se le cambia automáticamente el mime types.

Ejemplo: Un archivo de configuración de colores de Gambas tiene este mime type:

application/x-theme

Si mi usuario por defecto es jack, pues el nombre del archivo es jack.gambas.themes.
Si ahora lo cambio por shell.gambas.themes, el tipo de mime cambia automáticamente a:
( Si hago una copia del archivo y lo pego en el mismo directorio, va bien, pero no puedo poner
lo que dije antes). Ya que si lo renombro el archivo su mime type, cambia a:

application/x-desktop

Y después de la teoría os mostraré como se ve en mi editor de Gambas,los colores con esta configuración
personalizada

[Imagen: Sb4rTr9.png]

¿ Qué os parece ?. Rolleyes
 

Que raro lo hice desde la linea de comandos y no pasó eso.

Saludos

En Linux Mint existe una aplicación que es:

Dialogo de selección de color.

[Imagen: NxrfsUL.png]

Con esta aplicación ( que recuerda al (recoge-color) de la aplicación GIMP podeís seleccionar algo del escritorio
y averiguar que color tiene, con esa combinación luego se la dices a Gambas en la configuración que
te interesa. (Copiar y pegar prácticamente ).

Ya no tengo el problema que tenía antes, cuando veía el contenido de una variable, un tipo, un objeto.

[Imagen: fK2WCLL.png]

Que lo veía todo verde.

Y para que no os quedéis cegatos os subo la configuración. Vaya no me deja subirlo, me dice que el tipo de archivo no está permitido. Confused
Lo comprimo con tar.gz

Ahora si.

Saludos
Archivos adjuntos
.gz
shell.oscuro.gambas.theme.tar.gz (Tamaño: 718 bytes Descargas: 4)
alberto-moyano 05-03-2024, 03:57
Hola gente, le estoy dando vueltas al tema y ya me encuentro perdido, tengo la siguiente función para exportar metadados desde una base SQLite, la cuestión es así, en un textbox de un formulario estoy guadando los Id de otra tabla sepadados por espacios, puede ser en cualquier orden (21 12 8 o 2 34 21, etc.) el tema es que cuando el Id es uno solo no tengo problema con la consulta pero si son varios implento un ciclo FOR que no funciona, no me queda claro si el código que escribí esta mal o no es con un FOR como debo resolver esto, les muestro mi código

Gracias de antemano

Código:
'exportamos el archivo de metadatos para PDF libro
Public Sub ExportToMetaPDF()

  Dim s As String
  Dim f As ResultField
  Dim fb As ResultField
  Dim aFields As New String[]
  Dim bFields As New String[]
  Dim w As Integer
  Dim wb As Integer
  Dim buscar As String
  Dim buscarAutor As String
  Dim outputFile As String

  'me conceto a la base de datos
  Conn = Mod_Conn.conectar()

  buscar = "select * from metadatos where nombreArchivo like '%" & rutaNAME & "%'"

  ' Exportar el registro seleccionado
  Contenido = Conn.Exec(buscar)

  aFields.Clear
  For Each f In Contenido.Fields
    aFields.Add(f.Name)
    If Len(f.Name) > w Then
      w = Len(f.Name)
    Endif
  Next

  ' Obtener los IDs separados por espacios
  Dim ids As String[] = Split(Contenido[aFields[5]], " ")

  ' Iterar sobre los IDs y obtener la información correspondiente
  For Each id In ids
    buscarAutor = "SELECT * FROM autores WHERE id = " & id
    ContenidoAutor = Conn.Exec(buscarAutor)

    bFields.Clear
    For Each fb In ContenidoAutor.Fields
      bFields.Add(fb.Name)
      If Len(fb.Name) > wb Then
        wb = Len(fb.Name)
      Endif
    Next

    s = "" ' Inicializa la cadena vacía

    ' Agregar la información al resultado
    s &= ContenidoAutor[bFields[2]] & " " & ContenidoAutor[bFields[1]] & ", "
  Next

  ' Eliminar la coma adicional al final y cerrar la cadena
  s = Left(s, Len(s) - 2) & "},\n"

  ' trabajando con un solo Id este código funciona sin problemaas
  ' buscarAutor = "select * from autores where id = " & Contenido[aFields[5]]
  '
  ' ' Exportar el registro seleccionado
  ' ContenidoAutor = Conn.Exec(buscarAutor)
  '
  ' bFields.Clear
  ' For Each fb In ContenidoAutor.Fields
  '   bFields.Add(fb.Name)
  '   If Len(fb.Name) > wb Then
  '     wb = Len(fb.Name)
  '   Endif
  ' Next

  While Contenido.Available
    s &= "\\hypersetup" & "{" & "\n"

    If Not IsNull(Contenido[aFields[2]]) And Len(Contenido[aFields[2]]) > 0 Then
      s &= "\\XMPLangAlt" & Contenido[aFields[2]] & "\n"
    Endif
    If Not IsNull(Contenido[aFields[3]]) And Len(Contenido[aFields[3]]) > 0 Then
      s &= "\\XMPLangAlt" & Contenido[aFields[3]] & "\n"
    Endif
    If Not IsNull(Contenido[aFields[4]]) And Len(Contenido[aFields[4]]) > 0 Then
      s &= "\\XMPLangAlt" & Contenido[aFields[4]] & "\n"
    Endif

    ' s &= "pdfauthor={" & ContenidoAutor[bFields[2]] & " " & ContenidoAutor[bFields[1]] & "},\n"'

    If Not IsNull(Contenido[aFields[7]]) And Len(Contenido[aFields[7]]) > 0 Then
      s &= "pdfsubject={" & Contenido[aFields[7]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[9]]) And Len(Contenido[aFields[9]]) > 0 Then
      s &= "pdfsubtitle={" & Contenido[aFields[9]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[10]]) And Len(Contenido[aFields[10]]) > 0 Then
      s &= "pdfauthortitle={" & Contenido[aFields[10]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[11]]) And Len(Contenido[aFields[11]]) > 0 Then
      s &= "pdfdate={" & Contenido[aFields[11]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[12]]) And Len(Contenido[aFields[12]]) > 0 Then
      s &= "pdfcreationdate={" & Contenido[aFields[12]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[13]]) And Len(Contenido[aFields[13]]) > 0 Then
      s &= "pdfmoddate={" & Contenido[aFields[13]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[14]]) And Len(Contenido[aFields[14]]) > 0 Then
      s &= "pdfmetadate={" & Contenido[aFields[14]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[15]]) And Len(Contenido[aFields[15]]) > 0 Then
      s &= "pdfcopyright={" & Contenido[aFields[15]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[16]]) And Len(Contenido[aFields[16]]) > 0 Then
      s &= "pdflicenseurl={" & Contenido[aFields[16]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[17]]) And Len(Contenido[aFields[17]]) > 0 Then
      s &= "pdfcaptionwriter={" & Contenido[aFields[17]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[18]]) And Len(Contenido[aFields[18]]) > 0 Then
      s &= "pdfcontactaddress={" & Contenido[aFields[18]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[19]]) And Len(Contenido[aFields[19]]) > 0 Then
      s &= "pdfcontactcity={" & Contenido[aFields[19]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[20]]) And Len(Contenido[aFields[20]]) > 0 Then
      s &= "pdfcontactpostcode={" & Contenido[aFields[20]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[21]]) And Len(Contenido[aFields[21]]) > 0 Then
      s &= "pdfcontactcountry={" & Contenido[aFields[21]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[22]]) And Len(Contenido[aFields[22]]) > 0 Then
      s &= "pdfcontactregion={" & Contenido[aFields[22]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[23]]) And Len(Contenido[aFields[23]]) > 0 Then
      s &= "pdfcontactphone={" & Contenido[aFields[23]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[24]]) And Len(Contenido[aFields[24]]) > 0 Then
      s &= "pdfcontactemail={" & Contenido[aFields[24]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[25]]) And Len(Contenido[aFields[25]]) > 0 Then
      s &= "pdfcontacturl={" & Contenido[aFields[25]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[26]]) And Len(Contenido[aFields[26]]) > 0 Then
      s &= "pdfdocumentid={" & Contenido[aFields[26]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[27]]) And Len(Contenido[aFields[27]]) > 0 Then
      s &= "pdfpublication={" & Contenido[aFields[27]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[28]]) And Len(Contenido[aFields[28]]) > 0 Then
      s &= "pdfpublisher={" & Contenido[aFields[28]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[29]]) And Len(Contenido[aFields[29]]) > 0 Then
      s &= "pdftype={" & Contenido[aFields[29]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[30]]) And Len(Contenido[aFields[30]]) > 0 Then
      s &= "pdfpubtype={" & Contenido[aFields[30]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[31]]) And Len(Contenido[aFields[31]]) > 0 Then
      s &= "pdfvolumenum={" & Contenido[aFields[31]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[32]]) And Len(Contenido[aFields[32]]) > 0 Then
      s &= "pdfissuenum={" & Contenido[aFields[32]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[50]]) And Len(Contenido[aFields[50]]) > 0 Then
      s &= "pdfpagerange={" & Contenido[aFields[50]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[34]]) And Len(Contenido[aFields[34]]) > 0 Then
      s &= "pdfbookedition={" & Contenido[aFields[34]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[35]]) And Len(Contenido[aFields[35]]) > 0 Then
      s &= "pdfisbn={" & Contenido[aFields[35]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[36]]) And Len(Contenido[aFields[36]]) > 0 Then
      s &= "pdfissn={" & Contenido[aFields[36]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[37]]) And Len(Contenido[aFields[37]]) > 0 Then
      s &= "pdfeissn={" & Contenido[aFields[37]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[38]]) And Len(Contenido[aFields[38]]) > 0 Then
      s &= "pdfpubstatus={" & Contenido[aFields[38]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[39]]) And Len(Contenido[aFields[39]]) > 0 Then
      s &= "pdflang={" & Contenido[aFields[39]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[40]]) And Len(Contenido[aFields[40]]) > 0 Then
      s &= "pdfmetalang={" & Contenido[aFields[40]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[41]]) And Len(Contenido[aFields[41]]) > 0 Then
      s &= "pdfbaseurl={" & Contenido[aFields[41]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[42]]) And Len(Contenido[aFields[42]]) > 0 Then
      s &= "pdfurl={" & Contenido[aFields[42]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[43]]) And Len(Contenido[aFields[43]]) > 0 Then
      s &= "pdfdoi={" & Contenido[aFields[43]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[44]]) And Len(Contenido[aFields[44]]) > 0 Then
      s &= "pdfrendition={" & Contenido[aFields[44]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[45]]) And Len(Contenido[aFields[45]]) > 0 Then
      s &= "pdfidentifier={" & Contenido[aFields[45]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[46]]) And Len(Contenido[aFields[46]]) > 0 Then
      s &= "pdfx={" & Contenido[aFields[46]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[47]]) And Len(Contenido[aFields[47]]) > 0 Then
      s &= "pdfversionid={" & Contenido[aFields[47]] & "},\n"
    Endif

    If Not IsNull(Contenido[aFields[57]]) And Len(Contenido[aFields[57]]) > 0 Then
      s &= "pdfkeywords={" & Contenido[aFields[57]] & "},\n"
    Endif
    If Not IsNull(Contenido[aFields[61]]) And Len(Contenido[aFields[61]]) > 0 Then
      s &= "pdfformato={" & Contenido[aFields[61]] & "},\n"
    Endif

    ' el titulo del libro es campo obligatorio por eso no tiene condicional
   s &= "pdftitle={" & Contenido[aFields[84]] & "},\n"

    s &= "pdfcreator={gbTeXpublisher}" & ",\n"
    s &= "pdfproducer={Ecosistema de LaTeX}" & ",\n"
    s &= "unicode=true" & ",\n"
    s &= "bookmarks=true" & ",\n"
    s &= "pdfdisplaydoctitle=true" & ",\n"
    s &= "pdfnewwindow=true" & "\n"
    s &= "}" & "\n"

    Contenido.MoveNext
  Wend

  ' Establece la ruta y el nombre del archivo de salida
  outputFile = File.Dir(TextBox1.Text) &/ "files" &/ "gbTeXmeta-" & File.BaseName(TextBox1.Text) & ".tex"

  ' Guarda el contenido acumulado en un solo archivo
  File.Save(outputFile, s)

  Conn.Close

End
Shell 05-03-2024, 00:16
Buenas!.

Creo que se ha movido la listas de correos a otro servidor. Algo se estuvo comentando.

Lo cierto es que ahora estoy recibiendo mensajes rebotados ( pero  personalmente no he escrito ninguno "aún".).
Si, uso GMail. Rolleyes


No sé si están haciendo pruebas. ¿ Alguien sabe algo ?. Desde el 1 de marzo no he recibido nuevos mensajes.
El único mensaje nuevo tiene este tema.

[Gambas-user] M/L replying to users email not the list

Saludos
Páginas (557):    1 94 95 96 97 98 557   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 284
Último miembro: VALENTIN KORONADO
Temas del foro: 1,719
Mensajes del foro: 8,920
Últimos temas
Publicidad
Foro: Sobre gambas-es.org
Último mensaje por: Shordi, 18-06-2025, 07:35
Respuestas: 5 - Vistas: 124
Web con gambas, a ver si ...
Foro: WebApp/WebForms
Último mensaje por: jackrobot, 16-06-2025, 17:11
Respuestas: 40 - Vistas: 31,676
Un sistema de ayudas cont...
Foro: Videotutoriales
Último mensaje por: Shordi, 30-05-2025, 13:22
Respuestas: 0 - Vistas: 169
Crear una aplicación para...
Foro: Bases de Datos
Último mensaje por: Shell, 29-05-2025, 20:11
Respuestas: 11 - Vistas: 1,186
Paso de parámetros a una ...
Foro: General
Último mensaje por: guizans, 29-05-2025, 19:27
Respuestas: 9 - Vistas: 731
Powered By MyBB, © 2002-2025 MyBB Group.
Made with by Curves UI.