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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
| program pas;
procedure trim(f1name : string; f2name : string);
var f1 : text;
f2 : text;
s : string;
begin
assign(f1, f1name);
reset(f1);
assign(f2, f2name);
rewrite(f2);
while not SeekEOF(f1) do
begin
readln(f1, s);
while pos(' ', s) > 0 do delete(s, pos(' ', s), 1);
while copy(s, 1, 1) = ' ' do delete(s, 1, 1);
while copy(s, length(s), 1) = ' ' do delete(s, length(s), 1);
if length(s)>0 then writeln(f2, s);
end;
close(f2);
close(f1);
end;
function getNextBreakForSoftTrim(s : string; currentpos : integer; maxlen : integer) : integer;
var i : integer;
begin
{
writeln('s [',s,']');
writeln('currentpos [',currentpos,']');
writeln('maxlen [',maxlen,']');
writeln('length(s) [',length(s),']');
}
if (length(s) <= maxlen) or (length(s) < (currentpos + maxlen - 1)) then
begin
getNextBreakForSoftTrim := length(s);
exit;
end;
for i := currentpos to currentpos + maxlen do
begin
{
writeln('copy(s, i, 1) [',copy(s, i, 1),']');
}
if copy(s, i, 1) = ' ' then
getNextBreakForSoftTrim := i;
end;
end;
procedure softTrim(f1name : string; f2name : string; maxlen : integer);
var f1 : text;
f2 : text;
s : string;
i, j : integer;
begin
assign(f1, f1name);
reset(f1);
assign(f2, f2name);
rewrite(f2);
while not SeekEOF(f1) do
begin
readln(f1, s);
j := getNextBreakForSoftTrim(s, 1, maxlen);
{writeln('Next end of line: ', j);}
for i := 1 to length(s) do
begin
if (copy(s, i, 1) = ' ') and (i > j) then
begin
j := getNextBreakForSoftTrim(s, i, maxlen);
{
writeln('End of word: ', i);
writeln('Next end of line: ', j);
}
end;
if (i = j) and (i < length(s)) then
writeln(f2,'')
else
write(f2, copy(s, i, 1));
end;
end;
close(f2);
close(f1);
end;
function getMinLen(fname : string) : integer;
var f : text;
s : string;
i, j, r : integer;
begin
r := 0;
assign(f, fname);
reset(f);
while not SeekEOF(f) do
begin
readln(f, s);
j := 0;
for i := 1 to length(s) do
begin
if copy(s, i, 1) = ' ' then
begin
if (r > (i - j)) or (r = 0) then
r := i - j - 1;
j := i;
end;
end;
if r < 1 then
r := length(s);
end;
close(f);
getMinLen := r;
end;
var minlen, maxlen, ex: integer;
s : string;
begin
trim('c:\temp\file1.txt', 'c:\temp\file2.txt');
minlen := getMinLen('c:\temp\file2.txt');
maxlen := 0;
repeat
write('Please put the max length of the line in resut file ( N >= ', minlen,'): ');
readln(s);
{$R+}
val(s, maxlen, ex);
{$R-}
until maxlen>=minlen;
softTrim('c:\temp\file2.txt', 'c:\temp\file3.txt', maxlen);
writeln('done.');
readln;
end. |
(
