Problem mit OnNewsgroupListPaint.ds

13/02/2009 - 16:09 von Steffen Maurer | Report spam
Hallo Zusammen.

Ich habe mir mal die Seite von Karl-Heinz Rademacher angesehen und bin
dabei auf das schöne Script zum kürzen der Gruppennamen gestoßen. Das
automatische kürzen bei mehr als x Punkten funktioniert auch einwadfrei
(sprich Script ist korrekt eingebunden), aber das ersetzen von Teilen
klappt nicht. Ich habe folgende Einstellungen vorgenommen:

RenameGroups = True;
ShortenGroupNames = False;
GroupExclude = 'x';
CompleteShort = False;
DotCount = 2;
WithPoints = True;
HideServer = True;
HideOnlyOne = False;
ServerName = 'x';
...
With NGShortNoDots do
Begin
Add('MICROSOFT=ms.');
Add('PUBLIC=pub-');
End;
With NGShortDots do
Begin
Add('MICROSOFT=ms');
Add('PUBLIC=pub');
End;

Somit sollten doch die Micosoft Gruppen auf MS gekürzt werden, was jedoch
nicht passiert.

Auch mit dem HideServer Teil kann ich machen was ich will und nichts
passiert an meiner Anzeige.


Bin für jeden Tipp dankbar ...


Danke und Gruß, Steffen

Steffen Maurer
Wiesbaden, Germany
E-Mail: StMaurer@gmx.net
 

Lesen sie die antworten

#1 Hermann Hippen
13/02/2009 - 16:37 | Warnen spam
Hallo Steffen,

Steffen Maurer schrieb in d.c.s.4-d:

[Scriptproblem]

Keine Antwort auf deine Frage, nur ein Hinweis an Karl-Heinz.

@Karl-Heinz:

Das abgebildete Script weist etliche Fehler auf:

Zeile 300:
| if SName <> '' then result := Temp + ' ' + SName else result := Temp
^^^^^^^

Zeile 260:
| (copy(NGName, KlammerPos + 1, Length(ServerName)) <> ServerName)
^^^^^^^

Zeile 203:
| If Pos(tmp, NGName) > 0 Then
^^^

Zeile 192:
| IF NGConstantDots.IndexOfName(NGName) <> -1 THEN
^^^^^^^

Zeile 188:
| IF NGConstantNoDots.IndexOfName(NGName) <> -1 Then
^^^^^^^

Zeile 109:
| Add(albasani.usenet-friends=alba.u-f');
^ hier fehlt ein '

Muss nicht vollstàndig sein, vielleicht hab ich was übersehen. Am besten
komplett durch das Original ersetzen.

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

Ähnliche fragen