Skript etwas umbauen/erweitern

04/05/2013 - 19:27 von Vínzenz Ahréndt | Report spam
Hallo,

bei mir làuft u. a. das nette Skript "QuoteCorrection".

Das sieht so aus:

///////////////////////////////////////////////////////////////////////////
begin
If Message.Count > 0 then begin
rf := [rfReplaceAll];
MaxInt := 2147483647;
Control := False;
Init_QuoteCorrection ( ChangeInEmails, ChangeInNews );
if ((IsEmail=true) and (ChangeInEmails=true)) or
((IsEmail=false) and (ChangeInNews=true)) then begin

[...]

end; // if
end; // procedure
///////////////////////////////////////////////////////////////////////////


Ich würde das gern dahingehend umbauen, daß es weiterhin so làuft wie
bisher, allerdings genau dann nichts tut, wenn "de.alt.rec.ascii-art" im
Newsgroups-Header steht. Wenn möglich, sollten auch XPosts beachtet werden,
wenn also "de.alt.rec.ascii-art" nur ein Teil-String dieses Headers ist.

Sinngemàß also etwa so:

///////////////////////////////////////////////////////////////////////////
begin
If Message.Count > 0 then begin
rf := [rfReplaceAll];
MaxInt := 2147483647;
Control := False;
Init_QuoteCorrection ( ChangeInEmails, ChangeInNews );
if ((IsEmail=true) and (ChangeInEmails=true)) or
((IsEmail=false) and (ChangeInNews=true) and (Newsgroups-Header-String enthàlt "de.alt.rec.ascii-art" = false)) then begin
// ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

[...]

end; // if
end; // procedure
///////////////////////////////////////////////////////////////////////////


Wie müßte man das lösen, a) den Newsgroups-Header nach diesem Substring zu
durchsuchen und b) die if-Abfrage syntaktisch passend umzubauen?

Was sagen die Skript-Experten dazu?

Vielen Dank!

/
°
 

Lesen sie die antworten

#1 Díetmar Vollmeíer
04/05/2013 - 20:25 | Warnen spam
*Vínzenz Ahréndt* schrieb am 04.05.2013 um 19:27 Uhr...
Was sagen die Skript-Experten dazu?



Der Einbau sollte kein Problem darstellen, auch wenn dieser etwas
Programmieraufwand bedeutet. Welches Script verwendest du genau - ist es
dieses da? -> http://kh-rademacher.de/4d/Quote_Co...clude.html

Verwendest du zufàllig auch das BasisModul von Hermann Hippen?
-> http://kh-rademacher.de/4d/generation2.html#zwei
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