Shell 29-06-2023, 13:06
Buenas!.
Es un ejercicio que estoy haciendo. No es sencillo, se necesitan distintas condiciones.
Estoy comenzando por la primera condición.
"La palabra comienza por consonante".
Por ahora me encuentro el problema que la palabra acabe en consonante.
He añadido al array de vocales, las vocales con tildes, pero creo que estos elementos se pueden evitar. ( Añadirlos es más fácil ).
La idea es que funcione por ahora la primera condición.
¿ Cómo haríais para solventar el problema de la consonante al final ?. ( Lo sé, seguro que después encuentro la solución ).
Saludos
Es un ejercicio que estoy haciendo. No es sencillo, se necesitan distintas condiciones.
Estoy comenzando por la primera condición.
"La palabra comienza por consonante".
Por ahora me encuentro el problema que la palabra acabe en consonante.
He añadido al array de vocales, las vocales con tildes, pero creo que estos elementos se pueden evitar. ( Añadirlos es más fácil ).
La idea es que funcione por ahora la primera condición.
Código:
Private vocales As String[] = ["a", "e", "i", "o", "u", "á", "é", "í", "ó", "ú"]
Private consonantes As String[] = ["b", "c", "d", "f", "g", "h", "j", "k", "l", "m", "n", "ñ", "p", "q", "r", "s", "t", "v", "w", "y", "z"]
Public Sub Main()
'Condición 1. Consonante al comienzo de la palabra
'No se comtempla aún que exista al final de la palabra una consonante
'Descomponer("casa")
'Descomponer("colibrí")
Descomponer("frigorífico")
'Aquí fallaría
'Descomponer("neveras")
End
Public Sub Descomponer(palabra As String)
Dim lugar As Integer
Dim subcadena As String
While String.Len(palabra) > 1
subcadena = ConsonanteAlPrincipio(palabra)
Print subcadena
'Para obtener el lugar hasta donde llega la subcadena:
'Encuentro el comienzo de la subcadena dentro de la cadena palabra y le añado el tamaño de la longitud de la subcadena menos una posición
'No existe una posición cero, las cadenas comienzan desde 1
lugar = String.RInStr(palabra, subcadena) + String.Len(subcadena) - 1
'Eliminamos de la palabra, la subcadena que se encuentra en el lugar más una posición
'Creando una palabra nueva, lo que queda de la palabra original
palabra = String.Mid(palabra, lugar + 1)
Wend
End
Public Function ConsonanteAlPrincipio(cadena As String) As String
Dim palabra As String
Dim x As Integer
Dim encuentraconsonante As Boolean
Dim encuentravocal As Boolean
palabra = ""
x = 1
While Not encuentraconsonante Or Not encuentravocal And x <= String.Len(cadena)
'Primero encontrar la consonante
If consonantes.Find(String.Mid(cadena, x, 1)) <> -1 Then
encuentraconsonante = True
palabra &= String.Mid(cadena, x, 1)
Endif
'Si encontramos la consonante, podemos buscar la vocal
If encuentraconsonante Then
If vocales.Find(String.Mid(cadena, x, 1)) <> -1 Then
encuentravocal = True
palabra &= String.Mid(cadena, x, 1)
Endif
Endif
Inc x
Wend
Return palabra
End¿ Cómo haríais para solventar el problema de la consonante al final ?. ( Lo sé, seguro que después encuentro la solución ).
Saludos
Shell 29-06-2023, 11:24
Buenas!
Chrome ya sea por rendimiento o por algún motivo que no se me ocurre ahora muestra las pestañas por defecto con solo un icono del lugar visitado.
( Cuando tienes muchas abiertas)
Aunque Chrome dispone de un buscador de pestañas, resulta difícil de ver que lugares tienes delante en el navegador.
Encontré la forma de poder ampliar el tamaño de las pestañas que muestra el navegador. Pero para ello tuve entrar en: ( que es algo experimental )
chrome://flags/
Y buscando la opción Tab Scrolling pude modificar el diseño de la pestaña.
O no lo encontré o tuve que ir directamente a estas opciones ocultas. Y ademas los nombres de las opciones que se llamaban de una forma hace un tiempo
ahora ya no se llaman igual o no existen a la vista.
Por eso digo de que son opciones que el usuario puede necesitar modificar y que se lo compliquen hasta un nivel considerado,
sin necesidad.
Saludos
Chrome ya sea por rendimiento o por algún motivo que no se me ocurre ahora muestra las pestañas por defecto con solo un icono del lugar visitado.
( Cuando tienes muchas abiertas)
Aunque Chrome dispone de un buscador de pestañas, resulta difícil de ver que lugares tienes delante en el navegador.
Encontré la forma de poder ampliar el tamaño de las pestañas que muestra el navegador. Pero para ello tuve entrar en: ( que es algo experimental )
chrome://flags/
Y buscando la opción Tab Scrolling pude modificar el diseño de la pestaña.
O no lo encontré o tuve que ir directamente a estas opciones ocultas. Y ademas los nombres de las opciones que se llamaban de una forma hace un tiempo
ahora ya no se llaman igual o no existen a la vista.
Por eso digo de que son opciones que el usuario puede necesitar modificar y que se lo compliquen hasta un nivel considerado,
sin necesidad.
Saludos
tincho 28-06-2023, 22:02
Hola crustáceos.
Uso esta función para agregar texto a un archivo. Es un registro rudimentario que cumple con los requerimientos.
¿Como se hace esto pero sin Shell?
Uso esta función para agregar texto a un archivo. Es un registro rudimentario que cumple con los requerimientos.
Código:
Private Sub Nolog(sMsg As String)
Shell "echo \"" & sMsg & "\" >> /tmp/icons.log"
End
Bienvenido, Invitado
Últimos temas
Ordenar en un TableView
Foro: GeneralÚltimo mensaje por: guizans, 05-11-2025, 23:26
Respuestas: 5 - Vistas: 139
Odio a gb.Report
Foro: GeneralÚltimo mensaje por: guizans, 02-11-2025, 13:36
Respuestas: 9 - Vistas: 1,575
Reportes de Gambas
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: Alberto59, 27-10-2025, 16:34
Respuestas: 2 - Vistas: 1,342
FACTURA POR REPORT GAMBAS...
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: Alberto59, 27-10-2025, 15:03
Respuestas: 0 - Vistas: 89
Ordenando las carpetas
Foro: Programación en otros lenguajesÚltimo mensaje por: tercoide, 22-10-2025, 15:57
Respuestas: 0 - Vistas: 118