0 
procedure TMainForm.btn1Click(Sender: TObject);
var
  lHTTP: TIdHTTP;
begin
  lHTTP := TIdHTTP.Create(nil);
  try
    mmo1.Text := lHTTP.Get('http://guessit.io/guess?filename=House.of.Cards.2013.S02E03.1080p.NF.WEBRip.DD5.1.x264-NTb.mkv');
  finally
    lHTTP.Free;
  end;
end;

結果は次のようになります。

{
   "series":"House of Cards",
   "episodeNumber":3,
   "releaseGroup":"NTb",
   "format":"WEBRip",
   "season":2,
   "audioCodec":"DolbyDigital",
   "year":2013,
   "mimetype":"video/x-matroska",
   "container":"mkv",
   "videoCodec":"h264",
   "other":[
      "Netflix"
   ],
   "audioChannels":"5.1",
   "screenSize":"1080p",
   "type":"episode"
}

たとえば、シリーズ（ 「シリーズ」：「ハウスオブカード」）の値を読み取る方法。

私は使用しようとします

Function ExtractBetweenTags(Const Line, TagI, TagF: string): string;
var
  i, f : integer;
begin
  i := Pos(TagI, Line);
  f := Pos(TagF, Copy(Line, i+length(TagI), MAXINT));
  if (i > 0) and (f > 0) then
    Result:= Copy(Line, i+length(TagI), f-1);
end;

mmo1.Text := StringReplace(ExtractBetweenTags(mmo1.Text,'"series": "','"'), ' ', '-',[rfReplaceAll, rfIgnoreCase]);

しかし、すべての値を自動的に解析する必要があります

4

3 に答える 3

1

次のようなクラスでオブジェクトを解析できます。

uses System.JSON, Rest.JSON;

type
  TGuess = class(TObject)
  public
    fseries: string;
    fepisodeNumber: integer;
    freleaseGroup: string;
    fformat: string;
    fseason: integer;
    faudioCodec: string;
    fyear: integer;
    fmimetype: string;
    fcontainer: string;
    fvideoCodec: string;
    fother: TArray<string>;
    faudioChannels: string;
    fscreenSize: string;
    ftype: string;
  end;

var
  g: TGuess;
  s: string; // your input string

  // g object will be created by following call and will contain parsed values
  g := TJson.JsonToObject<TGuess>(s); 

  // do something with g

  // release g after it is no longer needed
  g.Free;
于 2014-11-21T14:20:21.930 に答える
0

すべての回答に感謝しますが、ここで私は最終的にそれを理解します

procedure TMainForm.btn1Click(Sender: TObject);
var
  S : String;
  NS , S1,S2,series,season,episodeNumber : String;
  L , I , LN : integer;
  MM :TStringList;
begin
  try
    MM := TStringList.Create;
    NS := '';
    S := '{"series": "House of Cards", "episodeNumber": 3, "releaseGroup": "NTb", "format":'+
    '"WEBRip", "season": 2, "audioCodec": "DolbyDigital", "year": 2013, "mimetype": "video/x-matroska", "container": "mkv",'+
    '"videoCodec": "h264", "other": ["Netflix"], "audioChannels": "5.1", "screenSize": "1080p", "type": "episode"}';
     {if AnsiPos('title',s) <> 0 then
     IsMovie := True
     else
     IsMovie := False;}

    L := Length(S);

    for I := 1 to L do
        Begin
            If (Ord(S[I]) <> 34)
            And (Ord(S[I]) <> 123)
            And (Ord(S[I]) <> 125)
            Then NS := NS + Copy(S,I,1);
        End;
        S := NS;
        NS := '';
        L := Length(S);

    for I := 1 to L do
        Begin
            If (Ord(S[I]) = 44)
            Or (Ord(S[I]) = 58)
            Then Begin
              NS := NS + #13#10;
              MM.Add(Trim(NS));
              NS := '';
            End
            Else NS := NS + Copy(S,I,1);
        End;
        MM.Add(Trim(NS));
//      --------------------------------------------------------------

        LN := MM.Count-1;
        for I := 0 to LN Do
        Begin
            If MM[I] = Trim('series')
            Then series := Trim(MM[I + 1]);
            If MM[I] = Trim('season')
            Then season := Trim(MM[I + 1]);
            If MM[I] = Trim('episodeNumber')
            Then episodeNumber := Trim(MM[I + 1]);
        End;

        ShowMessage(series+'.S'+season+'.E'+episodeNumber);

  finally
    MM.Free
  end;
end;
于 2014-11-21T16:44:02.960 に答える