Ver Mensaje Individual
  #2  
Antiguo 09-04-2020
MaxiDucoli MaxiDucoli is offline
Miembro
 
Registrado: feb 2006
Posts: 134
Reputación: 19
MaxiDucoli Va por buen camino
Listo!
La solución era más fácil que el problema.
Cargué la respuesta en Notepad++ y ahí me dí cuenta que cada línea de texto estaba acompañada con su traducción y había un texto al final que las otras líneas no tenían.
Con eso se me ocurrió todo.


Esto fue lo que usé.
Se los dejo por si alguna vez lo necesitan.

Función que devuelve un texto entre que está entre dos opciones de texto y es la que uso para separar las lines del texto traducido.

Código Delphi [-]
function TForm1.ExtractTextBetween(const Input, Delim1, Delim2: string): string;
var
  aPos, bPos: Integer;
begin
  Result := '';
  aPos := Pos(Delim1, Input);
  if aPos > 0 then
  begin
    bPos := PosEx(Delim2, Input, aPos + Length(Delim1));
    if bPos > 0 then
    begin
      Result := Copy(Input, aPos + Length(Delim1),
        bPos - (aPos + Length(Delim1)));
    end;
  end;
end;


Edit1.Text contiene la URL que uso para traducir el texto.

Código:
https://translate.google.com.ar/translate_a/single?client=webapp&sl=auto&tl=es&dt=at&dt=bd&dt=ex&dt=ld&dt=md&dt=qca&dt=rw&dt=rm&dt=ss&dt=t&dt=gt&pc=1&otf=1&ssel=0&tsel=3&kc=1&tk=893352.727247&q=Guru%20Guru%20sur%20DS%20est%20un%20jeu%20plut%C3%B4t%20orginal%20puisqu%27il%20propose%20une%20sorte%20de%20mini-golf%20o%C3%B9%20la%20balle%20se%20voit%20remplac%C3%A9e%20par%20une%20petite%20cr%C3%A9ature.%20Il%20s%27agit%20alors%20non%20pas%20seulement%20de%20viser%20juste%20mais%20aussi%20d%27utiliser%20les%20capacit%C3%A9s%20magiques%20de%20votre%20bestiole%20pour%20l%27orienter%20vers%20le%20trou.


Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
s : TStringList;
i : integer;
begin
s := TStringList.Create;
s.Text :=  idhttp1.Get(Edit1.Text);
for I := 0 to s.Count - 1 do
  begin
    if AnsiContainsText(s[i],'.md') then
    begin
      Memo2.Lines.Add(ExtractTextBetween(s[i],'["','","'));
    end;
  end;
s.Free;
//Memo2.Text := IdHTTP1.Get('https://translate.google.com.ar/');
//FillLanguage(Memo2.Text , ComboBox1);
end;

Saludos!!!!!
Responder Con Cita