Forums Neueste Beiträge
 

Change attribution lines - unexpected end of file

03/08/2015 - 08:07 von Ralf Brinkmann | Report spam
Hallo zusammen!

Mit dem Upgrade von Windows 7 auf Windows 10 musste ich das
Programmverzeichnis von C:\Program files (x86)\ in C:\ verschieben,
sonst lief es nicht mehr wegen fehlender Rechte.

Nun làuft bei mir das Script ChangeAttributionLines_include.ds nicht
mehr richtig, bei Antworten auf Postings bleibt oben immer die
X-T-C-Zeile stehen und wird nicht ausgewertet, obwohl ich den Pfad in
dem Script angepasst habe. Ich kann das Script auch nicht neu
compilieren. Ich erhalte immer die Fehlermeldung

Kompilieren fehlgeschlagen
[Error] [165:18]: Unexpected end of file

165:18 wàre das letzte Zeichen in der letzten Zeile.

Hier mal das Script:

procedure Init_Change_Attribution_Lines ( var ChangeInEmails :
boolean;
var ChangeInNews :
boolean;
var ChInEmails :
boolean;
var ChInNews :
boolean;
var MyDialogFolder : string;
var MyIniFile : string;
var FullToFirst :
boolean;
var ConstStartName : string;
var ConstEndName : string;
var bold :
boolean;
var italic : boolean
);
begin

// // Autoren: Dietmar Vollmeier & Thomas Barghahn
// Date : 2008/04/05


// -
// Configuration settings
// -

// Change name(s) in emails and/or postings
// set 'true' or 'false'
ChangeInEmails := true;
ChangeInNews := true;

// Change this to "false" if you don't want to use the
// "Attribution_Line.ini" in mails
ChInEmails :=true;

// Change this to "true" if you want to use the
// "Attribution_Line.ini" in newsgroups
ChInNews := true;

// set the ïname(s) you want to change in File "MyIniFile"
MyDialogFolder := 'C:\40tude Dialog\';
MyIniFile := 'Attribution_Lines.ini';

// change FullName to FirstName?
// set 'true' or 'false'
// e.g. Dietmar Vollmeier => Dietmar
FullToFirst := true;

// Defines start-tag for name recognition.
// Everything after that (and between end-tag) is recogniced as
name.
ConstStartName := '/*';

// Defines end-tag of name recognition.
// Please use chars, you normaly not type inside your text.
ConstEndName := '*/';

// name in bold and/or italic?
// set 'true' or 'false'
bold := false; // fett
italic := false; // kursiv

// -
// End of configuration settings
// -

end;

// //
// - No user maintainable parts below this line -- //
// //


procedure Change_Attribution_Lines ( Message : TStringlist;
IsEmail : boolean
);

var i, k, MaxInt : integer;
DelimiterPos : integer;
rf : TReplaceFlags;
MyDialogFolder : String;
MyIniFile : String;
AttributionList : TStringList;
ChangeNameList : TStringlist;
ReplaceNameList : TStringList;
ChangeInEmails : boolean;
ChangeInNews : boolean;
ChInEmails : boolean;
ChInNews : boolean;
FullToFirst : boolean;
ConstStartName : string;
ConstEndName : string;
FullName : string;
FirstName : string;
Found_in_ini : boolean;
bold : boolean;
italic : boolean;
BoldString : String;
ItalicString : String;

