[BUGREPORT] _include_Foldingreferences

31/10/2008 - 12:52 von Hermann Hippen | Report spam
Moin Moin :-),

Wie an einem Posting von Karl-Heinz in de.test
<311008.005230.dt.920.41.dlg@kh-rademacher.de> zu sehen ist, ist ein Bug im
Script http://kh-rademacher.de/4d/Include_...ces-1.html .
Das Script geht davon aus das sich zwischen zwei References Header
Eintràgen nur ein ' ' befindet. Leider ist das nicht immer so, es können
auch mal 2 oder mehrere ' ' dazwischen sein.

Ich hatte mir das Originalscript vor einiger Zeit auch mal angesehen, etwas
veràndert und auch diesen Bug behoben.

Wer das Script benutzen will kann sich das unten per C&P holen. Wer
Dietmars Script benutzt muss warten bis Dietmar den Bug in seinem Script
behoben hat.


8<--[ Code
]->8
// Autor : Korbinian Abenthum
// Datum : 2005/06/12
//
Const
FRH_REFERENCES_HEADER = 'References: ';
FRH_MAXINT = 2147483647;

Function FoldReferencesHeader(var Message: TStringlist; IsEmail: Boolean):Boolean;
Var i, index : Integer;
References : String;
Begin
Result := True;
If IsEmail Then Exit;
With Message do
Begin
For i := 0 to Count-1 do
Begin
If AnsiPos(FRH_REFERENCES_HEADER, Strings[i])=1 Then
Begin
References := Copy(Strings[i], Length(FRH_REFERENCES_HEADER)+1, FRH_MAXINT);
index := AnsiPos(' <', References);
If (index < 1) Then Break;
Strings[i] := Copy(Strings[i], 1, index+Length(FRH_REFERENCES_HEADER)-1);
References := Copy(References, index+1, FRH_MAXINT)+' ';
While (References<>'') do
Begin
index := AnsiPos(' ', References);
i := i + 1;
Insert(i, Chr(9) + Copy(References, 1, index-1));
References := Copy( References, index+1, FRH_MAXINT);
End;
Break;
End;
If Strings[i] ='' Then Break;
End;
End;
End;
8<-->8

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

Lesen sie die antworten

#1 Karl-Heinz Rademacher
31/10/2008 - 15:11 | Warnen spam
Hallo Hermann,

*Hermann Hippen* schrieb:
Wie an einem Posting von Karl-Heinz in de.test
zu sehen ist, ist ein Bug im
Script http://kh-rademacher.de/4d/Include_...ces-1.html .
Das Script geht davon aus das sich zwischen zwei References Header
Eintràgen nur ein ' ' befindet. Leider ist das nicht immer so, es können
auch mal 2 oder mehrere ' ' dazwischen sein.



Danke das Du das Problem hier schon angesprochen hast, sonst hàtte ich
mich auch gemeldet.

Soweit mir aufgefallen war, gab es gestern hier in der Gruppe
meinerseits kein Problem mit dem update von Dietmar. Aufgefallen war es
mir erst in den Testgruppen. Hab es gerade noch einmal auf de.test
probiert, mit dem gleichen Ergebnis. Wobei KorrNews damit kein Problem
hat, wie ich gerade feststellen konnte.

Und was das "alte" Skript betrifft, das zur Zeit /noch/ online ist gab
es auch ein vergleichbares Problem bei verschiedenen OE-Usern deren
References einen größeren Abstand untereinander hatten.

@ Dietmar: Gib bitte ein Zeichen wenn Du Zeit gefunden hast das Update
zu überarbeiten.

Gruß
Karl-Heinz

,--[ Die 40tude Dialog - Seiten! ]
Š http://kh-rademacher.de/4d
Š http://kh-rademacher.de/face
`-

Ähnliche fragen