Descodificación de correo electrónico con codificación Quote-Print, cómo escribir código vb.net, ¡gracias!
Dim Lines = System.IO.File.ReadAllLines("D:\zhege\qp.txt")
'El código fuente del correo electrónico debe leerse en unidades de línea, reemplazando las líneas en esta matriz.
Atenuar codeBuilder como nuevo System.Text.StringBuilder
Para cada código como cadena en líneas
code = code.Replace("==", "= ")
Si code.EndsWith("=") Entonces
código = code.Substring(0, code.Count - 1)
codeBuilder.Append (código)
Elsef código <> """Entonces
codeBuilder.AppendLine(código)
Finalizar si
Siguiente
Dim reg como nuevo System.Text.RegularExpressions.Regex("(=(\d|[A-F]){2}){1,} ")
Dim match como sistema. Text.RegularExpressions.Match = Nada
Mientras que reg.IsMatch(codeBuilder.ToString)
coincide = reg.Match(codeBuilder.ToString)