Código: Seleccionar todo
'--------------------------------------------
'|Autor: Slek & The Swash
'|[ALTERNATIVE] Function StrRev
'|Indetectables.net
'--------------------------------------------
Public Function StrRev(hStr As String) As String
If Len(hStr) > 0 Then
For i = Len(hStr) To 1 Step -1
StrRev = StrRev & Mid$(hStr, i, 1)
Next i
End If
End Function
La de Sanlegas desordenaba los caracteres de una cadena, esta hace lo mismo que la función StrReverse() que solo le da vuelta al orden de la cadenaxpro escribió:Parecida a la de sangelas
Código: Seleccionar todo
Private Function InStrRevAlt(ByVal StringCheck As String, ByVal StringMatch As String, Optional ByVal Start As Long = -1, Optional Compare As VbCompareMethod = vbBinaryCompare) As Long
If Start = -1 Then Start = Len(StringCheck)
Start = Len(StringCheck) - Start + 1
If Start < 1 Then Exit Function
InStrRevAlt = InStr(Start, StrReverse(StringCheck), StringMatch, Compare)
If Not InStrRevAlt = 0 Then InStrRevAlt = Len(StringCheck) - InStrRevAlt + 1
End Function
