COMPARANDO STRINGS

ICHIHARA 17/01/2005 17:02:05
#61444
Boa tarde pessoal!

Gostaria de saber se alguem tem uma funcao pronta que compara 2 string
me respondendo a % uma string se parare com a outra...

Ex:

String1 = "Alexandre!"
String2 = "Ale!"

A resposta da funcao seria: 40%

Se alguem tiver algo parecido tbm ajuda!!

Valeu!
GABRIEL.LOGAN 17/01/2005 17:13:57
#61446
Este link te ajudará bastante:

http://www.macoratti.net/strings.htm

E lembre-se:
USUARIO.EXCLUIDOS 17/01/2005 17:56:13
#61456 Resposta escolhida
Ufa! Deu trabalho!! Mas olha ela aqui!
Acabei de fazer, está QUENTINHA

Private Function comparar(valor1 As String, valor2 As String)
Dim resposta As String

Dim porcentagem As String

If Len(valor1) > Len(valor2) Then

      For i = 1 To Len(valor1)
            
       If Mid(valor1, i, 1) <> Mid(valor2, i, 1) Then
           resposta = resposta + Mid(valor1, i, 1)
      End If
    
     Next
'inico da porcentagem
porcentagem = CInt((100 * Len(resposta) / Len(valor1)))
'final

Else

For i = 1 To Len(valor2)
            
       If Mid(valor2, i, 1) <> Mid(valor1, i, 1) Then
           resposta = resposta + Mid(valor2, i, 1)
      End If
    
     Next
     
'inico da porcentagem
porcentagem = CInt((100 * Len(resposta) / Len(valor2)))
'final
     
End If
comparar = "Valor1:'" & valor1 & "', Valor2:'" & valor2 & "', Diferença: '" & resposta & "', Porcentagem de Erro " & porcentagem & "%"
End Function

'para chamar, em um command button

Private Sub Command1_Click()
MsgBox "" & comparar("Alexandre", "Alex")
End Sub

Não se esqueça de encerrar o topico
USUARIO.EXCLUIDOS 17/01/2005 23:08:30
#61472
http://www.vbmania.com.br/vbmdetail.php?varID=667

muito bem feita essa aí
ICHIHARA 18/01/2005 08:50:59
#61510
Muito Boa!

Valeu GERMANIR
Tópico encerrado , respostas não são mais permitidas
Voltar