Comunidad Gambas-es

Opción Interfaz del menú de preferencias

Shell 23-06-2023, 14:41

Buenas!.

¿ Les suenan todas las opciones ?.

[Imagen: hkPOsd1.png]

¿ Ventana de utilidad ?.
Las opciones de sombra y animación las tengo activa por defecto, pero nunca se me ha ocurrido desactivarlas.

Por cierto, tener cuidad con cambiar el diseño, no es por nada, es que os cambia el tamaño de los iconos de la barra y luego hay que
modificarlo manualmente. Parece que se pone por defecto en muy pequeños. ( Tiny ).

Saludos

General Sin respuestas

¿ Gambas es tozudo ?. Arbol del proyecto. Mostrar

Shell 23-06-2023, 14:27

Buenas!.

Fijaros, tengo este árbol de proyecto.

[Imagen: bHGBps0.png]

Veis que el directorio de Imágenes está abierto y muestra todo su contenido.
Hago esto:

- Cierro o contraigo la carpeta imágenes para que no me muestre las imágenes.
- Grabo el proyecto, por si tiene un setting el editor de este.

- Abro de nuevo y se vuelve a mostrar abierta la carpeta imágenes con todo su contenido.

¿ Eso es normal ?. ¿ Dónde puede estar el problema ?. ¿ En el setting del proyecto ?.
Por ejemplo, ¿ aquí ?.

Cita:[OpenFile]
File[1]=".src/FMain.form"
File[2]=".src/Animal.class:0.19"
Active=2
File[3]=".src/FMain.class:3.130"
File[4]="Imagenes/04_hippopotamus.png"
File[5]="Imagenes/01_cat.png"
File[6]="Imagenes/02_pig.png"
Count=6

Como no sea alguna opción de preferencias del menú del editor.

Saludos

General Sin respuestas

¿Cómo obtener el texto plano de un «RichText» (HTML)?

Grandamakulo 23-06-2023, 12:47

Pues eso, compañeros, ¿cómo obtener el texto plano de un RichText —HTML—, similar a WebPage.ToString, pero sin cargar este componente? Quiero decir, que si hay alguna función de cadena que mi natural torpeza me haya impedido ver.
De momento, me apaño así —las ReGex las he ido encontrando por ahí y adaptándolas al algo corto PCRE de gambas3—:

Código:
Public Function HTMLaTexto(sTexto As String) As String

  ' **** Obtener texto plano de un RichText (HTML).

  ' <<<< sPaso : Devuelve una cadena con texto plano.

  ' >>>> sTexto: Texto formato HTML.

  '' ╔═════════════════════════════════════════════════════════════╗

  '' ║ Atención: PCRE sólo admite texto ASCII extendido, no UTF-8. ║

  '' ║     Los valores obtenidos pueden no ser correctos.          ║

  '' ╚═════════════════════════════════════════════════════════════╝

  Dim sPaso As String

  ' Eliminar CSS y JS

  sPaso = RegExp.Replace(sTexto, "<(script|style)[^>]*>(.*?)<.(script|style)>", "", RegExp.Caseless + RegExp.DotAll)

  ' Eliminar comentarios

  sPaso = RegExp.Replace(sPaso, "<!--.*?-->", "", RegExp.DotAll)

  ' Eliminar etiquetas

  sPaso = RegExp.Replace(sPaso, "<(.|\n)*?>", "", RegExp.Greedy)

  ' Eliminar caracteres de edición antes y después

  sPaso = Trim(sPaso)

  Return sPaso

End