[OBSendM] Gruss entfernen

11/12/2011 - 22:37 von Reinhard Irmer | Report spam
Hallo group,


bei meiner scriptaufràumerei bin ich auf ein script gestoßen, das zur
Aufgabe haben soll, bei einem fup Quotezeilen aller Ebenen im Editor zu
löschen, die mit einer Grußformel (siehe Grußwortliste im include
)beginnen. Wo ich das Teil herhabe, weiß ich nicht mehr und auch eine
nàhere Beschreibung liegt nicht vor, weder auf Didis, noch auf Raadys
website.

Funktionieren tuts offenbar nicht, aber geschadet hat es bislang auch
nicht ;-)

Vielleicht kann das mal sich jemand ansehen

#######################################
Eintràge im OBSend:
...
{$I Gruss_entfernen_include}
.
.
If (Not IsEmail) Then EntferneGruss( Message );
.
#######################################

und hier das include:

#######################################
Procedure EntferneGrussINI(GrusswortListe:TStringList);
Begin
GrusswortListe.CommaText:='GrüßDich,hi,Hi,Hallo,Hello,Servus,Moin';
End;
Function CountSpace(s:String):Integer;
Var i : Integer;
Begin
Result := 0;
s := Trim(S);
For I := 1 to Length(s) Do
If S[i] = ' ' Then Result := Result + 1;
End;
Procedure EntferneGruss(Message:TStringList);
Var GWL : TStringList;
i,j : Integer;
Begin
Try
GWL := TStringList.Create;
EntferneGrussINI(GWL);
i := 0; Repeat i := i + 1; Until Message[i] = '';
Repeat
If Message[i] > '' Then If Pos(Message[i][1],'|:>') > 0 Then
If CountSpace(Message[i]) < 4 Then
Begin
If Length(Trim(Message[i])) < 50 Then
For J := 0 to GWL.Count - 1 Do
If Pos(Uppercase(GWL[j])+' ',Uppercase(Message[i])) > 0 Then
Begin
Message.Delete(i);
i := i - 1;
End;
End;
i := i + 1 ;
Until (i >= Message.Count-1) Or (Message[i]='-- ');
Except
GWL.Free;
End;
End;


Viele Gruesse
Rεìñhατδ

Nichtraucher koennen auch jederzeit
zum Nichtrauchen vor die Tuer gehen.
(Markus Dobel in ng: oecher.talk)
Downloads: http://tinyurl.com/yjcdmlx
 

Lesen sie die antworten

#1 Díetmar Vollmeíer
12/12/2011 - 00:22 | Warnen spam
Eine schlaflose gute Nacht, Reinhard!

*Reinhard Irmer* schrieb am 11.12.2011 um 22:37 Uhr...
bei meiner scriptaufràumerei bin ich auf ein script gestoßen, das zur
Aufgabe haben soll, bei einem fup Quotezeilen aller Ebenen im Editor zu
löschen, die mit einer Grußformel (siehe Grußwortliste im include
)beginnen. Wo ich das Teil herhabe, weiß ich nicht mehr [...]



Schaut nach Hermann aus ;)

Funktionieren tuts offenbar nicht, aber geschadet hat es bislang auch
nicht ;-)

Vielleicht kann das mal sich jemand ansehen

[...]



Wird gemacht.
Servus | 40tude Dialog FAQ -> http://www.wolfgang-bauer.at/4td_faq/
Didi | und Script-Archiv -> http://kh-rademacher.de/4d/
|=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
| http://4d.vollmeier.at/

Ähnliche fragen