Programación General > Pascal

 Buscar Dentro De Strings

<< < (3/3)

Enko:

--- Código: Text --- function Extract(OpenS, CloseS, Str: String): String;var  ExtractResult: String;  I: Integer;  doCopy: Boolean;begin for i:= 1 to Length(Str) do begin   //el caracter es el del final, devolvemos resutlado y salimso   if Str[i] = CloseS then   begin      doCopy := False;      Extract := ExtractResult;      Exit;   end;   //si ya comenso el segmento de copia....   if doCopy then   begin     ExtractResult := ExtractResult + Str[i];   end;   //si el caracter es el de comienzo, tonces hay que copiar   if Str[i] = OpenS then      doCopy := True   else end;end; var  S: String; begin  Readln(S);  WriteLn(Extract('(', ')',S));  Readln;end.  No es de lo mas eficiente pero funciona

Zirrosis:
Muchas gracias Enko, da igual si no es eficiente...mientras funcione.... ;)  ;)

Si la as echo tu aun mas gracias entonces.... :D  :D

Enko:

--- Cita de: "Zirrosis" --- Muchas gracias Enko, da igual si no es eficiente...mientras funcione.... ;)  ;)

Si la as echo tu aun mas gracias entonces.... :D  :D
--- Fin de la cita ---
Lo hice en Delphi, pero aún así debería funcionar en TurboPascal ya que no use casi ninguna funcion salgo Length que esta en los dos Compiladores.

Navegación

[0] Índice de Mensajes

[*] Página Anterior