kate mobile parcer

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
program parce;
begin
var dial:array of string;
var dial_tw:array of string;
var fl:=new System.IO.StreamReader('test.txt',System.Text.Encoding.Default);
var str:=fl.ReadToEnd;
fl.Close;
var nm:array[1..15] of string;
nm[1]:='Виктория';nm[2]:='Александр';nm[3]:='Анька';nm[4]:='Антон';
nm[5]:='Дмитрий';nm[6]:='Дима';nm[7]:='Эдик';
nm[8]:='Артём';nm[9]:='Василий';nm[10]:='Влад';nm[11]:='Эдуард';
nm[12]:='Михаил';nm[13]:='Ира';nm[14]:='Андрей';nm[15]:='Леонид';
var readn:=false;
var fn:=false;
var gn:=false;
var s:='';
var sn:='';
var n:=0;
var m:=0;
//writeln(str);
var gg:=new System.IO.StreamWriter('out.txt',false,System.Text.Encoding.Default);
while readn<>true do begin
n:=n+1;
s:=s+copy(str,n,1);
if copy(str,n,1)='' then readn:=true;
if length(s)>8 then begin
for var i:=1 to 9 do begin
sn:=copy(s,(length(s)-i),i);
for var j:=1 to 15 do begin
if sn=nm[j] then begin
s:=copy(s,1,(length(s)-(length(sn)+1)));
m:=m+1;
setlength(dial,m);
setlength(dial_tw,m);
dial[m-1]:=s;
//gg.Write(s);gg.WriteLine;gg.WriteLine;
s:=sn+' ';sn:='';
end;
end;
end;
end;
end;
for var i:=0 to m-1 do begin
dial_tw[(m-1)-i]:=dial[i];
end;
for var i:=0 to m-1 do begin
gg.Write(dial_tw[i]);gg.WriteLine;gg.WriteLine;
end;
gg.Close;
end.