Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 24-06-2011
kirios kirios is offline
Miembro
NULL
 
Registrado: jun 2011
Posts: 27
Poder: 0
kirios Va por buen camino
Capturar Texto desde un notepad

Hola, estoy queriendo capturar una lista de palabras desde un bloc de notas en windows, y asignarlos a un array de strings, alguien sabe algun método? o algun link con info, graciaas.
Responder Con Cita
  #2  
Antiguo 24-06-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Como ejemplo una forma seria:
Código Delphi [-]
...
uses ClipBrd;

procedure TForm1.Button1Click(Sender: TObject);
var
  CB: TClipBoard;
  VStr : array of string;
  i : Integer;
  TS: TStrings;
begin
  try
   TS:= TStringList.Create;
   try
    CB:= TClipBoard.Create;
    TS.Text:= CB.AsText;
    for i:= 0 to TS.Count-1 do
    begin
      SetLength(VStr,i+1);
      VStr[i]:= TS[i];
    end;
   finally
    TS.Free;
   end;
  finally
   CB.Free;
  end;
end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #3  
Antiguo 24-06-2011
kirios kirios is offline
Miembro
NULL
 
Registrado: jun 2011
Posts: 27
Poder: 0
kirios Va por buen camino
ja, me mataste, no la tengo tan clara con los comandos, tenes algun archivo de ayuda? me comentaron que con el opendialog y un scanf podria funcionar, puede ser?
graciaas
Responder Con Cita
  #4  
Antiguo 24-06-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Te pido mil disculpas, no sé donde tenía la cabeza que interpreté 'clipboard' cuando en realidad era 'notepad'

Sería:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  TS: TStrings;
  VStr: array of string;
  i: Integer;
begin
  OpenDialog1.Filter:= 'Archivos de texto|*.txt';
  if OpenDialog1.Execute then
  begin
    TS:= TStringList.Create;
    try
      TS.LoadFromFile(OpenDialog1.FileName);
      for i:= 0 to TS.Count -1 do
      begin
        SetLength(VStr,i+1);
        VStr[i]:= TS[i];
      end;
    finally
      TS.Free;
    end;
  end;
end;
El código sería mucho más sencillo si no te pidieran guardarlo en un array de string.

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 24-06-2011 a las 21:12:13.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Problemas con el coloreado de sintaxis en Notepad++ Angel Fernández Varios 5 12-01-2010 22:19:59
Capturar datos desde archivo de texto BlueSteel Varios 9 07-03-2008 00:02:02
Capturar Texto Plano Kenobi Varios 1 22-11-2007 09:59:12
Capturar parte de un texto Roilo SQL 3 12-01-2006 21:36:43
Capturar texto de otras ventanas NeWsP API de Windows 3 27-02-2004 01:47:37


La franja horaria es GMT +2. Ahora son las 07:21:43.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi