SoloCodigo

Programación Web y Scripting => PHP => Mensaje iniciado por: sakuragi en Domingo 17 de Junio de 2007, 04:09

Título: Se Parar Palabrar Por Token De Un Texto, En Memo
Publicado por: sakuragi en Domingo 17 de Junio de 2007, 04:09
Hola que tal.

alguien sabe un funcion, de como separar las palabras de un texto en token. por ejemplo:

se tiene el texto siguiente:

program ejemplo;
uses crt;
var
s:integer;

se separarian asi:

program
ejemplo
;
uses
crt
;
var
s
:
integer
;


saludos

gracias.

PD: esto lo eh hecho en delphi(object pascal). pero en delphi4php no hayo o no ahi funcion similar.

Código: Text
  1.  
  2. var
  3.   MemStream: TMemoryStream;
  4.   Parser: TParser;
  5.   Token: Char;
  6.   Line: Integer;
  7.  
  8. begin
  9.   MemStream := TMemoryStream.Create;
  10.   Memo1.Lines.SaveToStream(MemStream);
  11.   MemStream.Seek(soFromBeginning, 0);
  12.   Parser := TParser.Create(MemStream);
  13.  
  14.   Line := 1;
  15.   repeat
  16.     while Line < Parser.SourceLine do
  17.     begin
  18.       Memo2.Lines.Add('<cr>');
  19.       Inc(Line);
  20.     end;
  21.  
  22.     Memo2.Lines.Add(Parser.TokenString);
  23.   until Parser.NextToken = toEof;
  24.  
  25.   Parser.Free;
  26.   MemStream.Free;
  27. end;
  28.  
  29.  
Título: Re: Se Parar Palabrar Por Token De Un Texto, En Memo
Publicado por: hdr en Domingo 17 de Junio de 2007, 04:28
utiliza la funcion split y como comodin para separa usas un espacio en blanco
Título: Re: Se Parar Palabrar Por Token De Un Texto, En Memo
Publicado por: sakuragi en Martes 19 de Junio de 2007, 09:00
gracias, lo probare.

saludos

(: :comp: