Autor Tema: Podrian Publicar funciones para procesar Cadena de texto (Leído 8514 veces)

m0skit0

¿Hay algun problema en utilizar más de una función, o tiene que ser una y sólo una? Pues entonces no veo donde está el error...

Cita de: "F_Tanori"

pero tiene un problema cuando agregas mas de 2 numeros no suma

Bueno, no exageres, en todo caso sería que devuelve el número en real y no en entero

P.D: Pido disculpas por lo de la longitud de la cadena, no me había dado cuenta en un principio...
P.D(2): No sé quién es Willy...

F_Tanori

Cita de: "m0skit0"

P.D(2): No sé quién es Willy...

Era una serie de television de ya hace algunos años se llamaba Blanco y Negro o Diff'rent Strokes la frase es "un poco famosa"

http://www.youtube.com/watch?v=Qw9oX-kZ_9k

Saludos

Jimbenit

Ya no quieren seguir jugando a las funciones de texto???

Nota:
Esto les serviría mucho a los novatos (como yo)

m0skit0

Yo sigo con mi programación funcional en VB (

)

Código: Visual Basic

 
Public Function InvertirCadena(ByVal str As String) As String
    If Len(str) <= 1 Then
        InvertirCadena = str
    Else
        InvertirCadena = Right(str, 1) & InvertirCadena(Left(Right(str, Len(str) - 1), Len(str) - 2)) & Left(str, 1)
    End If
End Function
 
 

Cuidado con quedarse sin pila XD

F_Tanori

Cita de: "m0skit0"

Otra tontería. Si consigues una función que haga un determinado trabajo de la forma más sencilla, me parece absurdo tirarla por la borda ...

Exacto ya que en VB6 ya existe esa funcion se llama strreverse(str)

Cita de: "m0skit0"

Yo sigo con mi programación funcional en VB ( )

Código: Visual Basic

Public Function InvertirCadena(ByVal str As String) As String
If Len(str) <= 1 Then
InvertirCadena = str
Else
InvertirCadena = Right(str, 1) & InvertirCadena(Left(Right(str, Len(str) - 1), Len(str) - 2)) & Left(str, 1)
End If
End Function

Cuidado con quedarse sin pila XD

aunque como ejercio esta bien; solo que deberias de usar el parametro ByRef para utilizarlo como "puntero" y no estarlo pasando como copia a cada llamado de la funcion

Saludos

Jimbenit

Vaya palabras has citado F_Tanori.

Nebire

Bueno comentaros que el otro día respondí, pero era hora de cenar y no había terminado el mensaje después al enviar no me di cuenta de que habría caducado la sesión, me deslogó y me dió pereza reconstruir el mensaje (porqué estos foros no pueden recuperar el mensaje, hace 10 años se entiiende pero hoy día esto es intolerable, en fin...)

Mencionaba que yo no considero un error una coma al final, de más o de menos ya que de hecho la función que presentaba ilson quedaba 'guarreada' precisamente por querer mantener esa coma y por lo del númerito delante que 'pa qué ?'. La coma no estorba porque a menudo debe concatenarse un resultado con otro y por tanto suele tenerse que meter cuando en la función se lo extrajo.

También os presentaba otra manera de resolver la función sencilla y con mucha claridad aunque ligeramente más lenta.

Señalaba que la función de Nilson puede mejorarse a lo siguiente (prescindiendo del numerito que no sirve para nada y que lleva siempre coma al final excepto que sólo haya un carácter.)

Código: Visual Basic

 
Function CadenaASCII(CadenaNormal As String) As String
    Dim k As Long, cadena As String
    
    On Local Error GoTo errorSobrepasa:
    
        cadena = ""
        'If CadenaNormal = "" Then Exit Function
        If Len(CadenaNormal) > 16383 Then
             MsgBox "Existen posibilidades de que se produzca un error..."
        End If
        
        For k = 1 To Len(CadenaNormal)  ' el último carácter lo quedamos fuera del bucle
          cadena = cadena & Asc(Mid$(CadenaNormal, k, 1)) & ","
        Next ' al finalizar el bucle, k todavía aumenta en 1
 
    CadenaASCII = cadena
    Exit Function
    
errorSobrepasa:
     MsgBox ("Cada carácter de entrada genera entre 2 y 4 caracteres de salida. en VB6 el tamaño máximo de una cadena son 65535 caracteres, dicho valor se ha alcanzado con el " & " k ésimo carácter de la cadena de entrada..." & vbCrLf & Err.Description)
     CadenaASCII = cadena
End Function
 
 
 

Yo proponía la siguiente función ligeramente más lenta que esta anterior pero bastante más clara y breve

Código: Visual Basic

 
' bytes con comas
Private sub Cadena_A_BytesCC(byref cadena As String, optional concat as string=",")  ' nótese el byref puesto a propósito
         Dim s() As String
       
        ReDim s(0 To Len(cadena))
        For k = 1 To Len(cadena)
            s(k) = Asc(Mid$(cadena, k, 1))
        Next
        
        cadena= Join(s, concat)
End Function
 
 

De esta fnción decir que la coma en vez de aparecer al final aparecerá al principo, para el caso es lo mismo siempre que se tenga en cuenta.
Como puede verse a esta función le he añadido un parámetro opcional que sirve para 'meter' cualquier cadena y no sólo comas, lo que le daría más versatilidad sin apenas código adicional.

La función inversa resulta igualmente breve:

Código: Visual Basic

 
  ' nota la cadena puede empezar tanto con coma como con cifras, pero si empieza con coma debe ir detrás números, la cadena no puede acabar en coma, esta función es la pareja de la anterior, que deja cadenas con comas delante, no es pareja de una función que deje comas detrás.
  Private Function convertir(cadena As String) As String
      Dim s() As String, ini As Byte
      
     on local error goto errorChr
      s = Split(cadena, ",")
      ini = IIf(Left$(cadena, 1) = ",", 1, 0)
    
      For k = ini To UBound(s)
          s(k) = Chr$(s(k))
      Next
      convertir = Join(s, "")
     exit function
errorChr:
     msgbox "La cifra ' " & s(k) & " ' no está dentro del rango 0-255 (byte)" & err.description
   End Function
 
 

se supone que nunca habría de ocurrir chr$(23456) si se creó usando la otra función.... pero bueno se ha incluído un tratamiento de error...
Y en otro momento os coloco una función que totaliza las palabras que hay en un texto, para lo que pide nuestro amigo Nilson...

m0skit0

Citar

solo que deberias de usar el parametro ByRef para utilizarlo como "puntero" y no estarlo pasando como copia a cada llamado de la funcion

Entonces, ¿para qué queremos ByVal?

En teoría, no tienes razón: debería pasarse ByVal (por valor) porque no se va a modificar dicho parámetro, así el código queda más claro y entendible (aparte de poder cambiar de valor el parámetro sin que se modifique en el código llamante).

En la práctica, tienes razón, porque el código corre más deprisa pasando sólo un puntero (ByRef, por referencia) en vez de hacer la copia de la variable.

Lo que me lleva a preguntarles:
¿Qué creen que compensa más: que el código se ejecute más rápido o que sea más legible?

Jimbenit

La conversación ahora gira entorno a la legibilidad y a la rapidez...
Pero pensando bien... esto es lo que realmente importa de un codigo...

, pero para el nivel de principiante (para lo que este foro fue creado), creo que esta bien.... pero es muy, muy interesante ver los codigos de programadores EXPERTOS (como ustedes)

resolviendo aquello que los chiquillos hacen (como yo), sin lugar a dudas es fantastico poder interactuar con ustedes

Saludos y gracias por lo que me enseñan... (como podré agradecerles esto???)

F_Tanori

Algunas teorias indican que hay que darle prioridad , al lector (del codigo) es decir que sea mas entendible,pero en lo personal creo que es mas importante la rapidez y eficientación de recursos , y quien no lo entienda debera informarse un poco mas

* En este caso aun usando ByRef no se modifica la variable

Código: Text

... InvertirCadena(ByRef str As String) ...
 

Saludos

Nebire

Cita de: "m0skit0"

Lo que me lleva a preguntarles:
¿Qué creen que compensa más: que el código se ejecute más rápido o que sea más legible?

Interesante pregunta. A título personal (porque de forma general dudo que pueda darse una respuesta exacta.... y que todo el mundo esté de acuerdo) creo que uno tiene que hacer un balance en su código.

Esto es, si tu programa vuela entonces puedes darle más importancia a la legibilidad y la brevedad (a menudo están reñidos otras no), en cambio si el programa adolece de lento, no es plan pretender ser tan legible. a menudo la falta de claridad en un programa la acabamos supliendo con comentarios. También cuenta si tu código ha de pasar por otras manos distintas a las tuyas, ahí la claridad tiene más importancia. Por otro lado a medida que los procesadores son más rápidos y las memorias más grandes tiene menos relevancia la velocidad. Lo importante es que uno sepa fijar el límite.

Por ejemplo uno puede escribir un código denso y oscuro en 5000 líneas y ser muy veloz en cambio quizás puede hacer lo mismo con sólo 500 líneas pero recurriendo por ejemplo a librerías externas. El caso es que 500 líneas será un código más fácil de seguir pero por otro lado al ser las librerías externas implican cierto oscurantismo porque requiere estudiarse esas librerías, si son de uso frecuente como las API de windows, se hace mucho más llevadero pero cuando son de diferentes programas y un puñado de cada uno, tienes menos libertad vas a veces forzado por las limitaciones de las librerías y por la manera en que fueron programadas. entonces comparativamente quizás esas 5000 líneas densas y oscuras quizás compensen sobre esas 500. Pero como digo cada uno en su caso debe sopesarlo. dudo que pueda generalizarse si no es diviiidiendo en grupos e indicar si uno pertenece a ese grupo a tal vez al otro.

Nebire

Aprovechando que tengo un rato libre voy a exponer una función que es posible que la tengais parecida o muy distinta, nunca se sabe.

La función como comentaba más arriba trata de contar las palabras que tiene un texto. Por comparativa (nuca se me ha ocurrido verificar antes el potencial de esta función) he realizado otra equivalente que al hilo de lo que venimos hablando es más breve pero tiene un rendimiento bastante menor.
A ambas funciones, como se aprecia se han 'inyectado' dentro de un bucle de 1000 reps. para comprobar diferencias ya que si no resulta difícil apreciarlo en su justa medida.

Código: Visual Basic

 
 
Public Function Contar_Palabras1(texto As String) As Long
    Dim txt() As String
    Dim k As Long ' contador
    Dim i As Long ' contador del bucle
    
    ti = Timer
    For A = 1 To 1000
        txt = Split(texto, " ")
        If texto <> "" Then
            If UBound(txt) = 0 Then
                If Trim$(txt(0)) <> "" Then
                    Contar_Palabras1 = 0: GoTo salir ' Exit Function
                Else
                    Contar_Palabras1 = 1: GoTo salir ' Exit Function
                End If
            End If
        End If
        
        For i = 0 To UBound(txt)
            If txt(i) <> "" Then
                k = k + 1
            End If
        Next
    Next
    Contar_Palabras1 = k
 
salir:
    MsgBox Timer - ti
 End Function
 
 

La siguiente función es bastante menos lógica en cuanto a idearla, sirve de contraste para la comparativa, usa un bucle do

Código: Visual Basic

 
Public Function Contar_Palabras2(texto As String) As Long
    Dim k As Long  ' contador
    Dim p As Long ' posición en la cadena
    Dim txt As String '
    
    ti = Timer
    
        For A = 1 To 1000
 
        txt = Trim$(texto)
        If txt = "" Then Contar_Palabras1 = 0: Exit Function
        
        Do
            p = InStr(txt, " ") ' espacio entre comillas
            If p > 0 Then       ' mientras haya espacio entrará aquí...
                k = k + 1
                txt = Trim$(Mid$(txt, p + 1)) ' elimino la palabra más a la izquierda y quito los espacios extras hasta la siguiente palabra.
            Else                  ' cuando no haya más espacios, ya no quedan más palabras, devolvemos el resultado
               k = k + 1
               Exit Do
            End If
        Loop
    Next
    Contar_Palabras2 = k
    MsgBox Timer - ti
End Function
 
 

Puede notarse que si declaamos el parámetro byval la misma variable del parámetro podría usarse en vez de 'txt', que por otro lado ha sido forzado por el bucle de repetición externo.
Aunque parezcan muy similares, lo cierto es que los resultados son bastante diferenciados.

El texto empleado fue un archivo en la carpeta de windows, concretamente el de 'wmsetup.log' que en mi caso pesa 9'13kb. y contiene 1.056 palabras, con el bucle de 1000 repeticiones halló:

1.056.000 ----- 3'7 sg funcion 1
1.056.000 -----16'01 sg. función 2

El resto del código para probarlo son 2 botones de llamada uno para cada función un label indicando las palabras encontradas y un richtextbox donde se carga el fichero y cuyo texto es el empleado.
El código 'extra' para probarlo es el siguiente:

Código: Visual Basic

 
    Private Sub Form_Load()
    Rtxt.FileName = "C:WINDOWSwmsetup.log"
End Sub
 
Private Sub Command1_Click()
    Label1.Caption = "Palabras totales= " & Contar_Palabras1(Rtxt.Text)
End Sub
 
Private Sub Command2_Click()
    Label1.Caption = "Palabras totales= " & Contar_Palabras2(Rtxt.Text)
End Sub
 
 

ferhn

Aca les dejo algo interesante para hacer casi de todo con texto

Esto lo hice dentro de un clase

Código: Text

 
Dim cTexto As String
Dim dLetras As Integer
 
Dim i, SB, J As Integer
Dim P() As String
Dim POriginal As String
 
'para las palabras
Dim dPalabra As Integer
Dim wordCount As Integer            ' Número de palabras en el documento
'Dim sourceText As String            ' Contiene el texto del documento para examinarlo
Dim startFound, endFound As Integer ' Banderas para seguir la pista de las palabras encontradas
Dim thisChar As String
'mayuscula
Dim Mayu As String
Dim Minus As String
Dim DNormal As String
Dim LetraSin As String
Dim TextoReves As String
Dim Fechas As Date
Dim Hora As Date
 
Public Property Get CuentaLetras() As String
    CuentaLetras = dLetras
End Property
 
Public Property Let CuentaLetras(ByVal vNewTexto As String)
    cTexto = vNewTexto
    dLetras = Len(cTexto)
End Property
 
 
Public Property Get CuentaPalabra() As String
    CuentaPalabra = wordCount
End Property
 
Public Property Let CuentaPalabra(ByVal vNewValue As String)
    ' Inicializar wordCount, offSet, y las banderas "Found"
    wordCount = 0: offSet = 1: startFound = False: endFound = False
    ' Copiar documento en variable (para examinarlo más rápidamente)
    
    
    ' Examina cada carácter hasta llegar al final del documento.
    Do Until offSet > Len(cTexto)
        thisChar = Mid$(cTexto, offSet, 1)
        If Not startFound Then
            ' Buscar principio de palabra
            startFound = isAlphaNumeric(thisChar)
            If startFound Then wordCount = wordCount + 1
        Else
            ' Buscar final de palabra.
            endFound = Not isAlphaNumeric(Mid$(cTexto, offSet, 1))
            If endFound Then startFound = False: endFound = False
        End If
        offSet = offSet + 1
    Loop
        
    'Visualizar el número de palabras
    'MsgBox "Este documento contiene " & wordCount & " palabras."
End Property
 
Private Function isAlphaNumeric(anyChar) As Integer
    Select Case Asc(anyChar)
        Case 65 To 90   'A a Z
            isAlphaNumeric = True
        Case 97 To 122  'a a z
            isAlphaNumeric = True
        Case 48 To 57   '0 a 9
            isAlphaNumeric = True
        Case 193, 225, 201, 233, 205, 237, 211, 243, 218, 250 'Á, É, Í, Ó, Ú, á, é, í, ó, ú
            isAlphaNumeric = True
        Case 220, 252   'Ü, ü
            isAlphaNumeric = True
        Case 209, 241   'Ñ, ñ
            isAlphaNumeric = True
        Case Else
            isAlphaNumeric = False
    End Select
End Function
 
Public Property Get TodoMayus() As String
    Mayu = StrConv(cTexto, vbUpperCase)
    TodoMayus = Mayu
End Property
 
 
Public Property Get TodoMinus() As String
    Minus = StrConv(cTexto, vbLowerCase)
    TodoMinus = Minus
End Property
 
 
Public Property Get Normal() As String
    Normal = DNormal
End Property
 
Public Property Let Normal(ByVal vNewValue As String)
    DNormal = vNewValue
End Property
 
 
Public Property Get PalabraExtraida(Text1 As TextBox, Numero As Integer)
    Dim SB, J As Integer
        SB = 1
        For i = 1 To Len(Text1)
                If Mid(Text1, i, 1) <> " " Then
                    ReDim Preserve P(SB)
                    P(SB) = P(SB) & Mid(Text1, i, 1)
                    J = i
                Else
                    Do While Mid(Text1, i, 1) = " "
                       i = i + 1
                    Loop
                    i = i - 1
                    SB = SB + 1
                End If
        Next i
        If Numero <= SB Then
            PalabraExtraida = P(Numero)
            For i = 0 To SB - 1
                P(i) = ""
            Next i
        Else
            MsgBox "No existe la palabra " & Numero, vbCritical, "Mensaje"
            Text1.Text = ""
        End If
End Property
 
Property Get CantLetras(txtTexto As TextBox)
Dim J As Integer
Dim SB As Integer
Dim S As String
        
        If Len(txtTexto.Text) <= 255 Then
            For i = 1 To Len(txtTexto)
                S = Mid(txtTexto, i, 1)
                If S <> Chr(32) Then
                    J = J + 1
                End If
            Next i
            CantLetras = J
       End If
 
    CantLetras = CantLetras
End Property
 
'PARA TEXTO REVERSO
Public Property Get TextReverso() As Variant
TextoReves = StrReverse(cTexto)
    TextReverso = TextoReves
End Property
 
Public Property Get Fecha() As Date
Fechas = Time(Label7.Caption)
Fecha = Fechas
End Property
 
Public Property Get Horas() As Date
Hora = Time(LblHora.Caption)
Horas = Hora
End Property
 
 

Nebire

Bueno ferhn, tu 'texto' admite varios comentarios....

Primero 2 incisos, el primero es que resulta visiblemente difícil de leer, acostúmbrate a usar el ( quitando las comillas simples) '['code=vb']' en vez de '['code=text']'... al colorear se ve mejor donde empizan y acaban las funciones, etc...

El 2º es que parece que has copiado el código de alguien y le has dado unos toques personales, al respecto te señalo que cuando hagas así o dejas todo en 'inglis' o lo cambias todo al español pero eso de tener un 'espanglis' a mi me produce cierta repulsión... encontrasem 'startFound' y 'TextoReves' me parece estar comunicando con un alien que oye cosas no las entiende pero confía en que el que lo reciba si. Esto es sólo una cuestión de estilo, no es algo grave pero da una indicación de el respeto hacia los demás si se adecúa el código, copiar y pegar sólo es señal de dejadez...

y ahora los comentarios...

Cita de: "ferhn"

Public Property Get CuentaLetras() As String
CuentaLetras = dLetras
End Property

Public Property Let CuentaLetras(ByVal vNewTexto As String)
cTexto = vNewTexto
dLetras = Len(cTexto)
End Property

Esto carece de sentido la función len(texto) resuelve el caso, no necesita por tanto travestirse de propiedad.

Cita de: "ferhn"

Public Property Get CuentaPalabra() As String
CuentaPalabra = wordCount
End Property

Public Property Let CuentaPalabra(ByVal vNewValue As String)

Aquí varios comentarios, comentario 1 en la parte 'GET' puede verse también en el anterior. Si cuentapalabra suponemos que es una cifra a qué leches viene poner un 'string' ????. Yo te lo digo... a que haces algo impropio, algo impropio es asignar un valor a allgo que realmente no le pertenece, es como vestir a un mono de santo o como poner un remolque a un Formula-1. Al parecer no sabes cuando algo debe ser una propiedad y cuando una función. Yo te lo explico: si cuando introduces un dato es un tipo de datos y cuando debe devolver un dato devuelve un tipo de datos distinto al que se pedía como parámetro, eso es lo que describe una función. si el tipo de datos pasado por parámetro se ha de retener y en otra ocasión se puede pedir y es el mismo tipo de datos, eso es para usar como propiedad... si el parámetro se pasa e inmediatamente hace algo y ese dato no ha de quedar retenido eso es un método...

Por tanto comentario 2: (en la parte LET) CuentaPalabraS (con S al final porque es plural cuanta muchas no una) debe ser una función... Te voy a decir que puede ocurrir si lo dejas como propiedad... si le pasamos como parámetro un texto de 30 mb. una vez que haya terminado de precesarlo como propiedad que es, guardaría el parámetro hasta que se inroduzca otro, o lo que es lo mismo, estarías reteniendo en memoria inútilmente datos que no se necesitan ya... tampoco hace falta que sea 30 Mb. para que esto sea una estupidez, pongo 30Mb. para que se vea claramente que lo es.

comentario: 3 Una propiedad debe retener 'memorizado' uno de sus parámetros, si se le pasa x parámetros y lo que retiene no es ninguno de ellos realmente no es una propiedad, es nuevamente una función si yo tengo la propiedad: Color_de_Pelo lo lógico es que el parámetros sea un color y adicionalmente otro u otros parámetros si fueran necesarios, pero la propiedad alamcenará el color tal como indica su nombre y al rescatar la propiedad será dicho valor el que he de devolver, si la propiedad es color_de_Pelo y le paso como parámetros 5 dedos, 2 pies y 3 camisas pero nunca el color del pelo, habrá alguien que sepa utilizar esa 'propiedad' ...? realmente habría que llamarle monstruosidad...

comentario 4 el uso que se hace de esa función (CuentaPalabras) es dudoso y te explico porqué, recurre a la función 'isAlphaNumeric', para determinar ciertos casos, esto es algo relativo, es decir si exponemos un criterio para definir palabras distinto que estar separado blanco lo podremos utilizar perfectamente pero ya no podremos darle el carácter 'universal' de contar palabras, sino dado que es un caso relativo , relativizarlo así el nombre debería ser cambiado a por ejemplo 'ContarMisPalabras' lo cual ya hace referencia a un modo exclusivo y particular de realizar la cuenta. Y esto sin siquiera entrar a evaluar lo que sea que haga dicha función 'isAlphaNumeric'. Realmente una función de contar palabras podría ser tan simple como:

Código: Visual Basic

 
public function Contar_Palabras(texto as string) as long
    dim s() as string, n as long
 
    if len(texto)=0 then
           Contar_Palabras=0
   else
         if instr(texto," ")<>0 then
             s=split(texto)
            ' este bucle es necesario porque split corta por 1 espacio, es decir después de encontrar un espacio el siguiente carácter lo interpreta como una cadena
             for k=0 to  ubound(s )          
                  if s(k)<>"" then n=n +1
             next
             Contar_Palabras=  n
        else
             Contar_Palabras=1
        end if
    end if
end function
 
 

