konijn
Junior Member
Posts: 96
|
Post by konijn on Mar 1, 2022 14:23:52 GMT -5
I use this code now:
open "WS2_32" for DLL as #winsock dim a$(3000), b$(3000), c$(3000), d$(3000), e$(3000), f$(3000), g$(3000) ' 15 fields dim h$(3000), i$(3000), j$(3000), k$(3000), l$(3000), m$(3000), n$(3000), o$(3000), p$(3000)
dim servera$(3000), serverb$(3000), serverc$(3000), serverd$(3000), servere$(3000), serverf$(3000)
dim tochta$(3000), tochtb$(3000), tochtc$(3000), tochtd$(3000), message$(3000) ', tochte$(3000), tochtf$(3000), tochtg$(3000)
i =0 open "c:\melkteller\herkenning\inlees.csv" for input as #readFile while not( eof( #readFile)) inputcsv #readFile, a$(i), b$(i), c$(i), d$(i), e$(i), f$(i), g$(i), h$(i), i$(i), j$(i), k$(i), l$(i), m$(i), n$(i), o$(i), p$(i) 'print a$(i), b$(i), c$(i), d$(i), e$(i), f$(i), g$(i), h$(i), i$(i), k$(i), l$(i), m$(i), n$(i) i =i +1 wend close #readFile
'Call OpenWinsock 'port = 27000 'sock = OpenUDPServSocket(port)
[check]
q = q +1 if q = 2 then end k =0 open "c:\melkteller\server.txt" for input as #server while not( eof( #server)) inputcsv #server, servera$(k), serverb$(k), serverc$(k), serverd$(k), servere$(k), serverf$(k) 'print servera$(k), serverb$(k), serverc$(k), serverd$(k), servere$(k), serverf$(k) k =k +1 wend close #server
'randomize 0.1
doPrint = 1 'slower
N = i-1 'goto [skip] 'brute force - N^2, slow at big N 'but simple t0=time$("ms") for j = 1 to N found=0 for i = 1 to N if a$(j)=servera$(i-1) then found =i: exit for next if doPrint then ' print "Find ";a(j) ; k$(j);"...", if not(found) and k$(j) <> "Droog" then message$=message$ +" "+a$(j) 'if k$(j) < "Droog" then print a(j) ; k$(j);"is MISSING" 'else print "found" end if next print message$
close #winsock end
And with this datafiles: server.txt
1,01-03-2022,17:36:18,13.3,299,10 2,01-03-2022,17:36:35, 7.4,294,12 3,01-03-2022,17:36:57,11.0,308,14 4,01-03-2022,17:37:16, 7.7,315,16 5,01-03-2022,17:36:49,15.1,371,13 6,01-03-2022,17:36:24, 8.4,399,11 7,01-03-2022,17:37:08,15.4,367,15 8,01-03-2022,17:36:08, 5.4,445,9 9,01-03-2022,17:40:47, 6.6,234,6 10,01-03-2022,17:40:21, 6.1,307,4
And inlees.csv
1,5433,,1,11,6.37,3.16,82,82,,Gekalfd,09-12-2021,VH BAHRAIN,7114,97, 2,299,,3,96,6.53,4.38,298,212,1,Drachtig,07-05-2021,R FASTRUP,9493,107,299 3,3104,,2,23,5.22,3.98,138,8,3,Geinsemineerd,14-10-2021,HOJDARE,8810,100, 4,8367,,1,22,4.55,3.43,181,88,2,Drachtig,01-09-2021,RED CLIFF,8711,108,8367 5,4894,25,4,,,,349,21,2,Droog,24-02-2021,Konijn Daimond,9251,, 6,6506,,3,,,,4,4,,Gekalfd,25-02-2022,Konijn Rufsiga,,, 7,4913,,4,13,5.03,3.62,141,2,1,Geinsemineerd,11-10-2021,KODAK,9954,104, 8,5193,,3,504,6.14,4.36,277,63,2,Drachtig,28-05-2021,VR CIGAR,6966,75, 9,2987,,3,22,4.75,3.74,135,35,1,Geinsemineerd,17-10-2021,Konijn Rufsiga,8892,91,2987 10,405,,1,96,5.27,4.12,299,152,3,Drachtig,06-05-2021,Konijn Rufsiga,7865,102,
What is the problem. Thats cow number 1. If cow number 1 is missing in the file server.txt then she will not notified. There goes something wrong in the comparing but I can not figure it out what?
|
|