| 247 |
function TAbon.Execute(DestStrings : TStringList) : TStringList; |
function TAbon.Execute(DestStrings : TStringList) : TStringList; |
| 248 |
var |
var |
| 249 |
i : Integer; |
i : Integer; |
| 250 |
|
j : Integer; |
| 251 |
bufline : String; |
bufline : String; |
| 252 |
begin |
begin |
| 253 |
FRetStrings.Clear; |
FRetStrings.Clear; |
| 256 |
for i:=0 to DestStrings.Count - 1 do begin |
for i:=0 to DestStrings.Count - 1 do begin |
| 257 |
if FindNGwords(DestStrings.Strings[i]) = true then begin |
if FindNGwords(DestStrings.Strings[i]) = true then begin |
| 258 |
FRetStrings.Append(FAbonString); |
FRetStrings.Append(FAbonString); |
| 259 |
|
end else if FCutoffNum > 0 then begin |
| 260 |
|
bufline := DestStrings.Strings[i]; |
| 261 |
|
for j := 0 to 2 do begin |
| 262 |
|
Delete(bufline,1,Ansipos('<>',bufline)+1); |
| 263 |
|
end; |
| 264 |
|
Delete(bufline,Ansipos('<>',bufline),Length(bufline)-Ansipos('<>',bufline)+1); |
| 265 |
|
if Cutoff(bufline) = true then begin |
| 266 |
|
FRetStrings.Append(FAbonString); |
| 267 |
|
end else begin |
| 268 |
|
bufline := DestStrings.Strings[i]; |
| 269 |
|
if Deleterlo = true then begin |
| 270 |
|
bufline := AnsiReplaceText( bufline,'&rlo;','' ); |
| 271 |
|
end; |
| 272 |
|
if Replaceul = true then begin |
| 273 |
|
bufline := AnsiReplaceText( bufline,'<ul>','<br>' ); |
| 274 |
|
bufline := AnsiReplaceText( bufline,'</ul>','<br>' ); |
| 275 |
|
end; |
| 276 |
|
FRetStrings.Append(bufline); |
| 277 |
|
end; |
| 278 |
end else begin |
end else begin |
| 279 |
bufline := DestStrings.Strings[i]; |
bufline := DestStrings.Strings[i]; |
| 280 |
if Deleterlo = true then begin |
if Deleterlo = true then begin |
| 281 |
bufline := AnsiReplaceText( bufline,'&rlo;','' ); |
bufline := AnsiReplaceText( bufline,'&rlo;','' ); |
| 282 |
end; |
end; |
| 283 |
if Replaceul = true then begin |
if Replaceul = true then begin |
| 284 |
bufline := AnsiReplaceText( bufline,'<ul>','<br>' ); |
bufline := AnsiReplaceText( bufline,'<ul>','<br>' ); |
| 285 |
bufline := AnsiReplaceText( bufline,'</ul>','<br>' ); |
bufline := AnsiReplaceText( bufline,'</ul>','<br>' ); |
| 286 |
end; |
end; |
| 287 |
FRetStrings.Append(bufline); |
FRetStrings.Append(bufline); |
| 288 |
end; |
end; |
| 290 |
end else begin |
end else begin |
| 291 |
for i:=0 to DestStrings.Count - 1 do begin |
for i:=0 to DestStrings.Count - 1 do begin |
| 292 |
if FindNGwords(DestStrings.Strings[i]) = false then begin |
if FindNGwords(DestStrings.Strings[i]) = false then begin |
| 293 |
FRetStrings.Append(FAbonString); |
bufline := DestStrings.Strings[i]; |
| 294 |
|
for j := 0 to 2 do begin |
| 295 |
|
Delete(bufline,1,Ansipos('<>',bufline)+1); |
| 296 |
|
end; |
| 297 |
|
Delete(bufline,Ansipos('<>',bufline),Length(bufline)-Ansipos('<>',bufline)+1); |
| 298 |
|
if Cutoff(bufline) = false then begin |
| 299 |
|
FRetStrings.Append(FAbonString); |
| 300 |
|
end else begin |
| 301 |
|
bufline := DestStrings.Strings[i]; |
| 302 |
|
if Deleterlo = true then begin |
| 303 |
|
while AnsiPos('&rlo',bufline) <> 0 do begin |
| 304 |
|
Delete(bufline,AnsiPos('&rlo',bufline),4); |
| 305 |
|
end; |
| 306 |
|
end; |
| 307 |
|
if Replaceul = true then begin |
| 308 |
|
bufline := AnsiReplaceText( bufline,'<ul>','<br>' ); |
| 309 |
|
bufline := AnsiReplaceText( bufline,'</ul>','<br>' ); |
| 310 |
|
end; |
| 311 |
|
FRetStrings.Append(bufline); |
| 312 |
|
end; |
| 313 |
end else begin |
end else begin |
| 314 |
bufline := DestStrings.Strings[i]; |
bufline := DestStrings.Strings[i]; |
| 315 |
if Deleterlo = true then begin |
if Deleterlo = true then begin |