Desde luego esto de contar palabras sigue siendo relativo, me explico esto es aplicable desde el punto de vista de la programación, pero para otros propósitos la lista debe volver a filtrarse, por ejemplo un retorno de carro (enter) puede aparecer unido al final de la apalabra anterior y la primera palabra de la siguiente línea sio no se dejó espacio al final de la misma. También, interpretamos una coma o un punto como una palabra ?, y los signos =,<,(, etc... y si una palabra está unida a operadores? por ejemplo: 'Velocidad=e/t' daría un valor diferente de 'Velocidad =e/t' y diferente de 'Velocidad = e / t', por eso para casos reales, contar plabaras es siempre una rutina complaja y que debe llevar aparejado un método a usar como parámetros donde en dicho/s parámetro/s se especifican las condiciones de lo que es una plabara y lo que no. En dicho caso el código presentado anteriormente presenta la 1ª fase, una vez determinado que el texto tiene más de una palabras, la matriz obtenida debe filtrarse sucesivamente por otra/s rutina/s específicas, lo ideal es que no haya que pasar la matriz para cada caso si no que una misma función analice varios casos relativos a un mismo tema en el mismo bucle... pero en general la rutina que presentas no debe inferirse como lo que su nombre indica, por las razones explicadas.

comentario 5 La función isAlphaNumeric (cada uno debe acomodarlo a como le valga) puede simplicarse mucho más, tanto como reducirlo todo a sólo 2 casos, pués sólo existen 2 casos, TRUE-FALSE, usando el mismo código te lo resumo:

Código: Visual Basic

 
Private Function isAlphaNumeric(anyChar) As Integer
    Select Case Asc(anyChar)
        Case 48 - 57,  65 - 90, 97-122, 193, 225, 201, 233, 205, 237, 211, 243, 218, 250, 220, 252 , 209, 241   
            isAlphaNumeric = True
       case else
            isAlphaNumeric=false
   end select
 end function  
 
 

te ahorras montón de líneas inútiles y queda más claro, al hacer varios case, a primera vista parece que en cada uno hará una cosa distinta, y eso confunde.

comentario 6 estas funciones:

Cita de: "ferhn"

Public Property Get TodoMayus() As String ... End Property
Public Property Get TodoMinus() As String ... End Property

Son inútiles por redundantes, como ya se dijo antes una función que resuleve un caso no debe trasvestirse, para hacer lo mismo pero ralentizándolo...

comentario 7 Esto creo que debo llevarlo a un laboratorio a analizar.... yo aún no he sido capaz de encontrarle sentido.

Citar

Public Property Get Normal() As String
Normal = DNormal
End Property

Public Property Let Normal(ByVal vNewValue As String)
DNormal = vNewValue
End Property

comentario 8

Cita de: "ferhn"

Public Property Get PalabraExtraida(Text1 As TextBox, Numero As Integer)

Te complicas en exceso, para eso existe la función INSTR . Con instr vas comprobando donde empiza y terminan las palabras... ya que leer carácter a carácter es bastante lento, conviene delegar en una función más potente o recurrir a la API, para textos de pocas palabras puede valerte pero si por ejemplo tratas de buscar una texto en un dado número de ficheros la búsqueda sería muy lenta.

comentario 9 como ya dije anteriormente trasvestir una función es perder tiempo y tratar de convertirlo en una propiedad una aberración.

Cita de: "ferhn"

Public Property Get TextReverso() As Variant
TextoReves = StrReverse(cTexto)
TextReverso = TextoReves
End Property

en cuanto a las fechas,

sin comentarios...

Así que por favor en cuanto puedas corrige todo el texto o retíralo,

ya que no es precisamente un ejemplo sino de mala programación. La frase:

Cita de: "ferhn"

Aca les dejo algo interesante para hacer casi de todo con texto

francamente resulta desacertada aparte de queen cuanto a completitud no representa nada.

Espero que no te lo tomes a mal sino como una orientación de que no se debe hacer

SoloCodigo

Autor Tema: Podrian Publicar funciones para procesar Cadena de texto (Leído 8514 veces)

m0skit0

Re: Podrian Publicar funciones para procesar Cadena de texto

F_Tanori

Re: Podrian Publicar funciones para procesar Cadena de texto

Jimbenit

Re: Podrian Publicar funciones para procesar Cadena de texto

m0skit0

Re: Podrian Publicar funciones para procesar Cadena de texto

F_Tanori

Re: Podrian Publicar funciones para procesar Cadena de texto

Jimbenit

Re: Podrian Publicar funciones para procesar Cadena de texto

Nebire

Re: Podrian Publicar funciones para procesar Cadena de texto

m0skit0

Re: Podrian Publicar funciones para procesar Cadena de texto

Jimbenit

Re: Podrian Publicar funciones para procesar Cadena de texto

F_Tanori

Re: Podrian Publicar funciones para procesar Cadena de texto

Nebire

Re: Podrian Publicar funciones para procesar Cadena de texto

Nebire

Re: Podrian Publicar funciones para procesar Cadena de texto

ferhn

Re: Podrian Publicar funciones para procesar Cadena de texto

Nebire

Re: Podrian Publicar funciones para procesar Cadena de texto