fork(1) download 
  1. program ideone;
  2. var
  3. 	s,a,b,c:string;
  4. 	p:integer;
  5. begin
  6. 	readln(s);
  7. 	p := pos('LIKE', s) + 6;
  8. 	a := copy(s, p, pos('%', s) - p);
  9. 	p := pos('BETWEEN', s) + 9;
  10. 	b := copy(s, p, pos(chr(39) + ' AND ' + chr(39), s) - p);
  11. 	p := pos(chr(39) + ' AND ' + chr(39), s) + 7;
  12. 	c := copy(s, p, pos(chr(39) + ')', s) - p);
  13. 	writeln(a);
  14. 	writeln(b);
  15. 	writeln(c);
  16. end.
Success #stdin #stdout 0s 276KB
comments (?)
stdin 
or (TCL_FIC_NMK_.FCOD LIKE '16%' and FOP_DATE  BETWEEN '20121001' AND '20121130')
stdout 
16
20121001
20121130
https://ideone.com/0mvBSG
language:
Pascal (fpc 3.0.4)
created:
12 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!