11/04/09 13:27
AlesPalla
ok ho risolto con un metodo altamente rozzo....
Comunque funziona...
Grazie mille per la disponibilità
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