Data update

Task/Text-processing-1/FreeBASIC/text-processing-1.basic

@@ -0,0 +1,60 @@
+Dim As String filename = "readings.txt"
+Dim As String linea, Part, salida, ErrEnds, rejected_date, Tabu = Chr(9)
+Dim As Integer i, posic, startPos, endPos, Errcnt, ErrMax, rejects,
+Dim As Integer readings, max_rejected, n_rejected
+Dim As Double lsum, tsum, valor
+
+Open filename For Input As #1
+
+Do While Not Eof(1)
+    Line Input #1, linea
+    salida = ""
+    lsum = 0
+    rejects = 0
+    posic = 1
+    For i = 1 To 1 + 2 * 24
+        startPos = posic
+        endPos = Instr(posic, linea, Tabu)
+        If endPos = 0 Then endPos = Len(linea) + 1
+        Part = Mid(linea, startPos, endPos - startPos)
+        posic = endPos + 1
+
+        If i = 1 Then           ' Date
+            salida = Part
+        Elseif i Mod 2 = 0 Then ' Recorded value
+            valor = Val(Part)
+        Else                    ' Status part
+            If Val(Part) > 0 Then
+                Errcnt = 0
+                readings += 1
+                lsum += valor
+                tsum += valor
+            Else
+                rejects += 1
+                Errcnt += 1
+                If Errcnt > ErrMax Then
+                    ErrMax = Errcnt
+                    ErrEnds = salida
+                End If
+            End If
+        End If
+    Next i
+    salida &= " Rejects: " & Str(rejects)
+    salida &= " Accepts: " & Str(24 - rejects)
+    salida &= " Line_tot: " & Str(lsum)
+    If rejects < 24 Then
+        salida &= " Line_avg: " & Str(lsum / (24 - rejects))
+    Else
+        salida &= " Line_avg: N/A"
+    End If
+    Print "Line: " & salida
+Loop
+Close #1
+
+Print !"\nFile     = " & filename
+Print "Total    = " & Str(tsum)
+Print "Readings = " & Str(readings)
+Print "Average  = " & Str(tsum / readings)
+Print !"\nMaximum of " & Str(ErrMax) & " consecutive false readings, ends at " & ErrEnds
+
+Sleep