Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

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

Eigene Werkzeuge