Oppure

Loading
11/04/09 13:27
AlesPalla
ok ho risolto con un metodo altamente rozzo....

 Private Function body(ByVal headers As String, ByVal msg As String, ByVal client As TcpClient, ByVal netstr As NetworkStream)
        Dim A() As Char
        A = headers.ToCharArray
        Dim B() As Char
        B = msg.ToCharArray
        Dim C(msg.Length - headers.Length) As Char
        Dim m As Int16 = 0
        For n = 0 To A.Length - 1
            If Not (A(n) = B(n)) Then
                C(m) = B(n)
                m = m + 1
            End If

        Next
        Dim S As String = ""
        For Each h In C
            S += h
        Next
        Return S
    End Function

Comunque funziona...


Grazie mille per la disponibilità
aaa