如何实现快速的括号匹配

[iamalpha]

就是检查括号()[]{}之间的匹配情况
如果文件很大的话，如何快速的找出是否匹配正确？
a.t.t 3x

[edgethinking]

去看数据结构的书吧，上面讲了。

[iamalpha]

我知道用栈可以实现，不知道有没有更快的算法

[liyangyao970]

用栈匹配呀！
不知道更好的算法呀
希望高手讲讲

[TheTop]

文件再大你都要扫描一次吧?

我想栈已经到尽头了,只能作些针对性的优化.

不过,也来听听课...

[iamalpha]

呵呵，还有如何出错处理
就是不匹配的话，如何继续处理下面的数据

[dickeybird888]

(@ # @)

[短歌如风]

用栈。
遇到"([{"入栈，遇到")]}"出栈并检查匹配。
每次读一行，在一行的字符串中查找"(){}[]"中的字符第一次出现的位置。处理后向后继续查找直到串尾。
只要你在字符串中查找的函数比较快，它就不会很慢。

[短歌如风]

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils,
Contnrs;

type
TCharStack = class(TStack)
private
function GetTop: Char;
public
function Pop: Char;
function Push(Item: Char): Char;
property Top: Char read GetTop;
end;

{ TCharStack }

function TCharStack.GetTop: Char;
begin
Result := Char(Peek);
end;

function TCharStack.Pop: Char;
begin
Result := Char(inherited Pop);
end;

function TCharStack.Push(Item: Char): Char;
begin
Result := Char(inherited Push(Pointer(Item)));
end;

function FindFirstOf(const Str: String; const CharSet: TSysCharSet; StartPos: Integer = 1): Integer;
begin
Result := StartPos;
while (Result <= Length(Str)) and not (Str[Result] in CharSet) do
Inc(Result);
if Result > Length(Str) then
Result := 0;
end;

const
NPos = 0;
FindSet = ['(',')','{','}','[',']'];
var
Stack: TCharStack;
Line: String;
Inf: TextFile;
Pos: Integer;
LineNumber: Integer = 0;

procedure Check;
begin
while not Eof(inf) do
begin
ReadLn(inf, Line);
Pos := FindFirstOf(Line, FindSet);
while(Pos <> NPos) do
begin
case Line[Pos] of
'(', '[', '{':
Stack.Push(Line[Pos]);
')':
if (Stack.Count = 0) or (Stack.top <> '(') then
begin
WriteLn('Error:', LineNumber, ':', Copy(Line, 1, Pos));
Halt;
end
else
Stack.Pop();
']':
if (Stack.Count = 0) or (Stack.top <> '[') then
begin
WriteLn('Error:', LineNumber, ':', Copy(Line, 1, Pos));
Halt;
end
else
Stack.Pop();
'}':
if (Stack.Count = 0) or (Stack.top <> '{') then
begin
WriteLn('Error:', LineNumber, ':', Copy(Line, 1, Pos));
Halt;
end
else
Stack.Pop();
end;
Pos := FindFirstOf(Line, FindSet, Pos +1);
end;
Inc(LineNumber);
end;
if Stack.Count > 0 then
WriteLn('Error!')
else
WriteLn('OK!');
ReadLn;
end;
begin
AssignFile(inf, 'e:\utilcls.h');
Reset(Inf);
Stack := TCharStack.Create;
try
Check;
except
end;
Stack.Free;
CloseFile(Inf);
end.

[saien]

楼上正确

[steve0531]

@o@