begin
rf := [rfReplaceAll];
MaxInt := 2147483647;
i := 0;
FullName := '';
FirstName := '';
Found_in_ini := false;
BoldString := '';
ItalicString := '';
Init_Change_Attribution_Lines (
ChangeInEmails, ChangeInNews, ChInEmails, ChInNews,
MyDialogFolder,
MyIniFile, FullToFirst, ConstStartName,
ConstEndName, bold, italic);
If bold = true then BoldString := '*';
If italic = true then ItalicString := '/';
if ((IsEmail=true) and (ChangeInEmails=true)) or
((IsEmail=false) and (ChangeInNews=true)) then begin
try
AttributionList := TStringlist.Create;
AttributionList.LoadFromFile(MyDialogFolder + MyIniFile);
ReplaceNameList := TStringlist.Create;
ChangeNameList := TStringlist.Create;
AttributionList.Add (#10#13);
for k := 0 to AttributionList.Count - 1 do begin
If copy (AttributionList[k], 1, 1) <> ';' then begin
DelimiterPos := pos (',', AttributionList[k]);
ChangeNameList.Add (trim (copy ( AttributionList[k], 1,
DelimiterPos - 1 )));
ReplaceNameList.Add (trim (copy ( AttributionList[k],
DelimiterPos + 1, MaxInt )));
end; // if
end; // for
// searching for 1st Bodyline (Attribution_Line)
while (Message.Strings[i]<>'') do begin
i := i + 1;
end; // while
// searching for 'X-Comment-To-Header"
// see "Insert_XCT_Header_include.ds"
if copy (Message.Strings[i], 1, 6) = 'X-C-T:' then
i := i + 2
else
i := i + 1;
If FullToFirst = True then begin
FullName := copy ( Message.Strings[i], pos (ConstStartName,
Message.Strings[i]) + length(ConstStartName),
pos (ConstEndName, Message.Strings[i]) - (pos
(ConstStartName, Message.Strings[i]) + length(ConstStartName)));
If pos (' ',FullName) > 0 then
FirstName := copy (FullName, 1, pos (' ', FullName) - 1)
else
FirstName := FullName;
end;
k := 0;
If (( IsEmail=true ) and ( ChInEmails=true )) or
(( IsEmail=false ) and ( ChInNews=true )) then begin
while k <= ( ChangeNameList.Count - 1 ) do begin
if (pos( ChangeNameList[k], Message.Strings[i] ) <> 0)
then begin
Message.Strings[i] :StringReplace(Message.Strings[i],ChangeNameList[k],ReplaceNameList[k],rf);
Found_in_ini := true;
end;
k := k + 1;
end; // while
end; // if
If (Found_in_ini = false) and (FullToFirst = True) then
Message.Strings[i] :StringReplace(Message.Strings[i],FullName,FirstName,rf);
finally
AttributionList.Free;
ChangeNameList.Free;
ReplaceNameList.Free;
end; // try - finally
end; // if
Message.Strings[i] :StringReplace(Message.Strings[i],ConstStartName,ItalicString +
BoldString,rf);
Message.Strings[i] :StringReplace(Message.Strings[i],ConstEndName,BoldString +
ItalicString,rf);
end; // procedure

Hat jemand eine Ahnung, wo ich suchen soll?

Ansonsten habe ich im Custom-Verzeichnis folgende Scripte:

ChangeAttributionLines_Include.ds
Insert_XCT_Header_include.ds
KennyTranslator.cds
KennyTranslator.ds
NextUnread.cds
NextUnread.ds
OnGroupEntered.cds
OnGroupEntered.ds
SkipToNextThread.cds
SkipToNextThread.ds
XPost_and_FUp2_Information_include.ds

Gruß, Ralf
Windows 10x64 Pro
Opera 32.x
The Bat! Pro 7.0.x
 

Lesen sie die antworten

#1 Bernd Rose
03/08/2015 - 18:45 | Warnen spam
Am Mo, 3. Aug 2015 08:07:04 +0200, schrieb Ralf Brinkmann:

Nun làuft bei mir das Script ChangeAttributionLines_include.ds nicht
mehr richtig, bei Antworten auf Postings bleibt oben immer die
X-T-C-Zeile stehen und wird nicht ausgewertet, obwohl ich den Pfad in
dem Script angepasst habe. Ich kann das Script auch nicht neu
compilieren. Ich erhalte immer die Fehlermeldung

Kompilieren fehlgeschlagen
[Error] [165:18]: Unexpected end of file



Include-Scripte werden nicht separat compiliert. Sie werden aus einem
oder mehreren Hauptscript(en) eingebunden. *Diese* sind zu compilieren.
In Deinem Fall wahrscheinlich OnBeforeSendingMessage?

Schönen Gruß
Bernd

Ähnliche fragen