|
Página 1 de 1
|
Extendiendo La Clase String
Autor |
Mensaje |
tincho
Analista Programador
Registrado: Noviembre 2014
Mensajes: 2565
Edad: 48 Ubicación:
|
Extendiendo La Clase String
Hola a todos.
En base a otro hilo en donde comentamos sobre algunos métodos que le "faltaban" a la clase String pongo aquí como la extendí.
Espero les sea de utilidad.
Saludos.
última edición por tincho el Martes, 05 May 2020, 21:40; editado 1 vez
|
#1 Martes, 05 May 2020, 21:39 |
|
|
cogier
Charlie Ogier
Aprendiz
Registrado: Septiembre 2018
Mensajes: 99
Edad: 69 Ubicación: Guernsey, Channel Islands
|
Re: Extendiendo La Clase String
Parece que hay algunos errores en su código. Intenta con el siguiente código: -
|
#2 Miercoles, 06 May 2020, 15:11 |
|
|
Guizans
Aprendiz
Registrado: Febrero 2012
Mensajes: 99
Edad: 45
|
Re: Extendiendo La Clase String
Hola.
Mira que casualidad que necesité una función igual a esa hace poco, y también cree una clase extendida de String. Public Function Count(palabra As String, caracter As String, Optional inicio As Integer = 1, Optional final As Integer = 0) As Integer ''Devuelve el número de coincidencias de una subcadena en el rango [inicio, fin].
Dim longitud As Integer
Dim cortado As New String[]
Dim posicion As Integer[]
Dim palabraS As String
longitud = String.Len(palabra)
If final = 0 Then final = longitud
palabraS = String.Mid$(palabra, inicio, final)
posicion = FindNumber(palabraS, caracter)
For Each a As Integer In posicion
cortado.Add(String.Mid$(palabraS, a, String.Len(caracter)))
Next
Return cortado.Length
End
Public Function FindNumber(palabra As String, sufijo As String) As Integer[] ''Encuentra en que posiciones de un string esta el sufijo devolviendo un array que contendrá las posiciones
Dim a As Integer
Dim pos As Integer = 0
Dim posicion As New Integer[]
While True
a = InStr(palabra, sufijo, pos)
If a = 0 Then
Break
Else
posicion.Add(a)
pos = a + 1
Endif
Wend
Return posicion
End
En este caso si que devuelve bien el número de coincidencias del ejemplo de cogier.
Un saludo.
|
#3 Miercoles, 06 May 2020, 21:23 |
|
|
tincho
Analista Programador
Registrado: Noviembre 2014
Mensajes: 2565
Edad: 48 Ubicación:
|
Re: Extendiendo La Clase String
cogier escribió: Parece que hay algunos errores en su código. Intenta con el siguiente código...[/code]
Gracias Cogier.
Saludos.
|
#4 Miercoles, 06 May 2020, 21:26 |
|
|
|
Temas parecidos
Temas parecidos
|
Página 1 de 1
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados Usuarios registrados conectados: Ninguno
|
No puede crear mensajes No puede responder temas No puede editar sus mensajes No puede borrar sus mensajes No puede votar en encuestas No puede adjuntar archivos Puede descargar archivos No puede publicar eventos en el calendario
|
|
|
|
|