Unstrukturieren Text parsen - wie ?

HassanMullah

Hallo,

ich möchte gerne aus dem Script heraus ein POP3 Konto abfragen (das geht schon). Als Ergebnis bekomme ich in einem definierten Ordner ein nicht definierte Textdatei.

Nicht definiert heißt, der Name wird dynamisch zusammen gebaut

Der Dateiinhalt ist auch nicht definierbar.

Ich suche dort eine Zeile die mit

"Subjekt:"

anfängt. Was hinter den ":" steht, will ich in eine Variable schreiben .Der Text ist jedoch nicht immer in der gleichen Zeile.

Ich finde sonst auch keine "Regelmäßigkeiten"

Wie geht man sowas an.

mit Fileopen und Fileread vermutlich, aber wie geht es weiter ...

Beispiele wären wünschenswert

Hier mal 2 Beispieltexte:

Code

Received: by s1.vhs.local 
	id <01CD6422.821DCACA@s1.vhs.local>; Tue, 17 Jul 2012 15:46:03 +0200
Return-Receipt-To: "it" <it@lala.de>
Content-class: urn:content-classes:message
Subject: Test123
MIME-Version: 1.0
Content-Type: multipart/alternative;
	boundary="----_=_NextPart_001_01CD6422.821DCACA"
Date: Tue, 17 Jul 2012 15:46:01 +0200
Message-ID: <114753C5767DF54A90285C5A1A10A3A3021A52@s1.vhs.local>
Disposition-Notification-To: "it" <it@lala.de>
X-MimeOLE: Produced By Microsoft Exchange V6.5
X-MS-Has-Attach: 
X-MS-TNEF-Correlator: 
Thread-Topic: Test123
thread-index: Ac1kInwC5AN8zIg8RJ6OA9xctXvurg==
From: "it" <it@lala.de>
To: "bubu" <bubu@lala.de>

Alles anzeigen

und

Code

Received: from 192.168.192.123 ([192.168.192.123]) by s1.vhs.local ([192.168.192.123]) with Microsoft Exchange Server HTTP-DAV ;
 Tue, 17 Jul 2012 13:47:09 +0000
Subject: Test456
From: =?us-ascii?Q?Holger_Hasenm=FCller?= <holger@hasenmueller.de>
Content-Type: text/plain;
	charset="us-ascii"
Message-ID: <7FD267E4-4CA5-4FCC-9F37-B878709B4E2D@hasenmueller.de>
Date: Tue, 17 Jul 2012 15:47:09 +0200
To: "papa control" <papacontrol@hasenmueller.de>
Content-Transfer-Encoding: 7bit
thread-topic: Test456
MIME-Version: 1.0 (1.0)
thread-index: Ac1kIqkQJsc42qKVQx6dW7J1vNXn7w==

Alles anzeigen

Gruss Hassan

**AspirinJunkie**

Z.B. mit _Stringbetween().
Als Endstring nimmst du einfach ein Zeilenumbruchzeichen wie @CRLF, @LF oder @CR

$var

[autoit]

#include <Array.au3>

[/autoit][autoit][/autoit][autoit]

_ArrayDisplay (StringRegExp (ClipGet (), 'Subject:(.+)', 3))

[/autoit]

**BugFix**

$var: Hast du den Code mal probiert?
Sowas ging in irgendeiner alten AutoIt-Version. Aktuell mußt du eine Array-Rückgabe immer erst in einer Variablen auffangen, bevor du diese mit _ArrayDisplay() anzeigen kannst.

$var

Ich habe den Code probiert, nutze aber auch die alte AutoIt-Version... Kann gut sein, dass es so nicht mehr funktioniert.
Da stellt sich mir nur die Frage; wieso?
Irgendwie verstehe ich denn Sinn und Zweck dahinter nicht.

**AspirinJunkie**

Bei ArrayDisplay wird das Array per ByRef übergeben.
Das heißt also keine Kopie erzeugt mit welcher dann intern gearbeitet wird sondern nur ein Verweis.
Einfach ausgedrückt führt das dazu dass die StringRegEx zwar ein Array erzeugt und das kurz an ArrayDisplay übergibt aber dann sofort wieder verwirft da es ja nicht in einer Variable gespeichert wird.
Daher führt der Verweis mit dem ArrayDisplay arbeitet ins Leere.

