frmhand.frm

本书源码主要针对目前流行的FTP、HTTP、E-mail、Telnet、ICMP、Modem串口通信编程、拨号网络编程等内容进行详细的讲解

VERSION 5.00
Begin VB.Form frmHand 
   Caption         =   "Form1"
   ClientHeight    =   5355
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6960
   LinkTopic       =   "Form1"
   ScaleHeight     =   5355
   ScaleWidth      =   6960
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox txtContent 
      Height          =   1815
      Left            =   3360
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   6
      Top             =   480
      Width           =   3435
   End
   Begin VB.CommandButton cmdHand 
      Caption         =   "整理信件"
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   1575
   End
   Begin VB.TextBox Text1 
      Height          =   2595
      Left            =   120
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Top             =   2640
      Width           =   6735
   End
   Begin VB.Label Label1 
      Caption         =   "信件正文"
      Height          =   315
      Left            =   3360
      TabIndex        =   7
      Top             =   60
      Width           =   1875
   End
   Begin VB.Label lblHead 
      Caption         =   "日期："
      Height          =   255
      Index           =   3
      Left            =   180
      TabIndex        =   5
      Top             =   1920
      Width           =   2955
   End
   Begin VB.Label lblHead 
      Caption         =   "收信人："
      Height          =   255
      Index           =   2
      Left            =   180
      TabIndex        =   4
      Top             =   1500
      Width           =   2955
   End
   Begin VB.Label lblHead 
      Caption         =   "写信人："
      Height          =   255
      Index           =   1
      Left            =   180
      TabIndex        =   3
      Top             =   1080
      Width           =   2955
   End
   Begin VB.Label lblHead 
      Caption         =   "主题："
      Height          =   255
      Index           =   0
      Left            =   180
      TabIndex        =   2
      Top             =   660
      Width           =   2955
   End
End
Attribute VB_Name = "frmHand"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mSubject As String
Dim mFrom As String
Dim mTo As String
Dim mDate As String
Dim mContent As String

Private Sub cmdHand_Click()
Dim mOpenfile As String
Dim Fnum As Integer
Dim strLine, strHeadItem, strHeadName, strHeadContent As String
Dim iFlag, Pos As Integer
'iflag=0字段头，iflag=1折叠字段，iflag=2正文
mOpenfile = App.Path & "\rawmail.txt"
Fnum = FreeFile()
Open mOpenfile For Input As #Fnum
If Not EOF(Fnum) Then
    Line Input #Fnum, strLine
    strHeadItem = strLine
End If
iFlag = 1
While Not EOF(Fnum)
   Line Input #Fnum, strLine
   If strLine <> "" And iFlag <> 2 Then
        '如果读进的一行不是空行,表示还是信头
        If Left(strLine, 1) <> Chr(32) And Left(strLine, 1) <> Chr(9) Then
            '如果一行的开始不是空白字符space或tab,表示是下一个字段
            iFlag = 0
        Else
            '否则是字段的折叠
            iFlag = 1
        End If
    Else
        iFlag = 2
    End If
    If strLine <> "" Then
        Select Case iFlag
            Case 0
            ' 处理字段
            
            Pos = InStr(1, strHeadItem, ":")
            If Pos > 0 Then
                strHeadName = Left(strHeadItem, Pos - 1)
                strHeadContent = Mid(strHeadItem, Pos + 1)
                Select Case LCase(strHeadName)
                        
                    Case "subject"
                        mSubject = strHeadContent
                    Case "from"
                        mFrom = strHeadContent
                    Case "to"
                        mTo = strHeadContent
                    Case "date"
                        mDate = strHeadContent
                End Select
            End If
            strHeadItem = strLine
            Case 1
            '处理字段折叠
            strHeadItem = strHeadItem & strLine
            Case 2
            '处理正文
                mContent = mContent & strLine
        End Select
    End If

Wend
Close (Fnum)
Text1.Text = "主题：" & mSubject & vbCrLf
Text1.Text = Text1.Text & "写信人：" & mFrom & vbCrLf
Text1.Text = Text1.Text & "收信人：" & mTo & vbCrLf
Text1.Text = Text1.Text & "日期：" & mDate & vbCrLf
Text1.Text = Text1.Text & "正文：" & mContent & vbCrLf
End Sub