Data commit

Task/Text-processing-2/M2000-Interpreter/text-processing-2.m2000

@@ -0,0 +1,33 @@
+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