Kurz: Entfernt man das ByRef aus ArrayDisplay funktioniert es wieder.

**autoBert**

Hallo Hassan,

schau dir dazu Oscars POP-Show an, die dort von Oscar benutzten Funktionen sollten dir weiter helfen,

mfg autoBert

**UEZ**

Probiere es mal damit:

Spoiler anzeigen

[autoit]

$sPop3 = _
'Received: by s1.vhs.local ' & @CRLF & _
' id <01CD6422.821DCACA@s1.vhs.local>; Tue, 17 Jul 2012 15:46:03 +0200' & @CRLF & _
'Return-Receipt-To: "it" <[email='it@lala.de'][/email]>' & @CRLF & _
'Content-class: urn:content-classes:message' & @CRLF & _
'Subject: Test123' & @CRLF & _
'MIME-Version: 1.0' & @CRLF & _
'Content-Type: multipart/alternative;' & @CRLF & _
' boundary="----_=_NextPart_001_01CD6422.821DCACA"' & @CRLF & _
'Date: Tue, 17 Jul 2012 15:46:01 +0200' & @CRLF & _
'Message-ID: <114753C5767DF54A90285C5A1A10A3A3021A52@s1.vhs.local>' & @CRLF & _
'Disposition-Notification-To: "it" <[email='it@lala.de'][/email]>' & @CRLF & _
'X-MimeOLE: Produced By Microsoft Exchange V6.5' & @CRLF & _
'X-MS-Has-Attach: ' & @CRLF & _
'X-MS-TNEF-Correlator: ' & @CRLF & _
'Thread-Topic: Test123' & @CRLF & _
'thread-index: Ac1kInwC5AN8zIg8RJ6OA9xctXvurg==' & @CRLF & _
'From: "it" <[email='it@lala.de'][/email]>' & @CRLF & _
'To: "bubu" <[email='bubu@lala.de'][/email]>'
$sParse = StringRegExpReplace($sPop3, "(?im)[\s\S]*?Subject:\s*(.*)(?s).*", "$1")
MsgBox(262144,'Debug line ~' & @ScriptLineNumber,'Selection:' & @lf & '$sParse' & @lf & @lf & 'Return:' & @lf & $sParse) ;### Debug MSGBOX

[/autoit]

Gruß,
UEZ

HassanMullah

Servus,

sorry das ich mich erst jetzt wieder melde, hatte ein paar Tage leider keine Zeit.

Bin etwas verzweifelt. Hier mal ein wenig Code

Funktion POP Abruf

[autoit]

_POP3

[/autoit] [autoit][/autoit] [autoit]

