Codici Asci e Socket

lunedì 20 febbraio 2006 - 11.40

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Marc1982 Profilo | Newbie

34 messaggi | Data Invio: lun 20 feb 2006 - 11:40

Buongiorno ragazzi,
il mio problema è il seguente:Partendo dall'esempio che ho trovato su internet per la connessione all POP3
stavo realizzando un programmino che mi prendeva le intestazioni dei messaggi presenti nella casella di posta
il problema è che le intestazioni mi tornano però alla fine o all'inizio delle stringhe ce il carattere"QUADRATINO"
vorrei riuscire a togliere quel carattere...come posso fare???Ho provato ad usare una replace(valore,"\n","")
ma non funziona qualcuno sa come risolvere il problema.

Grazie mille a tutti
Ciao
Marco

Brainkiller Profilo | Guru

7.999 messaggi | Data Invio: lun 20 feb 2006 - 13:04

>il problema è che le intestazioni mi tornano però alla fine o
>all'inizio delle stringhe ce il carattere"QUADRATINO"
>vorrei riuscire a togliere quel carattere...come posso fare???Ho
>provato ad usare una replace(valore,"\n","")
>ma non funziona qualcuno sa come risolvere il problema.

Ciao,
di solito è l'unione di \r\n e non solo \n.
Quindi prova a verificare e fai un replace, sia di \r che di \n.
Ciao

David De Giacomi
Microsoft MVP
http://blogs.dotnethell.it/david/

Marc1982 Profilo | Newbie

34 messaggi | Data Invio: lun 20 feb 2006 - 22:27

5_From.zip

niente...neache con \r e \n funziona allego il file di testo per far capire quali simboli mette. e riporto sotto il pezzo di codice di esempio che uso :

Comando = "TOP 1"
Dim ComandoTop = System.Text.Encoding.ASCII.GetBytes(Comando + vbCrLf)
ScritturaStream.Write(ComandoTop, 0, ComandoTop.length)
Dim RispostaServerTop(LetturaStream.ReceiveBufferSize) As Byte
ScritturaStream.Read(RispostaServerTop, 0, RispostaServerTop.Length)

Dim byteServer5(LetturaStream.ReceiveBufferSize) As Byte
ScritturaStream.Read(byteServer5, 0, byteServer5.Length)
StringaDettaglio += System.Text.Encoding.ASCII.GetString(byteServer5)
VettoreRisposta = StringaDettaglio.Split(vbCrLf)
Dim c As Integer
Dim x As Integer
Dim f As New System.IO.StreamWriter("From.txt")

For c = 1 To VettoreRisposta.Length - 1
From = Mid(VettoreRisposta(c), 1, 5)
From = Replace(From "\r", "")
From = Replace(From "\n", "")
'#HO PROVATO ANCHE CON LA REPLACE SOTTO RIPORTATA E COMMENTATA
' From = Replace(From "\r\n", "")
'MsgBox(From.Chars(1).ToString)
If StrComp(Mid(From, 1, 5), "From") = 0 Then
MsgBox("Parola Uguale")
End If
'MsgBox(From)
f.WriteLine(From)

Next

gRAZIE mille
Marco

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !