16,555
社区成员
发帖
与我相关
我的任务
分享
Private Function GetAttachment(ByVal content As String, ByVal cid As String) As Stream
Dim startflag As String = "content-id: <"+ cid +">"
Dim start As Integer = content.IndexOf(startflag) + startflag.Length
Dim end As Integer = content.IndexOf("--",start)
Dim attachStr As String = content.Substring(start,end - start).Trim()
Dim bytes() As Byte = Convert.FromBase64String(attachStr)
Dim ms As MemoryStream = New MemoryStream(bytes)
Return ms
End Function
Dim str As String = File.ReadAllText("c:\1\1.mht")
using(Stream ms = GetAttachment(str, "6670c606-7eb0-4b10-b5ff-0a3803dbbaa4"))
{
Dim bmp As Bitmap = New Bitmap(ms)
Me.pictureBox1.Image = bmp
}
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="26" colspan="4">
<span class="blue"><b>五年以上工作经验 | 男 | 31岁(1980年7月8日)</b></span>
</td>
<td width="17%" rowspan="6" align="center" valign="middle">
<img src="cid:0e23f5f2-71b7-43bd-8dbb-3d75677ef3d4" width="90" height="110"><br>
(ID:17005063)
</td>
</tr>
<tr>
<td width="10%" height="20">
居住地:
</td>
<td width="42%" height="20">
顺德
</td>
<td width="11%" height="20">
户 口:
</td>
<td width="20%" height="20">
顺德
</td>
</tr>
<tr>
<td height="20">
电 话:
</td>
<td height="20" colspan="3">
13798673819(手机)
</td>
</tr>
<tr>
<td height="20">
E-mail:
</td>
<td height="20" colspan="3">
<a class="blue" href="mailto:carrsson@yahoo.cn">carrsson@yahoo.cn</a>
</td>
</tr>
</table>