PureBoard

Code: Alles auswählen

+OK 1479 octets
Return-path: <chris@webmaster-elite.de>
Delivery-date: Mon, 20 Mar 2006 17:47:41 +0100
Received: by server030.webpack.hosteurope.de running Exim 4.51 using esmtp
	from pi.mc1.hosteurope.de ([80.237.128.239])
	id 1FLNXh-0008SX-NS; Mon, 20 Mar 2006 17:47:41 +0100
Received: by pi.mc1.hosteurope.de running Exim 4.60 using esmtp
	from server030.webpack.hosteurope.de ([80.237.130.38])
	id 1FLNXh-0005Ww-HY
	for mahnung@webmaster-elite.de; Mon, 20 Mar 2006 17:47:41 +0100
Received: by server030.webpack.hosteurope.de running Exim 4.51 using esmtpa
	from u9d29.u.pppool.de ([89.56.157.41] helo=[127.0.0.1])
	id 1FLNXh-0008SB-9e; Mon, 20 Mar 2006 17:47:41 +0100
Message-ID: <441EDCA9.40506@webmaster-elite.de>
Date: Mon, 20 Mar 2006 17:47:37 +0100
From: Christopher Higgs <chris@webmaster-elite.de>
User-Agent: Thunderbird 1.5 (Windows/20051201)
MIME-Version: 1.0
To:  mahnung@webmaster-elite.de
Subject: [#10004] Blubbi Mc. Blub lol
Content-Type: text/plain; charset=ISO-8859-15; format=flowed
Content-Transfer-Encoding: 8bit
X-HE-Spam-Level: /
X-HE-Spam-Score: -0.0
X-HE-Spam-Report: Content analysis details:   (-0.0 points)
	pts rule name              description
	---- ---------------------- --------------------------------------------------
	-0.0 NO_RELAYS              Informational: message was not relayed via SMTP
Envelope-to: mahnung@webmaster-elite.de
X-NAS-Language: German
X-NAS-Bayes: #0: 3.0707E-006; #1: 0.999997
X-NAS-Classification: 0
X-NAS-MessageID: 125
X-NAS-Validation: {7F72F756-47AF-43AA-99D9-A8C676F1DB7F}

Blubblublub und nochma blub

Mit freundlichen Grüßen
 lol

Code: Alles auswählen

Global Sender.s, Date.s, Subject.s, Daten.s

Procedure GetMailData(File$)
	
	DatenStart = #False
	
	If File$
		FileID     = ReadFile(#PB_Any, File$)
	
		If FileID
			While Eof(FileID) = 0
				a$ = ReadString(FileID)
				If Left(LCase(a$), 6) = "from: "
					Sender = Right(a$, Len(a$) - 6)
				ElseIf Left(LCase(a$), 6) = "date: "
					Date = Right(a$, Len(a$) - 6)
				ElseIf Left(LCase(a$), 9) = "subject: "
					Subject = Right(a$, Len(a$) - 9)
				ElseIf Trim(a$) = "" And DatenStart = #False
					DatenStart = #True
					Daten      = ""
				ElseIf DatenStart
					Daten + a$ + #CRLF$
				EndIf
			Wend
			CloseFile(FileID)
		EndIf
	EndIf
	
EndProcedure

GetMailData(OpenFileRequester("Select Mail File", "mail.txt", "", 0))
Debug "Sender:" + Sender
Debug "Datum:" + Date
Debug "Betreff:" + Subject
Debug "Mail:" + Daten

Code: Alles auswählen

Procedure.l Zahl(Datei.s)
	Protected file.l, temp.s
	file.l=ReadFile(#PB_Any, Datei)
	While file And Eof(file) = 0
		temp.s=ReadString()
		If FindString(temp, "Subject: ", 1)
			CloseFile()
			ProcedureReturn Val(Mid(temp, FindString(temp, "[", 1)+2, FindString(temp, "]", 1)-FindString(temp, "[", 1)-2))
		EndIf
	Wend
	ProcedureReturn 0
EndProcedure