Xor: err 13 type mismatch – Visual Basic – Fórum – Programujte.com

Print "fdghskfsdhgf" Xor "dsfjxchvklwef"

No, pokial viem tak Xor sa da pouzit na Boolean a na Integer, neviem si predstavit co by malo byt vysledkom tohto: "fdghskfsdhgf" Xor "dsfjxchvklwef" . Čo očakávaš, že to vypíše?

VB neumi xorovat retezce... musis to prolezt byte po bytu...

dim str1 as string, str2 as string, strout as string, i as integer
str1="abcdef"
str2="fedcba"
strout = ""
for i = 1 to len(str1)
strout = strout & chr(asc(mid(str1,i,1)) xor asc(mid(str2,i,1)))
next i

---> v promeny strout mas vysledek