当字符串值中有斜杠符号时，如何使用OmniXML搜索XML

Question

我用的是Delphi7，OmniXML。

在我的xml中，我有一个包含'/‘的字段

XML：

...
<R2>002-000004/13</R2>
...

当我在XML中搜索包含符号'/‘的值时，我的OmniXml返回错误。

iNodeKupac := FXMLDocument.SelectSingleNode(
          '//[R2=''' + '002-000004/13' + ''']'
          );

如何在这片土地上预编searh？

Answer 1

改变了PosEX在OmniXMLPath单元，现在它的工作。

function TXMLXPathEvaluator.PosEx(ch: WideChar; const s: XmlString; offset: integer = 1): integer;
var
  quoteCount, startIndex, stopIndex: integer;
  startText, stopText : String;
begin
  quoteCount := 0;
  startText := ''; startIndex := 0;
  stopText := ''; stopIndex := 0;
  for Result := offset to Length(s) do begin
    if (s[Result] = '=') and (startText = '') then begin
      startText := '=';
      startIndex := Result;
      end
    else if (s[Result] = '''') and (startText = '=') and ((startIndex+1) = Result) then begin
      startText := '=''';
      startIndex := -1;
      end
    else begin
      startText := '';
      startIndex := 0;
    end;

    if (s[Result] = '''') and (stopText = '') then begin
      stopText := '''';
      stopIndex := Result;
      end
    else if (s[Result] = ']') and (stopText = '''') and ((stopIndex+1) = Result) then begin
      stopText := ''']';
      stopIndex := -1;
      end
    else begin
      stopText := '';
      stopIndex := 0;
    end;

    if startIndex = -1 then Inc(quoteCount);
    if stopIndex = -1 then Dec(quoteCount);

    if (s[Result] = ch) and (quoteCount = 0) then
      Exit;
  end;
  Result := 0;
end; { TXMLXPathEvaluator.PosEx }