Extendiendo la clase String - Alphanumeric
tincho 27-04-2021, 15:52
Hola a todos.
Aquí le propongo una función que convierte un texto en otro que solo contiene caracteres alfanuméricos.
Por favor si alguien tiene una mejor idea por favor no dude en compartirla.
Saludos.
Aquí le propongo una función que convierte un texto en otro que solo contiene caracteres alfanuméricos.
Por favor si alguien tiene una mejor idea por favor no dude en compartirla.
Código:
'' Alphanumericals are a combination of alphabetical and numerical characters, and is used to describe the collection of Latin letters and Arabic digits or a text constructed from this collection.
Static Public Function Alphanumeric(strInput As String) As String
Dim int As Integer
Dim strSymbol As String
Dim stxLeters As New String[]
Dim intKey As Integer
Dim stxOut As New String[]
Dim strOut As String
Dim stxRepin As New String[]
Dim stxRepout As New String[]
Dim intRep As Integer
stxOut.Clear
stxLeters.Clear
stxLeters = Split(":a:b:c:d:e:f:g:h:i:j:k:l:m:n:o:p:q:r:s:t:u:v:w:x:y:z: :A:B:C:D:E:F:G:H:I:J:K:L:M:N:O:P:Q:R:S:T:U:V:W:X:Y:Z:á:à:â:ã:é:è:ê:í:ï:ó:ô:õ:ö:ú:ç:ñ:Á:À:Â:Ã:É:È:Ê:Í:Ï:Ó:Ô:Õ:Ö:Ú:Ç:Ñ:0:1:2:3:4:5:6:7:8:9", ":")
stxRepin = Split("Á:À:Â:Ã:É:È:Ê:Í:Ï:Ó:Ô:Õ:Ö:Ú:Ñ:á:à:â:ã:é:è:ê:í:ï:ó:ô:õ:ö:ú:ñ", ":")
stxRepout = Split("A:A:A:A:E:E:E:I:I:O:O:O:O:U:N:a:a:a:a:e:e:e:i:i:o:o:o:o:u:n", ":")
For int = 1 To String.Len(strInput)
strSymbol = String.Mid(strInput, int, 1)
intKey = stxLeters.Find(strSymbol)
If intKey > -1 Then
intRep = stxRepin.Find(strSymbol)
If intRep > -1 Then
strSymbol = stxRepout[intRep]
Endif
stxOut.Add(strSymbol)
End If
Next
strOut = stxOut.Join("")
Return strOut
End
tincho 25-04-2021, 21:19
![[Imagen: PxtcP2x.jpg]](https://i.imgur.com/PxtcP2x.jpg)
Hola a todos.
Debido a los recientes cambios en la versión 3.16 de gambas surge un inconveniente, al memos durante unos meses, referente a las retrocompatibilidad de las aplicaciones que se desarrollen en dicha versión del IDE.
Ejemplo: En el caso de WebView sucede que en la versión qt4 este tiene la propiedad .HTML que se usa para pasarle el texto a renderizar pero en la versión gtk3 esta propiedad no existe más y en su lugar hay que usar el método .SetHtml() lo cual hace que nuestros programas sean incompatibles con versiones anteriores de gambas.
Una posible solución pasa por usar un condicional como IF o Select:
Código:
'' Opción 1
If CInt(Split(System.FullVersion, ".")[1]) > 15 Then
WebView1.SetHtml(sContent)
Else
WebView1.HTML = sContent
Endif
'' Opción 2
xClass = Classes["WebView"]
If xClass.Exist("HTML") Then
WebView1.HTML = sContent
Else
If xClass.Exist("SetHtml") Then
WebView1.SetHtml(sContent)
Endif
EndifSaludos
gambafeliz 25-04-2021, 19:07
Hola
Tengo un problema antiguo que no lo había notado hasta ahora. Y es que yo tengo un Formulario principal donde en el centro tengo un panel que se encarga de visualizar los formulario con Reparent pero me acabo de dar cuenta que aunque visualiza los formularios no los reinicia ninguna vez solo la primera vez que carga con Open el formulario principal y conforme se cargan la primera vez y después todo queda estático.
Por ejemplo si ustedes ponen un contador en tres formulario y hacen lo que yo osea cargarlos con reparent después no cambia el contador que pongan en el centro de cada formulario y este es mi problema, como hago para que se refresquen. Yo he pensado en poner un Timer pero eso es lo que quiero evitar.
¿Que se les ocurren a ustedes que sea mas elegante y correcto en Gambas?
Tengo un problema antiguo que no lo había notado hasta ahora. Y es que yo tengo un Formulario principal donde en el centro tengo un panel que se encarga de visualizar los formulario con Reparent pero me acabo de dar cuenta que aunque visualiza los formularios no los reinicia ninguna vez solo la primera vez que carga con Open el formulario principal y conforme se cargan la primera vez y después todo queda estático.
Por ejemplo si ustedes ponen un contador en tres formulario y hacen lo que yo osea cargarlos con reparent después no cambia el contador que pongan en el centro de cada formulario y este es mi problema, como hago para que se refresquen. Yo he pensado en poner un Timer pero eso es lo que quiero evitar.
¿Que se les ocurren a ustedes que sea mas elegante y correcto en Gambas?
Bienvenido, Invitado
Últimos temas
Error de sistema "Demasia...
Foro: GeneralÚltimo mensaje por: Shordi, Ayer, 08:43
Respuestas: 1 - Vistas: 62
controlar el Activado/Des...
Foro: GeneralÚltimo mensaje por: Shordi, Ayer, 08:08
Respuestas: 1 - Vistas: 60
Nuevo componente gb.qt6.w...
Foro: Controles/Librerías/ComponentesÚltimo mensaje por: Shordi, 09-05-2025, 09:21
Respuestas: 1 - Vistas: 72
Conexión Bluetooth: RFCOM...
Foro: Hardware & IoTÚltimo mensaje por: jguardon, 06-05-2025, 16:57
Respuestas: 5 - Vistas: 201
gb.db2: columnas calculad...
Foro: Bases de DatosÚltimo mensaje por: guizans, 04-05-2025, 21:02
Respuestas: 14 - Vistas: 553