[UPDATE] @Karl-Heinz - RemoveAnyHeader_include

03/12/2008 - 13:25 von Hermann Hippen | Report spam
Moin Moin :-),

Auch das Script auf:
http://kh-rademacher.de/4d/RemoveAn...ude-1.html

hab ich im Rahmen der Intgrationsarbeit mal von Überflüssigem befreit und
die Routine etwas beschleunigt oder besser gesagt: Ausser den
Variablennamen und dem INI Teil, habe ich alles weggeschmissen und neu
geschrieben. ;-)

Auch hier: Falls du mal Lust und Zeit hast/findest es upzudaten:

8<-[ RemoveAnyHeader_include ]->8
Procedure Init_Remove_Headers ( Var RemoveHeaders : String;
Var RemoveFromEmails : Boolean;
Var RemoveFromNews : Boolean);
Begin
// Configuration settings
// -
// set the header(s) you want to remove here, e.g. 'User-Agent: ,X-Scoring: '
RemoveHeaders := 'Organization:,User-Agent:,X-Face:';
// remove header(s) from emails and/or postings
// set 'true' or 'false'
RemoveFromEmails := false;
RemoveFromNews := true;
// -
// End of configuration settings
End;
// No user maintainable parts below this line -- /
Function SingleTerm(Var GExtmp: String):String;
Var
tmpa : String;
cp : Integer;
Begin
tmpa := '';
cp := Pos(',', GExtmp);
If cp > 0 Then
Begin
tmpa := Copy(GExtmp, 1, cp - 1);
GExtmp := Copy(GExtmp, cp + 1, Length(GExtmp));
End Else If Length(GExtmp) > 0 Then
Begin
tmpa := GExtmp;
GExtmp := '';
End;
Result := tmpa;
End;
Procedure Remove_Headers( Message : TStringList; IsEmail : Boolean);
Var i : Integer;
RemoveHeaders,
DelHeader : String;
RemoveFromEmails,
RemoveFromNews, K : Boolean;
Begin
Init_Remove_Headers ( RemoveHeaders, RemoveFromEmails, RemoveFromNews );
If ((IsEmail=true) and (RemoveFromEmails=true)) Or
((IsEmail=false) and (RemoveFromNews=true)) Then
With Message do Repeat
i := 0; K := False; DelHeader := SingleTerm(RemoveHeaders);
If DelHeader > '' Then Repeat
I := I + 1;
K := (Pos(DelHeader, Strings[i]) = 1);
If K Then Delete(I);
Until (Strings[i] = '') Or K;
Until (DelHeader = '' );

End;
8<-->8

Cu,
Hermann Hippen.
ž' š°º€ø?žžžžž?ø€º°š 'ž
ø€º° '<http://4ds.siteboard.eu>' °º€ø
'ž '40tude-Dialog Scriptwerkstatt' ž'
ø€º°' ž ž ø€º°ššššššš°º€øšž ž '°º€ø
 

Lesen sie die antworten

#1 Hermann Hippen
03/12/2008 - 13:29 | Warnen spam
Hermann »Ingrid« Hippen schrieb in d.c.s.4-d:

Auch das Script auf:
http://kh-rademacher.de/4d/RemoveAn...ude-1.html

hab ich im Rahmen der Intgrationsarbeit mal von Überflüssigem befreit und
die Routine etwas beschleunigt oder besser gesagt: Ausser den
Variablennamen und dem INI Teil, habe ich alles weggeschmissen und neu
geschrieben. ;-)



Es funktioniert sogar, wie man an meinen fehlenden Headern sehen konnte ;-)

Cu,
Hermann Hippen.
ž' š°º€ø?žžžžž?ø€º°š 'ž
ø€º° '<http://4ds.siteboard.eu>' °º€ø
'ž '40tude-Dialog Scriptwerkstatt' ž'
ø€º°' ž ž ø€º°ššššššš°º€øšž ž '°º€ø

Ähnliche fragen