Написал парсер Delphi Syntax Highlight для этого форума))

← →
Glex © (2006-02-12 12:54) [0]

glexis.chat.ru/Data/Programming/Projects/TextParsers/DelphiSyntaxHighlight/bin/DelphiSyntaxHighlight_bin.rar

Пользуйтесь наздоровье))
Пример:

program DelphiSyntaxHighlight;
{$APPTYPE CONSOLE}
{$DEFINE DEBUG}
uses
 SysUtils, Classes, StrUtils;
 type TPoint = record
 X: integer;
 Y: integer;
 end;
 var EncodeType: byte;
 FilePath, FileNameOut: string;
 space, p, U, blue, I, B, GREEN: string;
 cP, cU, cblue, cI, cB, cGreen: string;
 KeyWords: array of string;
 LowerCaseABC: set of "a".."z";
 UpperCaseABC: set of "A".."Z";
 Tab, TabAdd: string;
 n: integer;
 TabWidth: integer;
 Struct: boolean = false;
 txt: TStrings;
 (*
0 - HTML
1 - IPB(Invision Power Board)
*)
 procedure WriteSyntax;
 begin
 Writeln("____________________________________________________________ _______________");
 Writeln("Syntax: ");
 Writeln(" -input file");
 Writeln(" -output file");
 Writeln(" -""HTML"" or ""IPB""");
 Writeln(" Optional keys:");
 Writeln(" -struct");
 Writeln;
 Writeln(" Where IPB is Invision Power Board type forums with ""["" ""]"" tags");
 Writeln(" and HTML is html format (with <> tags)");
 Writeln(" struct key structures the file according to begin..end structure");
 Writeln("____________________________________________________________ _______________");
 end;
 function ParametersCheck: boolean;
 var s: string;
 j: integer;
 begin
 result:= true;
 Filepath:= (RightStr(ParamStr(1), length(ParamStr(1))-1));
 if not fileexists(FilePath) then begin
 Writeln("____________________________________________________________ _______________");
 Writeln("Error!");
 Writeln("Error Description: File """+ParamStr(1)+""" doesn""t exist or the specified filepath is invalid.");
 Writeln("____________________________________________________________ _______________");
 result:= false;
 end;
 FileNameOut:= (RightStr(ParamStr(2), length(ParamStr(2))-1));
 s:= ParamStr(3);
 s:= RightStr(s, length(s)-1);
 if lowercase(s)="html" then EncodeType:=0
 else if lowercase(s)="ipb" then EncodeType:=1
 else begin
 Writeln("____________________________________________________________ _______________");
 Writeln("Error!");
 Writeln("Error Description: """+ParamStr(3)+""" is not a valid parsing mode.");
 Writeln("____________________________________________________________ _______________");
 result:= false;
 end;
 if ParamCount=4 then begin
 Writeln("____________________________________________________________ _______________");
 Writeln("Error!");
 Writeln("Error Description: 3 or 5 parameters expected. 4 parameters found.");
 Writeln("____________________________________________________________ _______________");
 result:= false;
 end;
 if ParamCount=5 then if lowercase(ParamStr(4))<>"-struct" then begin

← →
Glex © (2006-02-12 12:55) [1]

Блиин, почему не работают и ?!!!!

← →
Anatoly Podgoretsky © (2006-02-12 13:04) [2]

А говоришь написал.

← →
VirEx © (2006-02-12 13:13) [3]

← →
Marser © (2006-02-12 13:39) [4]

> [1] Glex © (12.02.06 12:55)
> Блиин, почему не работают и ?!!!!

В форуме и не будет работать - большинство тэгов блокируется.

← →
Glex © (2006-02-12 14:10) [5]

АААА!!!
Администраторы, разблокируйте плииииз теги и , ну или хотя бы !!!!

:)))))

← →
McSimm © (2006-02-12 14:18) [6]

подсветка синтаксиса на форуме будет.

← →
begin...end © (2006-02-12 14:19) [7]

> McSimm © (12.02.06 14:18) [6]

Кстати, можно сделать, чтобы длинные ссылки не разрывались?

← →
McSimm © (2006-02-12 14:22) [8]

будут тэги для Делфи кода и для SQL, сейчас включить не могу, т.к. движок форума меняться будет целиком.

пример подсветки можно увидеть в последней статье
http://www.delphimaster.ru/articles/dbtoword/index.html

Кстати, не придумал пока как победить длинные строки - разбивать программно в коде не очень правильно...

← →
McSimm © (2006-02-12 14:23) [9]

>Кстати, можно сделать, чтобы длинные ссылки не разрывались?
Да, это тоже будет сделано

← →
Glex © (2006-02-12 15:09) [10]

McSimm

Длинные строки где?
Может смогу как-нибудь помочь..

← →
sniknik © (2006-02-12 15:11) [11]

> т.к. движок форума меняться будет целиком.
когда? приблизительные сроки?

> пример подсветки можно увидеть в последней статье
в примере некоторые длинные строки вылазят за пределы выделенной рамки, если смотреть в мозиле (в IE нормально, более менее, "бокс" расширяется до длинны строки, но лучше бы был перенос выходящих за размер экрана...)

в общем если предполагается нормальная поддержка альтернативных браузеров то код надо еще "доводить", если же будет позиционироваться исключительно под IE то и так сойдет. ;)

← →
ferr © (2006-02-12 15:35) [12]

> http://www.delphimaster.ru/articles/dbtoword/index.html

private и public не подсвечены :)

← →
Anatoly Podgoretsky © (2006-02-12 15:42) [13]

sniknik © (12.02.06 15:11) [11]
Если к этому будет относиться URL то это будет очень плохо, что мы сейчас и наблюдаем

← →
McSimm © (2006-02-12 15:42) [14]

> sniknik © (12.02.06 15:11)
Будем доводить.
О сроках я говорить пока только учусь, только-только начинает получаться -- но это на основной работе :)

Написал письмо по анкетному, посмотри пожалуйста

← →
Glex © (2006-02-12 15:44) [15]

А, да. Может пригодиться список ключевых слов:

and
array
as
asm
begin
case
class
const
constructor
destructor
dispinterface
div
do
downto
else
end
except
exports
file
finalization
finally
for
function
goto
if
implementation
in
inherited
initialization
inline
interface
is
label
library
mod
nil
not
object
of
or
out
packed
procedure
program
property
raise
record
repeat
resourcestring
set
shl
shr
string
then
threadvar
to
try
type
unit
until
uses
var
while
with
xor
private
protected
public
published
automated
at
on

> [15] Glex © (12.02.06 15:44)
> А, да. Может пригодиться список ключевых слов:

Ещё латинский алфавит напомни, а то может Максим забыл :-))

Anatoly Podgoretsky © (12.02.06 15:42) [13]
не. там пример секций кода, то что счас просто синим выделяется (и моноширинным шрифтом). если в таком будут разрывы URL не беда, это выделение не под ссылки заточено.
"беда" будет при "тупом" копировании кода с сайта в проект, разрывы (если их сделать програмно самим строкам) будут естественно глючить. (в общемто этоже мне Максим в письме указал) но я думал о другом, разрывать форматированием (если возможно) т.е. также как например делает "Блокнот", или (не уверен) если текст находится в ячейке таблици то его тоже броузер нормально отобразит физичеки строк не разрывая.

с длинными ссылками решается просто - урезается отображаемый текст ссылки и сохраняется (до разумных пределов, конечно) длина href

С длинными ссылками можно поступить еще проще - если не указано описание URL - заменяется на Ссылка т.е. в href пишется настоящий линк а в описании слово Ссылка, и никакого гемороя, кому надо тот задаст специально имя линка

Про ссылки - думаю нужно очень длинные заменять на слово "ссылка", длинным - выделять отдельную строку, а короткие оставлять как есть.

Угу я о том же... Так проще всего и не надо доп. вычислений...

Написал парсер Delphi Syntax Highlight для этого форума)) Найти похожие ветки