Func _POP3()
If Not FileExists(@TempDir & "\PapaControl\received") Then; Prüfung ob Verzeichnis existiert
DirCreate(@TempDir & "\PapaControl\received"); ... wenn nicht, dann Verzeichnis anlegen
EndIf; Ende der Schleife
;Run(@TempDir & "\PapaControl\popclient.exe -configfile mypop3.xml", @TempDir & "\PapaControl\", @SW_HIDE); Die Email wird abgerufen
FileChangeDir(@TempDir & "\PapaControl\received"); Ins Verzeichnis wechseln, wo das erzeugte Textfile liegt
Local $search = FileFindFirstFile("*.*"); Nach Dateinamen im Verzeichnis suchen

[/autoit] [autoit][/autoit] [autoit]

While 1
Local $file = FileFindNextFile($search)
If @error Then ExitLoop; wenn Fehler, dann verlasse die Schleife
ConsoleWrite("gefundener Dateiname: " & $file & @CRLF); gib den gefundenen Dateinamen auf der Console aus - zu Kontrollzwecken
Local $opendfile = FileOpen($file); öffne die Datei, welche gefunden wurde
FileRead($opendfile); lese die Datei, die geöffnet wurde
MsgBox(0, '$opendfile ist: ', $opendfile); gib den Inhalt der gelesenen Datei aus
;Local $aArray1 = _StringBetween($opendfile, 'Subject:', @CRLF)
;_ArrayDisplay($aArray1, 'Standardsuche')
;FileClose($opendfile)
WEnd
; Close the search handle
;FileClose($search)
;FileDelete(@TempDir & "\PapaControl\received\*.txt")
EndFunc ;==>_POP3

[/autoit]

In Zeile 14 wird der gefundene Dateinamen ausgegeben, aber Zeile 15 bis 17 macht nicht das, was ich mir erhoffte. Ich wollte sozusagen das Textfile öffnen und lesen und "komplett" in einer MsgBox ausgeben, damit ich erst mal sicher bin, das richtige "Ziel" zu haben. Im nächsten Step würde ich dann mit dem _StringBetween weitermachen.

Wo biege ich hier falsch ab ?

Gruss Hassan

**AspirinJunkie**

FileRead gibt den gelesen Inhalt als Rückgabewert zurück.
Den ignorierst du aber komplett.
Stattdessen lässt du dir das per FileOpen geöffnete DateiHandle ausgeben welches in $opendfile steht.

Prinzipiell: Wenn du die komplette Datei einlesen willst reicht ein FileRead mit Pfadangabe. FileOpen brauchst du dann nicht.

HassanMullah

Hallo AspirinJunkie,

Danke für die Antwort. Ich habe meinen Fehler gefunden, jedoch habe ich jetzt noch folgendes Problem (anbei nochmals der überarbeitete Code)

Funktion POP Abruf

[autoit]

Func _POP3()
If Not FileExists(@TempDir & "\PapaControl\received") Then; Prüfung ob Verzeichnis existiert
DirCreate(@TempDir & "\PapaControl\received"); ... wenn nicht, dann Verzeichnis anlegen
EndIf; Ende der Schleife
;Run(@TempDir & "\PapaControl\popclient.exe -configfile mypop3.xml", @TempDir & "\PapaControl\", @SW_HIDE); Die Email wird abgerufen
FileChangeDir(@TempDir & "\PapaControl\received"); Ins Verzeichnis wechseln, wo das erzeugte Textfile liegt
Local $search = FileFindFirstFile("*.*"); Nach Dateinamen im Verzeichnis suchen

[/autoit] [autoit][/autoit] [autoit]

While 1
Local $file = FileFindNextFile($search)
If @error Then ExitLoop; wenn Fehler, dann verlasse die Schleife
ConsoleWrite("gefundener Dateiname: " & $file & @CRLF); gib den gefundenen Dateinamen auf der Console aus - zu Kontrollzwecken
$opendfile = FileRead($file); lese die Datei, die geöffnet wurde
;MsgBox(0, '$opendfile ist: ', $opendfile); gib den Inhalt der gelesenen Datei aus
Local $aArray1 = _StringBetween($opendfile, 'Subject: ', @CRLF); Sucht den String zwischen Anfangs und Endwert
_ArrayDisplay($aArray1, 'Standardsuche'); Gibt das Ergbnis zurück
FileClose($opendfile); Schließt die Datei
WEnd
; Close the search handle
;FileClose($search)
;FileDelete(@TempDir & "\PapaControl\received\*.txt")
EndFunc ;==>_POP3

[/autoit]

In Zeile 16 wird der Inhalt des Array ja angezeigt, nach dem Schema

Code

[0]|test123

Ich will das Ganze in einer Variablen haben, in der aber nur

Code

test123

steht.

Geht das mit einfachen Hausmitteln, oder muss hier der String nochmals bearbeitet werden ?

P.S. Habe es selbst gefunden

[autoit]

Local $myemailsubjekt = _ArrayToString($aArray1)
MsgBox(0, "Betreff ist: ", $myemailsubjekt)

[/autoit]

Gruss Hassan

**AspirinJunkie**

Der String welcher im Array-Element mit dem Index [0] (das erste Element) steht wird per $aArray1[0] angesprochen.
Du kannst direkt mit $aArray1[0] weiterarbeiten oder in eine neue Variable speichern - wie du willst.