Spliting data

[Ultimasnake]

I am working on my own msn messenger.. but i want to split some info that i get from the server to go to some new variables :S


MSG Hotmail Hotmail 348
MIME-Version: 1.0
Content-Type: text/x-msmsgsemailnotification; charset=UTF-8

From: Jeroen
Message-URL: /cgi-bin/getmsg?msg=MSG1021213648.24&start=9940&len=456&curmbox=ACTIVE
Post-URL:****************
Subject: sdsdds
Dest-Folder: ACTIVE
From-Addr: **********@hotmail.com
id: 2


i want to get the SUBJECT.. and the FROM info :S can anybody oh and the from adress might be usefull to help me with it?

[peet]

Private Sub Command1_Click()
Dim sArr() As String
Dim sTmp As String
Dim sMsg As String
Dim sFromInfo As String
Dim sFromAddress As String
Dim sSubject As String
 
    Open "C:\message.txt" For Binary As #1
        sMsg = Input(LOF(1), 1)
    Close #1
    
    sTmp = Split(sMsg, "From:")(1)
    sFromInfo = Split(sTmp, vbCrLf)(0)
    
    sTmp = Split(sMsg, "Subject:")(1)
    sSubject = Split(sTmp, vbCrLf)(0)
    
    sTmp = Split(sMsg, "From-Addr:")(1)
    sFromAddress = Split(sTmp, vbCrLf)(0)
    
    Debug.Print sFromInfo
    Debug.Print sFromAddress
    Debug.Print sSubject
End Sub

assuming the format of the message is constant.

[peet]

the short and unreadable version

Debug.Print Split(Split(sMsg, "From:")(1), vbCrLf)(0)
    Debug.Print Split(Split(sMsg, "Subject:")(1), vbCrLf)(0)
    Debug.Print Split(Split(sMsg, "From-Addr:")(1), vbCrLf)(0)

... uh... I need a life...

[Ultimasnake]

thnx.. i needed the last one.. because it will be put in a caption thnx allot m8.. so if i am correct it will get the info after FROM: and in front of a VBCRLF?

[peet]

yepp

[Ultimasnake]

thnx allot that helped allot ya know.. now i can do much more of the stuff i wanted ... gonna add ya in the special thanks to: :P