14.01.2018 11:48
[#1]
[Hollywood] CompareStr
Próbuję porównać dwa stringi za pomocą podanej funkcji i podać czy odpowiedź jest poprawna, czy nie, ale za każdym razem dostaję, że tak. Gdzie błąd?
P.S. Tak, wiem, żem noob. Oto kod (to Wait na końcu jest po to, żebym zobaczył wynik, który mignie):
P.S. Tak, wiem, żem noob. Oto kod (to Wait na końcu jest po to, żebym zobaczył wynik, który mignie):
odp1a$ = PrawidłowaOdp
Print ("Pytanie?")
odp1$ = InKeyStr (#ALPHABETICAL)
If (CompareStr (odp$1, odp1a$)) = 0
Print ("Tak")
Else
Print ("Nie")
EndIf
Wait(200) 
15.01.2018 23:00
[#7]
Re: [Hollywood] CompareStr
@recedent, post #6
O kant d... rozbić ten cały CompareStr. Wystarczy że pierwsza litera jest taka sama jak w prawidłowej odpowiedzi i zwraca 0, czyli (w moim przypadku) - odpowiedź "prawidłowa".
Inna rzecz, że warto w nawiasiku po drugim porównywanym stringu dodać FALSE, bo inaczej aktywuje się casesen i zrobi się wrażliwy na wielkie i małe litery. Ale nie zmienia to faktu, że odpowiedź może być jednoliterowa i "prawidłowa". Grr...
EDIT: Dałem sobie DebugPrint dla jednoliterowej odpowiedzi i oczom mym ukazało się okienko dialogowe z wartością -1. Ktoś wie może dlaczego dla mojego skryptu -1 = 0?
Ostatnia aktualizacja: 15.01.2018 23:13:34 przez recedent
Inna rzecz, że warto w nawiasiku po drugim porównywanym stringu dodać FALSE, bo inaczej aktywuje się casesen i zrobi się wrażliwy na wielkie i małe litery. Ale nie zmienia to faktu, że odpowiedź może być jednoliterowa i "prawidłowa". Grr...
EDIT: Dałem sobie DebugPrint dla jednoliterowej odpowiedzi i oczom mym ukazało się okienko dialogowe z wartością -1. Ktoś wie może dlaczego dla mojego skryptu -1 = 0?
Ostatnia aktualizacja: 15.01.2018 23:13:34 przez recedent
16.01.2018 08:26
[#10]
Re: [Hollywood] CompareStr
@selur, post #9
@Selur
Kłopot jest innej natury. Na Twoim przykładzie (po wywaleniu dwóch przecinków za TRUE) działa na tej samej zasadzie co u mnie, tzn. zamiast "dupa" wystarczy wpisać "d" i CompareStr uważa, że wszystko OK - zwraca wartość 0 i napisze Ci, że "Tak, to dupa".
@Umpal
Ale w jaki sposób użyć tego MidStr() żeby porównać dwa stringi? On zwraca jako wynik sam string. Sugerujesz, żeby zrobić tak? (na Selurowym przykładzie):
Jeśli tak to tak nie zadziała - tzn. zadziała, ale wynik ten sam.
Póki co - jestem zmuszony po prostu "na chama" porównać stringi metodą:
w ten sposób działa, ale jest mniej elegancko, bo ta metoda jest wrażliwa na wielkość liter, czego chciałem uniknąć.
Ostatnia aktualizacja: 16.01.2018 08:40:10 przez recedent
Kłopot jest innej natury. Na Twoim przykładzie (po wywaleniu dwóch przecinków za TRUE) działa na tej samej zasadzie co u mnie, tzn. zamiast "dupa" wystarczy wpisać "d" i CompareStr uważa, że wszystko OK - zwraca wartość 0 i napisze Ci, że "Tak, to dupa".
@Umpal
Ale w jaki sposób użyć tego MidStr() żeby porównać dwa stringi? On zwraca jako wynik sam string. Sugerujesz, żeby zrobić tak? (na Selurowym przykładzie):
CompareStr (MidStr(odpA$, 0), MidStr(odpB$, 0), FALSE)
Jeśli tak to tak nie zadziała - tzn. zadziała, ale wynik ten sam.
Póki co - jestem zmuszony po prostu "na chama" porównać stringi metodą:
If odp1a$ = odp1$ ...
w ten sposób działa, ale jest mniej elegancko, bo ta metoda jest wrażliwa na wielkość liter, czego chciałem uniknąć.
Ostatnia aktualizacja: 16.01.2018 08:40:10 przez recedent
16.01.2018 09:12
[#13]
Re: [Hollywood] CompareStr
@recedent, post #7
masz blad przy instrukcji IF
podaj jak DOKLADNIE WYGLADA ta linia u Ciebie
Zobacz:
musisz uwazac IF-em - on daje 0 TYLKO (!!!) gdy warunek daje 0, pozostale opcje sa jako TRUE wiec nie wazne czy to bedzie -100 czy 999
zabraklo Ci znaku rownosci:
w 1szym przykladzie wyniki sa odpowiednio: -1 i 1
czyli warunek JEST spelniony bo nie przyrwnujesz do 0 tylko patrzysz czy operacja zakonczyla sie SUKCESEM (a dokladnie nie FALSE-em czyli NIE 0)
DODANO
innymi slowy:
taki zapis:
daje 3 opcje: -1,0,1 (w tym wypadku -1)
a taki
juz tylko 2 mozliwosci: 0,1 (tutaj da Ci (1))
i warunek zostaje spelniony
dlatego musizsz dopisac "=0" (lub cokolwiek innego ale tak by "logiga"
byla zachowana)
Ostatnia aktualizacja: 16.01.2018 09:30:38 przez peceha
podaj jak DOKLADNIE WYGLADA ta linia u Ciebie
Zobacz:
If CompareStr("nie","dupa") Then DebugPrint("jest OK")
If CompareStr("duuyyyy","dupa") Then DebugPrint("jest OK")musisz uwazac IF-em - on daje 0 TYLKO (!!!) gdy warunek daje 0, pozostale opcje sa jako TRUE wiec nie wazne czy to bedzie -100 czy 999
zabraklo Ci znaku rownosci:
If CompareStr("d","dupa")=0 Then DebugPrint("tego nie zobaczysz")w 1szym przykladzie wyniki sa odpowiednio: -1 i 1
czyli warunek JEST spelniony bo nie przyrwnujesz do 0 tylko patrzysz czy operacja zakonczyla sie SUKCESEM (a dokladnie nie FALSE-em czyli NIE 0)
DODANO
innymi slowy:
taki zapis:
CompareStr("d","dupa")daje 3 opcje: -1,0,1 (w tym wypadku -1)
a taki
if CompareStr("d","dupa")juz tylko 2 mozliwosci: 0,1 (tutaj da Ci (1))
i warunek zostaje spelniony
dlatego musizsz dopisac "=0" (lub cokolwiek innego ale tak by "logiga"
byla zachowana)Ostatnia aktualizacja: 16.01.2018 09:30:38 przez peceha
16.01.2018 09:39
[#14]
Re: [Hollywood] CompareStr
@peceha, post #13
Hehe, tyle ze Ty masz przyrownane do 0 
Przyklad ktory ja podalem na poczatku oraz ten co podal Selur u mnie dzialaja jak nalezy czyli podanie litery "d" nie jest tym samym co wpisanie "dupa"
Zreszta Twoj program z postu 1szego tez dziala jak powinien (bez znaczenia czy casesen=FALSE czy TRUE) - oczywiscie po dodaniu "".
Ostatnia aktualizacja: 16.01.2018 09:49:06 przez peceha
Przyklad ktory ja podalem na poczatku oraz ten co podal Selur u mnie dzialaja jak nalezy czyli podanie litery "d" nie jest tym samym co wpisanie "dupa"
Zreszta Twoj program z postu 1szego tez dziala jak powinien (bez znaczenia czy casesen=FALSE czy TRUE) - oczywiscie po dodaniu "".
Ostatnia aktualizacja: 16.01.2018 09:49:06 przez peceha
16.01.2018 09:57
[#15]
Re: [Hollywood] CompareStr
@peceha, post #14
ten zapis
If CompareStr (odp1$, odp1a$) = 0 ... powinien dzialac ale wyglada na to, ze ta funkcja CompareStr() jest wadliwa, bo zle zwraca wartosc 0 jesli lancuchy sa rozne.
ja bym postrzelal dalej i sprobowal
CompareStr (odp1$, odp1a$,FALSE,#ENCODING_RAW)
albo
CompareStr (odp1$, odp1a$,FALSE,#ENCODING_AMIGA)
If CompareStr (odp1$, odp1a$) = 0 ... powinien dzialac ale wyglada na to, ze ta funkcja CompareStr() jest wadliwa, bo zle zwraca wartosc 0 jesli lancuchy sa rozne.
ja bym postrzelal dalej i sprobowal
CompareStr (odp1$, odp1a$,FALSE,#ENCODING_RAW)
albo
CompareStr (odp1$, odp1a$,FALSE,#ENCODING_AMIGA)
16.01.2018 10:01
[#16]
Re: [Hollywood] CompareStr
@selur, post #15
DebugPrint(CompareStr ("dupa","Dupa",False))
DebugPrint(CompareStr ("dupa","dupa"))
DebugPrint(CompareStr ("d","dupa"))
DebugPrint(CompareStr ("dupa","d"))daje:
0
0
-1
1
czyli tak jak byc powinno (0 gdy oba stringi sa identyczne).
No chyba ze recedent uzywa Hollywood nizszego niz 7 to wtedy faktycznie musialby pokombinowac z kodowaniem bo tam nie ma UTF (o ile wogole dalby rade przyrownac polskie litery)
Ostatnia aktualizacja: 16.01.2018 10:08:44 przez peceha
nie na DebugPrint(), tylko na zwykłym Print()? 
16.01.2018 11:05
[#28]
Re: [Hollywood] CompareStr
@SuperBuster, post #26
@SuperBuster:
To nie moja wina. Zrobiłem wykonywalkę (u mnie na MorphOSie zwraca wynik 0), przerzuciłem na PC i tam daje wynik -1. Zresztą - sprawdźcie sami. Pliki wykonywalne pod różne systemy operacyjne można pobrać tutaj. Bardzo jestem ciekaw jakie wyniki dadzą poszczególne systemy operacyjne.
P.S. Pod OSX trzeba jeszcze flagi ustawić, że wykonywalny.
To nie moja wina. Zrobiłem wykonywalkę (u mnie na MorphOSie zwraca wynik 0), przerzuciłem na PC i tam daje wynik -1. Zresztą - sprawdźcie sami. Pliki wykonywalne pod różne systemy operacyjne można pobrać tutaj. Bardzo jestem ciekaw jakie wyniki dadzą poszczególne systemy operacyjne.
P.S. Pod OSX trzeba jeszcze flagi ustawić, że wykonywalny.