Unterschiede
Hier werden die Unterschiede zwischen zwei Versionen gezeigt.
— |
nettalk:scripting:binstr [2005/08/08 19:24] (aktuell) 192.168.0.50 angelegt |
||
---|---|---|---|
Zeile 1: | Zeile 1: | ||
+ | ====== Binstr ====== | ||
+ | <code vb> | ||
+ | |||
+ | #NewScriptBegin BinStrScript | ||
+ | |||
+ | Function FromDez(Dez, System) | ||
+ | if val(System)=0 then System=2 | ||
+ | i=23 | ||
+ | tval=val(Dez) | ||
+ | do | ||
+ | strout=hex(tval mod System) & strout | ||
+ | tval=tval \ System | ||
+ | loop until tval < 1 | ||
+ | echo strout | ||
+ | FromDez=strout | ||
+ | End Function | ||
+ | |||
+ | Function ToDez(Zahl, System) | ||
+ | if val(System)=0 then System=2 | ||
+ | ZahlLen = len(Zahl) | ||
+ | i=ZahlLen | ||
+ | outval=0 | ||
+ | do | ||
+ | outval=outval+val("&H"+mid(Zahl,i,1))*System^(ZahlLen-i) | ||
+ | i=i-1 | ||
+ | loop until i = 0 | ||
+ | ToDez=outval | ||
+ | End Function | ||
+ | |||
+ | Function StrToBin(Text) | ||
+ | i=0 | ||
+ | do until i >= len(Text) | ||
+ | i=i+1 | ||
+ | DAT=FromDez(asc(mid(Text,i,1)),2) | ||
+ | OutText=OutText & cstr(String(8-len(DAT), "0")) & DAT | ||
+ | loop | ||
+ | StrToBin=OutText | ||
+ | End Function | ||
+ | |||
+ | Function BinToStr(BinText) | ||
+ | i=1 | ||
+ | do until i > len(BinText) | ||
+ | OutText=OutText & chr(ToDez(mid(BinText,i,8),2)) | ||
+ | i=i+8 | ||
+ | loop | ||
+ | BinToStr=OutText | ||
+ | End Function | ||
+ | </code> |