Text processing/2: Difference between revisions

Content added Content deleted
Line 1,713: Line 1,713:
If exist(k,Left$(b$, 10)) then
If exist(k,Left$(b$, 10)) then
m++ : where=eval(k)
m++ : where=eval(k)
exp$=format$("Duplicate for {0} at {1}",i, where)+nl$
exp$=format$("Duplicate for {0} at {1}",where, i)+nl$
Else
Else
Append k, Left$(b$, 10):=i
Append k, Left$(b$, 10):=i
Line 1,735: Line 1,735:
<pre>
<pre>
Records: 5471
Records: 5471
Duplicate for 85 at 84
Duplicate for 84 at 85
Duplicate for 456 at 455
Duplicate for 455 at 456
Duplicate for 820 at 819
Duplicate for 819 at 820
Duplicate for 1184 at 1183
Duplicate for 1183 at 1184
Duplicate for 1911 at 1910
Duplicate for 1910 at 1911
Duplicates 5
Duplicates 5
Valid Records 5017
Valid Records 5017

</pre>
</pre>