引言: 如何返回'中山三路15号B座1501房'或如'中山三路西区15号B座1501房'这样的地址字串 的 路名( '中山三路')和 号数(15) 两值，希望前辈们指明一下高效处理的方法或思路。谢谢。

Dot.com 你好:
(1)小弟淺見，我認為應該是沒有很好的方法吧(畢竟地址的格式太多了)
( >
    -- 
        

引言: 如何返回'中山三路15号B座1501房'或如'中山三路西区15号B座1501房'这样的地址字串 的 路名( '中山三路')和 号数(15) 两值，希望前辈们指明一下高效处理的方法或思路。谢谢。

procedure TForm1.Button1Click(Sender: TObject);
var
  Parser:TParser;
  SS:TStringStream;
  P0:integer;
  procedure _CheckWideSymbol;
  begin
    if P0<>-1 then
    begin
      Memo1.Lines.Add(Copy(SS.DataString,P0+1,Parser.SourcePos-P0));
      P0:=-1;
    end;
  end;
begin
  SS:=TStringStream.Create('中山三路15号B座1501房');
  try
    SS.Position:=0;
    Parser:=TParser.Create(SS);
    try
      P0:=-1;
      while Parser.Token<>toEof do
      begin
        case Parser.Token of
          toSymbol:
            begin
              _CheckWideSymbol;
              Memo1.Lines.Add(Parser.TokenString);
            end;
          toInteger:
            begin
              _CheckWideSymbol;
              Memo1.Lines.Add(Parser.TokenString);
            end;
          else if P0=-1 then P0:=Parser.SourcePos;
        end;
        Parser.NextToken;
      end;
      _CheckWideSymbol;
    finally
      Parser.Free;
    end;
  finally
    SS.Free;
  end;
end;

引言: 對不起, 借Dot.com 的版面請問一下mustapha.wang兄 我實作您的程式碼, 轉出來的結果是這樣, 不知那裡有問題, ps:程式碼是完全copy下去run的, 沒有改任何code(除中山三路的字符)

换成big5码确实结果不同，我看看了看这个字串的ASCII码为: 164 164 164 山1 115 山2 ASCAII "s" 164 三1 84 三2 184 244 49 53 184 185 66 174 121 49 53 48 49 169 208 我记得汉字编码的字节最高为是1，即要大于128,难道只针对GB2312码吗? Big5码的莫些汉字的byte小于128(如山字的第2个Byte)，TParser会认为是Symbol开始了,故有此问题。 交流就是好(三通吧), src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10543105&CC=235795"> 久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听