34 lines
655 B
Plaintext
34 lines
655 B
Plaintext
Module TestThis {
|
|
Document a$, exp$
|
|
\\ automatic find the enconding and the line break
|
|
Load.doc a$, "readings.txt"
|
|
m=0
|
|
n=doc.par(a$)
|
|
k=list
|
|
nl$={
|
|
}
|
|
l=0
|
|
exp$=format$("Records: {0}", n)+nl$
|
|
For i=1 to n
|
|
b$=paragraph$(a$, i)
|
|
If exist(k,Left$(b$, 10)) then
|
|
m++ : where=eval(k)
|
|
exp$=format$("Duplicate for {0} at {1}",where, i)+nl$
|
|
Else
|
|
Append k, Left$(b$, 10):=i
|
|
End if
|
|
Stack New {
|
|
Stack Mid$(Replace$(chr$(9)," ", b$), 11)
|
|
while not empty {
|
|
Read a, b
|
|
if b<=0 then l++ : exit
|
|
}
|
|
}
|
|
Next
|
|
exp$= format$("Duplicates {0}",m)+nl$
|
|
exp$= format$("Valid Records {0}",n-l)+nl$
|
|
clipboard exp$
|
|
report exp$
|
|
}
|
|
TestThis
|