binary til ascii

vil du konvertere en streng med "1010" til en anden streng "10" ?

jeg lavede fr et par år siden denne radix konverter:

Imports System

Class MainClass
    Private Shared DIGITS As String = "0123456789ABCDEF"
    Private Shared Function FromAny(ByVal s As String, ByVal radix As Integer) As Integer
        Dim res As Integer = 0
        Dim sa() As Char = s.ToCharArray
        Dim i As Integer
        For i = 0 To s.Length-1
            res = res * radix + DIGITS.IndexOf(sa(i))
        Next
        FromAny = res
    End Function
    Private Shared Function ToAny(ByVal i As Integer, ByVal radix As Integer) As String
        Dim res As String = ""
        Dim tmp As Integer = i
        While tmp > 0
            res = DIGITS.ToCharArray()(tmp Mod radix) & res
            tmp = tmp \ radix
        End While
        ToAny = res
    End Function
    Public Shared Function FromDec(ByVal s As String) As Integer
        FromDec = FromAny(s, 10)
    End Function
    Public Shared Function ToDec(ByVal i As Integer) As String
        ToDec = ToAny(i, 10)
    End Function
    Public Shared Function FromHex(ByVal s As String) As Integer
        FromHex = FromAny(s, 16)
    End Function
    Public Shared Function ToHex(ByVal i As Integer) As String
        ToHex = ToAny(i, 16)
    End Function
    Public Shared Function FromBin(ByVal s As String) As Integer
        FromBin = FromAny(s, 2)
    End Function
    Public Shared Function ToBin(ByVal i As Integer) As String
        ToBin = ToAny(i, 2)
    End Function
    Public Shared Sub Main(ByVal args As String())
        Console.WriteLine(ToBin(FromHex("FF")))
        Console.WriteLine(ToBin(FromDec("11")))
    End Sub
End Class

1010 er det ikke 5??

Ikke hvis man læser fra den rigtige side:
8|4|2|1
1|0|1|0

ahh right havde jeg glemt...

yes tak arne læg et svar, der er ikke nogen FromBin men kan godt selv gennemskue det

Der er en FromBin funktion - den bliver ikke kaldt, men princippet er ret generelt

og svar

det er der også bare mig der er blind