Poniżej dwie funkcje, które (teoretycznie) robią to samo. Kod2 powstał właśnie w wyniku tego, że
Move To źle działa. (Sprawdzane w Handel Premium i Handel Forte).
Kod:
string sub Kod(string s)
buf = s
if len(s) < 6 then
Move To 3
Insert "-"
endif
Kod = buf
endsub
string sub Kod2(string s)
buf = s
int i = Move 0
if len(s) < 6 then
Move (3-i)
Insert "-"
endif
Kod2 = buf
endsub
print Kod(""), Kod("1"), Kod("12"), Kod("123"), Kod("1234"), Kod("12345"), Kod("123456"), lf
print Kod2(""), Kod2("1"), Kod2("12"), Kod2("123"), Kod2("1234"), Kod2("12345"), Kod2("123456"), lf
Oczywiście można też to zrobic np. tak:
Kod:
string sub Kod3(string s)
Kod3 = s
if len(s) < 6 then
Kod3 = mid(s, 1, 2 ) + "-" + mid(s, 3, 3)
endif
endsub
. Ja pozwolę sobie powiedzieć wprost: jest błąd ambasicu dyskwalifikujący polecenie move to i, gdy i!=0. Dzięki za info MMM.