Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Porównywanie dwóch łańcuchów
lop



Typ: neutral
Postów: 9
Zarejestrowany: Sep 2004
Porównywanie dwóch łańcuchów

Witam,
mam taki problem: gdy porównuje dwa bardzo podobne łańcuchy (różniace sie tylko w niektórych miejscach wielkoscia liter) to warunek if...then nie spełnia się. To logiczne. Ale czy ktoś wie jak zrobić taki warunek, tylko zeby nie zwracał uwagi na wielkosc liter w łańcuchach ??? Np. porównując łańcuchy: ŁaŃcucH i łańcuch, warunek został spełniony. LCase i UCase itp. raczej odpadają...

09-04-2005 16:23
Pokaż profil lop  Wyślij email do lop        3710088
hicks
raptor user



Typ: moderator
Postów: 279
Zarejestrowany: Apr 2003

Private Sub Form_Load()
    Dim strA As String, strB As String
    strA = "ŁaŃcucH"
    strB = "łańcuch"
   
    ' 1 sposób:
    If StrComp(strA, strB, vbBinaryCompare) = 0 Then
        MsgBox "takie same"
    Else
        MsgBox "inne"
    End If
   
    ' 2 sposób:
    If strA <> strB Then
        MsgBox "inne"
    Else
        MsgBox "takie same"
    End If
End Sub

[Post edytowany dnia 09-04-2005 16:44 przez hicks]


_____________________________________________
TLHW Clan member

09-04-2005 16:41
Pokaż profil hicks  Wyślij email do hicks   Odwiedź stronę hicks       2511367
lop



Typ: neutral
Postów: 9
Zarejestrowany: Sep 2004

hymmm... hicks mnie nie za dobrze zrozumiał... W jego kodzie porównując zmienną strA i strB program bierze pod uwagę wielkosc liter. Ja chem, żeby nie brał tego pod uwagę i dlatego porównując dwie zmienne o wartościach "ŁaŃcucH" i "łańcuch" warunek powinienen być spełniony (dla programu te zmienne są takie same).

[Post edytowany dnia 09-04-2005 17:14 przez lop]

09-04-2005 17:11
Pokaż profil lop  Wyślij email do lop        3710088
lop



Typ: neutral
Postów: 9
Zarejestrowany: Sep 2004

Witam,
udalo mi sie znalezc samemu rozwiazanie na mój problem. Jesli ktos che je to jest ono ponizej:

Private Sub Form_Load()
    Dim strA As String, strB As String
    strA = "ŁaŃcucH"
    strB = "łańcuch"
    If StrComp(strA, strB, vbTextCompare) = 0 Then
        MsgBox "takie same"
    Else
        MsgBox "inne"
    End If
End Sub


09-04-2005 18:33
Pokaż profil lop  Wyślij email do lop        3710088
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1