(31-10-2020, 23:47)vuott escribió: (31-10-2020, 23:26)guizans escribió: he encontrado esta forma
Sì, pero las suposiciones son diferentes a las de tu primer ejemplo, ya que allí se partía del análisis de palabras.
Vale, es verdad, pero con unos pequeños cambios ahora analiza frases
Código:
Public Sub Main()
Dim tildes As String[] = ["á", "é", "í", "ó", "ú"]
Dim aCadenas As String[] = ["Fecha de compras", "Descripción", "Año de Investigación", "Fecha creación"]
Dim tilde As Boolean
For Each b As String In aCadenas
For a As Integer = 1 To String.Len(b)
If tildes.Exist(String.Mid$(b, a, 1)) Then
tilde = True
Break
Endif
Next
If tilde Then
Print b & ": Tiene tilde"
tilde = False
Else
Print b & ": No tiene tilde"
Endif
Next
End
Un saludo.
(31-10-2020, 23:47)vuott escribió: (31-10-2020, 23:26)guizans escribió: he encontrado esta forma
Sì, pero las suposiciones son diferentes a las de tu primer ejemplo, ya que allí se partía del análisis de palabras.
Vale, es verdad, pero con unos pequeños cambios ahora analiza frases
Código:
Public Sub Main()
Dim tildes As String[] = ["á", "é", "í", "ó", "ú"]
Dim aCadenas As String[] = ["Fecha de compras", "Descripción", "Año de Investigación", "Fecha creación"]
Dim tilde As Boolean
For Each b As String In aCadenas
For a As Integer = 1 To String.Len(b)
If tildes.Exist(String.Mid$(b, a, 1)) Then
tilde = True
Break
Endif
Next
If tilde Then
Print b & ": Tiene tilde"
tilde = False
Else
Print b & ": No tiene tilde"
Endif
Next
End
Cita:Estoy especulando tratar una cadena como un array de caracteres pero creo que Gambas no esta en su lenguaje - Todavía -
Gambas si que puede tratar los Strings como arrays.
Código:
dim palabra as string = "hola" print palabra[1]
Esto es válido. El problema que encontré es precisamente con los caracteres especiales como las tildes, las eñes, etcétera, que no las imprime. No se el motivo.
Un saludo.