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> | ||
