Pattern Searching

[Dimster]

Just wondering how I may be able to search out patterns in my data files. I basically have over 50 patterns that I'm searching out, and the most simplistic approach for me was to use multiple "If statements to find a match. While this has turned out to be accurate but the larger the data files grow the slower this becomes. Would you guys and girls out there have better pattern search routine than multiple "if's"?

Here is an idea of the code I'm presently using.

Code: QB64: [Select]

1. ' Pattern Search Routine
2.  
3.  
4. Do While Not EOF(1)
5.     Input #1, firstdat, seconddat, thirddat, forthdat, fifthdat, sixthdat, bonusdat
6.     DataLineCount = DataCount + 1
7.  
8.  
9.  
10.     If firstdat >= le1 And firstdat <= ue1 Then range1 = range1 + 1
11.     If seconddat >= le2 And seconddat <= ue2 Then range2 = range2 + 1
12.     If thirddat >= le3 And thirddat <= ue3 Then range3 = range3 + 1
13.     If forthdat >= le4 And forthdat <= ue4 Then range4 = range4 + 1
14.     If fifthdat >= le5 And fifthdat <= ue5 Then range5 = range5 + 1
15.     If sixthdat >= le6 And sixthdat <= ue6 Then range6 = range6 + 1
16.  
17.  
18.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le1 And seconddat <= ue1 And thirddat >= le1 And thirddat <= ue1 And forthdat >= le1 And forthdat <= ue1 And fifthdat >= le1 And fifthdat <= ue1 And sixthdat >= le1 And sixthdat <= ue1 And DrawCount <= 104 Then
19.         Y1P1 = Y1P1 + 1 'P1 = a,a,a,a,a,a
20.     End If
21.  
22.  
23.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le1 And seconddat <= ue1 And thirddat >= le1 And thirddat <= ue1 And forthdat >= le1 And forthdat <= ue1 And fifthdat >= le1 And fifthdat <= ue1 And sixthdat >= le2 And sixthdat <= ue2 And DrawCount <= 104 Then
24.         Y1P2 = Y1P2 + 1 'P2 = a,a,a,a,a,b
25.     End If
26.  
27.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le1 And seconddat <= ue1 And thirddat >= le1 And thirddat <= ue1 And forthdat >= le1 And forthdat <= ue1 And fifthdat >= le2 And fifthdat <= ue2 And sixthdat >= le2 And sixthdat <= ue2 And DrawCount <= 104 Then
28.         Y1P3 = Y1P3 + 1 'P3 = a,a,a,a,b,b
29.     End If
30.  
31.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le1 And seconddat <= ue1 And thirddat >= le1 And thirddat <= ue1 And forthdat >= le2 And forthdat <= ue2 And fifthdat >= le2 And fifthdat <= ue2 And sixthdat >= le2 And sixthdat <= ue2 And DrawCount <= 104 Then
32.         Y1P4 = Y1P4 + 1 'P4 = a,a,a,b,b,b
33.     End If
34.  
35.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le1 And seconddat <= ue1 And thirddat >= le2 And thirddat <= ue2 And forthdat >= le2 And forthdat <= ue2 And fifthdat >= le2 And fifthdat <= ue2 And sixthdat >= le2 And sixthdat <= ue2 And DrawCount <= 104 Then
36.         Y1P5 = Y1P5 + 1 'P5 = a,a,b,b,b,b
37.     End If
38.  
39.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le2 And thirddat <= ue2 And forthdat >= le2 And forthdat <= ue2 And fifthdat >= le2 And fifthdat <= ue2 And sixthdat >= le2 And sixthdat <= ue2 And DrawCount <= 104 Then
40.         Y1P6 = Y1P6 + 1 'P6 = a,b,b,b,b,b
41.     End If
42.  
43.     If firstdat >= le2 And firstdat <= ue2 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le2 And thirddat <= ue2 And forthdat >= le2 And forthdat <= ue2 And fifthdat >= le2 And fifthdat <= ue2 And sixthdat >= le2 And sixthdat <= ue2 And DrawCount <= 104 Then
44.         Y1P7 = Y1P7 + 1 'P7 = b,b,b,b,b,b
45.     End If
46.  
47.     If firstdat >= le2 And firstdat <= ue2 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le2 And thirddat <= ue2 And forthdat >= le2 And forthdat <= ue2 And fifthdat >= le2 And fifthdat <= ue2 And sixthdat >= le3 And sixthdat <= ue3 And DrawCount <= 104 Then
48.         Y1P8 = Y1P8 + 1 'P8 = b,b,b,b,b,c
49.     End If
50.  
51.     If firstdat >= le2 And firstdat <= ue2 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le2 And thirddat <= ue2 And forthdat >= le2 And forthdat <= ue2 And fifthdat >= le3 And fifthdat <= ue3 And sixthdat >= le3 And sixthdat <= ue3 And DrawCount <= 104 Then
52.         Y1P9 = Y1P9 + 1 'P9 = b,b,b,b,c,c
53.     End If
54.  
55.     If firstdat >= le2 And firstdat <= ue2 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le2 And thirddat <= ue2 And forthdat >= le3 And forthdat <= ue3 And fifthdat >= le3 And fifthdat <= ue3 And sixthdat >= le3 And sixthdat <= ue3 And DrawCount <= 104 Then
56.         Y1P10 = Y1P10 + 1 'P10 = b,b,b,c,c,c
57.     End If
58.  
59.     If firstdat >= le2 And firstdat <= ue2 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le3 And thirddat <= ue3 And forthdat >= le3 And forthdat <= ue3 And fifthdat >= le3 And fifthdat <= ue3 And sixthdat >= le3 And sixthdat <= ue3 And DrawCount <= 104 Then
60.         Y1P11 = Y1P11 + 1 'P11 = b,b,c,c,c,c
61.     End If
62.  
63.     If firstdat >= le2 And firstdat <= ue2 And seconddat >= le3 And seconddat <= ue3 And thirddat >= le3 And thirddat <= ue3 And forthdat >= le3 And forthdat <= ue3 And fifthdat >= le3 And fifthdat <= ue3 And sixthdat >= le3 And sixthdat <= ue3 And DrawCount <= 104 Then
64.         Y1P12 = Y1P12 + 1 'P12 = b,c,c,c,c,c
65.     End If
66.  
67.     If firstdat >= le3 And firstdat <= ue3 And seconddat >= le3 And seconddat <= ue3 And thirddat >= le3 And thirddat <= ue3 And forthdat >= le3 And forthdat <= ue3 And fifthdat >= le3 And fifthdat <= ue3 And sixthdat >= le3 And sixthdat <= ue3 And DrawCount <= 104 Then
68.         Y1P13 = Y1P13 + 1 'P13 = c,c,c,c,c,c
69.     End If
70.  
71.     If firstdat >= le3 And firstdat <= ue3 And seconddat >= le3 And seconddat <= ue3 And thirddat >= le3 And thirddat <= ue3 And forthdat >= le3 And forthdat <= ue3 And fifthdat >= le3 And fifthdat <= ue3 And sixthdat >= le4 And sixthdat <= ue4 And DrawCount <= 104 Then
72.         Y1P14 = Y1P14 + 1 'P14 = c,c,c,c,c,d
73.     End If
74.  
75.     If firstdat >= le3 And firstdat <= ue3 And seconddat >= le3 And seconddat <= ue3 And thirddat >= le3 And thirddat <= ue3 And forthdat >= le3 And forthdat <= ue3 And fifthdat >= le4 And fifthdat <= ue4 And sixthdat >= le4 And sixthdat <= ue4 And DrawCount <= 104 Then
76.         Y1P15 = Y1P15 + 1 'P15 = c,c,c,c,d,d
77.     End If
78.  
79.     If firstdat >= le3 And firstdat <= ue3 And seconddat >= le3 And seconddat <= ue3 And thirddat >= le3 And thirddat <= ue3 And forthdat >= le4 And forthdat <= ue4 And fifthdat >= le4 And fifthdat <= ue4 And sixthdat >= le4 And sixthdat <= ue4 And DrawCount <= 104 Then
80.         Y1P16 = Y1P16 + 1 'P16 = c,c,c,d,d,d
81.     End If
82.  
83.     If firstdat >= le3 And firstdat <= ue3 And seconddat >= le3 And seconddat <= ue3 And thirddat >= le4 And thirddat <= ue4 And forthdat >= le4 And forthdat <= ue4 And fifthdat >= le4 And fifthdat <= ue4 And sixthdat >= le4 And sixthdat <= ue4 And DrawCount <= 104 Then
84.         Y1P17 = Y1P17 + 1 'P17 = c,c,d,d,d,d
85.     End If
86.  
87.     If firstdat >= le3 And firstdat <= ue3 And seconddat >= le4 And seconddat <= ue4 And thirddat >= le4 And thirddat <= ue4 And forthdat >= le4 And forthdat <= ue4 And fifthdat >= le4 And fifthdat <= ue4 And sixthdat >= le4 And sixthdat <= ue4 And DrawCount <= 104 Then
88.         Y1P18 = Y1P18 + 1 'P18 = c,d,d,d,d,d
89.     End If
90.  
91.     If firstdat >= le4 And firstdat <= ue4 And seconddat >= le4 And seconddat <= ue4 And thirddat >= le4 And thirddat <= ue4 And forthdat >= le4 And forthdat <= ue4 And fifthdat >= le4 And fifthdat <= ue4 And sixthdat >= le4 And sixthdat <= ue4 And DrawCount <= 104 Then
92.         Y1P19 = Y1P19 + 1 'P19 = d,d,d,d,d,d
93.     End If
94.  
95.     If firstdat >= le4 And firstdat <= ue4 And seconddat >= le4 And seconddat <= ue4 And thirddat >= le4 And thirddat <= ue4 And forthdat >= le4 And forthdat <= ue4 And fifthdat >= le4 And fifthdat <= ue4 And sixthdat >= le5 And sixthdat <= ue5 And DrawCount <= 104 Then
96.         Y1P20 = Y1P20 + 1 'P20 = d,d,d,d,d,e
97.     End If
98.  
99.  
100.     If firstdat >= le4 And firstdat <= ue4 And seconddat >= le4 And seconddat <= ue4 And thirddat >= le4 And thirddat <= ue4 And forthdat >= le4 And forthdat <= ue4 And fifthdat >= le5 And fifthdat <= ue5 And sixthdat >= le5 And sixthdat <= ue5 And DrawCount <= 104 Then
101.         Y1P21 = Y1P21 + 1 'P21 = d,d,d,d,e,e
102.     End If
103.  
104.     If firstdat >= le4 And firstdat <= ue4 And seconddat >= le4 And seconddat <= ue4 And thirddat >= le4 And thirddat <= ue4 And forthdat >= le5 And forthdat <= ue5 And fifthdat >= le5 And fifthdat <= ue5 And sixthdat >= le5 And sixthdat <= ue5 And DrawCount <= 104 Then
105.         Y1P22 = Y1P22 + 1 'P22 = d,d,d,e,e,e
106.     End If
107.  
108.     If firstdat >= le4 And firstdat <= ue4 And seconddat >= le4 And seconddat <= ue4 And thirddat >= le5 And thirddat <= ue5 And forthdat >= le5 And forthdat <= ue5 And fifthdat >= le5 And fifthdat <= ue5 And sixthdat >= le5 And sixthdat <= ue5 And DrawCount <= 104 Then
109.         Y1P23 = Y1P23 + 1 'P23 = d,d,e,e,e,e
110.     End If
111.  
112.     If firstdat >= le4 And firstdat <= ue4 And seconddat >= le5 And seconddat <= ue5 And thirddat >= le5 And thirddat <= ue5 And forthdat >= le5 And forthdat <= ue5 And fifthdat >= le5 And fifthdat <= ue5 And sixthdat >= le5 And sixthdat <= ue5 And DrawCount <= 104 Then
113.         Y1P24 = Y1P24 + 1 'P24 = d,e,e,e,e,e
114.     End If
115.  
116.     If firstdat >= le5 And firstdat <= ue5 And seconddat >= le5 And seconddat <= ue5 And thirddat >= le5 And thirddat <= ue5 And forthdat >= le5 And forthdat <= ue5 And fifthdat >= le5 And fifthdat <= ue5 And sixthdat >= le5 And sixthdat <= ue5 And DrawCount <= 104 Then
117.         Y1P25 = Y1P25 + 1 'P25 = e,e,e,e,e,e
118.     End If
119.  
120.     If firstdat >= le5 And firstdat <= ue5 And seconddat >= le5 And seconddat <= ue5 And thirddat >= le5 And thirddat <= ue5 And forthdat >= le5 And forthdat <= ue5 And fifthdat >= le5 And fifthdat <= ue5 And sixthdat >= le6 And sixthdat <= ue6 And DrawCount <= 104 Then
121.         Y1P26 = Y1P26 + 1 'P26 = e,e,e,e,e,f
122.     End If
123.  
124.     If firstdat >= le5 And firstdat <= ue5 And seconddat >= le5 And seconddat <= ue5 And thirddat >= le5 And thirddat <= ue5 And forthdat >= le5 And forthdat <= ue5 And fifthdat >= le6 And fifthdat <= ue6 And sixthdat >= le6 And sixthdat <= ue6 And DrawCount <= 104 Then
125.         Y1P27 = Y1P27 + 1 'P27 = e,e,e,e,f,f
126.     End If
127.  
128.     If firstdat >= le5 And firstdat <= ue5 And seconddat >= le5 And seconddat <= ue5 And thirddat >= le5 And thirddat <= ue5 And forthdat >= le6 And forthdat <= ue6 And fifthdat >= le6 And fifthdat <= ue6 And sixthdat >= le6 And sixthdat <= ue6 And DrawCount <= 104 Then
129.         Y1P28 = Y1P28 + 1 'P28 = e,e,e,f,f,f
130.     End If
131.  
132.     If firstdat >= le5 And firstdat <= ue5 And seconddat >= le5 And seconddat <= ue5 And thirddat >= le6 And thirddat <= ue6 And forthdat >= le6 And forthdat <= ue6 And fifthdat >= le6 And fifthdat <= ue6 And sixthdat >= le6 And sixthdat <= ue6 And DrawCount <= 104 Then
133.         Y1P29 = Y1P29 + 1 'P29 = e,e,f,f,f,f
134.     End If
135.  
136.     If firstdat >= le5 And firstdat <= ue5 And seconddat >= le6 And seconddat <= ue6 And thirddat >= le6 And thirddat <= ue6 And forthdat >= le6 And forthdat <= ue6 And fifthdat >= le6 And fifthdat <= ue6 And sixthdat >= le6 And sixthdat <= ue6 And DrawCount <= 104 Then
137.         Y1P30 = Y1P30 + 1 'P30 = e,f,f,f,f,f
138.     End If
139.  
140.     If firstdat >= le6 And firstdat <= ue6 And seconddat >= le6 And seconddat <= ue6 And thirddat >= le6 And thirddat <= ue6 And forthdat >= le6 And forthdat <= ue6 And fifthdat >= le6 And fifthdat <= ue6 And sixthdat >= le6 And sixthdat <= ue6 And DrawCount <= 104 Then
141.         Y1P31 = Y1P31 + 1 'P31 = f,f,f,f,f,f
142.     End If
143.  
144.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le3 And thirddat <= ue3 And forthdat >= le4 And forthdat <= ue4 And fifthdat >= le5 And fifthdat <= ue5 And sixthdat >= le6 And sixthdat <= ue6 Then
145.         HISP32 = HISP32 + 1 'HISP32 = a,b,c,d,e,f
146.     End If
147.  
148.  
149.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le3 And thirddat <= ue3 And forthdat >= le4 And forthdat <= ue4 And fifthdat >= le5 And fifthdat <= ue5 And sixthdat >= le6 And sixthdat <= ue6 And DrawCount <= 104 Then
150.         Y1P32 = Y1P32 + 1 'P32 = a,b,c,d,e,f
151.     End If
152.  
153.  
154.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le3 And thirddat <= ue3 And forthdat >= le4 And forthdat <= ue4 And fifthdat >= le5 And fifthdat <= ue5 And sixthdat >= le6 And sixthdat <= ue6 And DrawCount >= count - PrezCycle And DrawCount <= count Then
155.         PCP32 = PCP32 + 1 'PCP32 = a,b,c,d,e,f
156.     End If
157.  
158.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le3 And thirddat <= ue3 And forthdat >= le4 And forthdat <= ue4 And fifthdat >= le5 And fifthdat <= ue5 And sixthdat >= le6 And sixthdat <= ue6 And DrawCount >= count - (PrezCycle + 104) And DrawCount <= count - PrezCycle Then
159.         FullCP32 = FullCP32 + 1 'FullCP32 = a,b,c,d,e,f
160.     End If
161.  
162.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le1 And seconddat <= ue1 And thirddat >= le2 And thirddat <= ue2 And forthdat >= le3 And forthdat <= ue3 And fifthdat >= le4 And fifthdat <= ue4 And sixthdat >= le5 And sixthdat <= ue5 And DrawCount <= 104 Then
163.         Y1P33 = Y1P33 + 1 'P33 = a,a,b,c,d,e
164.     End If
165.  
166.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le2 And thirddat <= ue2 And forthdat >= le3 And forthdat <= ue3 And fifthdat >= le4 And fifthdat <= ue4 And sixthdat >= le5 And sixthdat <= ue5 And DrawCount <= 104 Then
167.         Y1P34 = Y1P34 + 1 'P34 = a,b,b,c,d,e
168.     End If
169.  
170.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le3 And thirddat <= ue3 And forthdat >= le3 And forthdat <= ue3 And fifthdat >= le4 And fifthdat <= ue4 And sixthdat >= le5 And sixthdat <= ue5 And DrawCount <= 104 Then
171.         Y1P35 = Y1P35 + 1 'P35 = a,b,c,c,d,e
172.     End If
173.  
174.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le3 And thirddat <= ue3 And forthdat >= le4 And forthdat <= ue4 And fifthdat >= le4 And fifthdat <= ue4 And sixthdat >= le5 And sixthdat <= ue5 Then
175.         HISP36 = HISP36 + 1 'HISP36 = a,b,c,d,d,e
176.     End If
177.  
178.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le3 And thirddat <= ue3 And forthdat >= le4 And forthdat <= ue4 And fifthdat >= le5 And fifthdat <= ue5 And sixthdat >= le6 And sixthdat <= ue6 And DrawCount >= count - PrezCycle And DrawCount <= count Then
179.         PCP36 = PCP36 + 1 'PCP36 = a,b,c,d,e,f
180.     End If
181.  
182.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le3 And thirddat <= ue3 And forthdat >= le4 And forthdat <= ue4 And fifthdat >= le5 And fifthdat <= ue5 And sixthdat >= le6 And sixthdat <= ue6 And DrawCount >= count - (PrezCycle + 104) And DrawCount <= count - PrezCycle Then
183.         FullCP36 = FullCP36 + 1 'FullCP36 = a,b,c,d,e,f
184.     End If
185.  
186.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le3 And thirddat <= ue3 And forthdat >= le4 And forthdat <= ue4 And fifthdat >= le4 And fifthdat <= ue4 And sixthdat >= le5 And sixthdat <= ue5 And DrawCount <= 104 Then
187.         Y1P36 = Y1P36 + 1 'P36 = a,b,c,d,d,e
188.     End If
189.  
190.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le3 And thirddat <= ue3 And forthdat >= le4 And forthdat <= ue4 And fifthdat >= le5 And fifthdat <= ue5 And sixthdat >= le5 And sixthdat <= ue5 Then
191.         HISP37 = HISP37 + 1 'HISP37 = a,b,c,d,e,e
192.     End If
193.  
194.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le3 And thirddat <= ue3 And forthdat >= le4 And forthdat <= ue4 And fifthdat >= le5 And fifthdat <= ue5 And sixthdat >= le6 And sixthdat <= ue6 And DrawCount >= count - PrezCycle And DrawCount <= count Then
195.         PCP37 = PCP37 + 1 'PCP37 = a,b,c,d,e,f
196.     End If
197.  
198.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le3 And thirddat <= ue3 And forthdat >= le4 And forthdat <= ue4 And fifthdat >= le5 And fifthdat <= ue5 And sixthdat >= le6 And sixthdat <= ue6 And DrawCount >= count - (PrezCycle + 104) And DrawCount <= count - PrezCycle Then
199.         FullCP37 = FullCP37 + 1 'FullCP37 = a,b,c,d,e,f
200.     End If
201.  
202.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le3 And thirddat <= ue3 And forthdat >= le4 And forthdat <= ue4 And fifthdat >= le5 And fifthdat <= ue5 And sixthdat >= le5 And sixthdat <= ue5 And DrawCount <= 104 Then
203.         Y1P37 = Y1P37 + 1 'P37 = a,b,c,d,e,e
204.     End If
205.  
206.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le1 And seconddat <= ue1 And thirddat >= le2 And thirddat <= ue2 And forthdat >= le3 And forthdat <= ue3 And fifthdat >= le4 And fifthdat <= ue4 And sixthdat >= le6 And sixthdat <= ue6 And DrawCount <= 104 Then
207.         Y1P38 = Y1P38 + 1 'P38 = a,a,b,c,d,f
208.     End If
209.  
210.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le2 And thirddat <= ue2 And forthdat >= le3 And forthdat <= ue3 And fifthdat >= le4 And fifthdat <= ue4 And sixthdat >= le6 And sixthdat <= ue6 And DrawCount <= 104 Then
211.         Y1P39 = Y1P39 + 1 'P39 = a,b,b,c,d,f
212.     End If
213.  
214.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le3 And thirddat <= ue3 And forthdat >= le3 And forthdat <= ue3 And fifthdat >= le4 And fifthdat <= ue4 And sixthdat >= le6 And sixthdat <= ue6 And DrawCount <= 104 Then
215.         Y1P40 = Y1P40 + 1 'P40 = a,b,c,c,d,f
216.     End If
217.  
218.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le3 And thirddat <= ue3 And forthdat >= le4 And forthdat <= ue4 And fifthdat >= le4 And fifthdat <= ue4 And sixthdat >= le6 And sixthdat <= ue6 And DrawCount <= 104 Then
219.         Y1P41 = Y1P41 + 1 'P41 = a,b,c,d,d,f
220.     End If
221.  
222.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le3 And thirddat <= ue3 And forthdat >= le4 And forthdat <= ue4 And fifthdat >= le6 And fifthdat <= ue6 And sixthdat >= le6 And sixthdat <= ue6 And DrawCount <= 104 Then
223.         Y1P42 = Y1P42 + 1 'P42 = a,b,c,d,f,f
224.     End If
225.  
226.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le3 And seconddat <= ue3 And thirddat >= le3 And thirddat <= ue3 And forthdat >= le4 And forthdat <= ue4 And fifthdat >= le5 And fifthdat <= ue5 And sixthdat >= le6 And sixthdat <= ue6 And DrawCount <= 104 Then
227.         Y1P43 = Y1P43 + 1 'P43 = a,c,c,d,e,f
228.     End If
229.  
230.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le3 And seconddat <= ue3 And thirddat >= le4 And thirddat <= ue4 And forthdat >= le4 And forthdat <= ue4 And fifthdat >= le5 And fifthdat <= ue5 And sixthdat >= le6 And sixthdat <= ue6 And DrawCount <= 104 Then
231.         Y1P44 = Y1P44 + 1 'P44 = a,c,d,d,e,f
232.     End If
233.  
234.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le3 And seconddat <= ue3 And thirddat >= le4 And thirddat <= ue4 And forthdat >= le5 And forthdat <= ue5 And fifthdat >= le5 And fifthdat <= ue5 And sixthdat >= le6 And sixthdat <= ue6 And DrawCount <= 104 Then
235.         Y1P45 = Y1P45 + 1 'P45 = a,c,d,e,e,f
236.     End If
237.  
238.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le3 And seconddat <= ue3 And thirddat >= le4 And thirddat <= ue4 And forthdat >= le5 And forthdat <= ue5 And fifthdat >= le6 And fifthdat <= ue6 And sixthdat >= le6 And sixthdat <= ue6 And DrawCount <= 104 Then
239.         Y1P46 = Y1P46 + 1 'P46 = a,c,d,e,f,f
240.     End If
241.  
242.  
243.     If firstdat >= le2 And firstdat <= ue2 And seconddat >= le1 And seconddat <= ue1 And thirddat >= le3 And thirddat <= ue3 And forthdat >= le4 And forthdat <= ue4 And fifthdat >= le5 And fifthdat <= ue5 And sixthdat >= le6 And sixthdat <= ue6 And DrawCount <= 104 Then
244.         Y1P47 = Y1P47 + 1 'P47 = b,a,c,d,e,f
245.     End If
246.  
247.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le3 And seconddat <= ue3 And thirddat >= le2 And thirddat <= ue2 And forthdat >= le4 And forthdat <= ue4 And fifthdat >= le5 And fifthdat <= ue5 And sixthdat >= le6 And sixthdat <= ue6 And DrawCount <= 104 Then
248.         Y1P48 = Y1P48 + 1 'P48 = a,c,b,d,e,f
249.     End If
250.  
251.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le4 And thirddat <= ue4 And forthdat >= le3 And forthdat <= ue3 And fifthdat >= le5 And fifthdat <= ue5 And sixthdat >= le6 And sixthdat <= ue6 And DrawCount <= 104 Then
252.         Y1P49 = Y1P49 + 1 'P49 = a,b,d,c,e,f
253.     End If
254.  
255.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le3 And thirddat <= ue3 And forthdat >= le5 And forthdat <= ue5 And fifthdat >= le4 And fifthdat <= ue4 And sixthdat >= le6 And sixthdat <= ue6 And DrawCount <= 104 Then
256.         Y1P50 = Y1P50 + 1 'P50 = a,b,c,e,d,f
257.     End If
258.  
259.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le3 And thirddat <= ue3 And forthdat >= le4 And forthdat <= ue4 And fifthdat >= le6 And fifthdat <= ue6 And sixthdat >= le5 And sixthdat <= ue5 And DrawCount <= 104 Then
260.         Y1P51 = Y1P51 + 1 'P51 = a,b,c,d,f,e
261.     End If
262.  
263.     If firstdat >= le2 And firstdat <= ue2 And seconddat >= le1 And seconddat <= ue1 And thirddat >= le4 And thirddat <= ue4 And forthdat >= le3 And forthdat <= ue3 And fifthdat >= le5 And fifthdat <= ue5 And sixthdat >= le6 And sixthdat <= ue6 And DrawCount <= 104 Then
264.         Y1P52 = Y1P52 + 1 'P52 = b,a,d,c,e,f
265.     End If
266.  
267.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le3 And seconddat <= ue3 And thirddat >= le2 And thirddat <= ue2 And forthdat >= le5 And forthdat <= ue5 And fifthdat >= le4 And fifthdat <= ue4 And sixthdat >= le6 And sixthdat <= ue6 And DrawCount <= 104 Then
268.         Y1P53 = Y1P53 + 1 'P53 = a,c,b,e,d,f
269.     End If
270.  
271.     If firstdat >= le1 And firstdat <= ue1 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le4 And thirddat <= ue4 And forthdat >= le3 And forthdat <= ue3 And fifthdat >= le6 And fifthdat <= ue6 And sixthdat >= le5 And sixthdat <= ue5 And DrawCount <= 104 Then
272.         Y1P54 = Y1P54 + 1 'P54 = a,b,d,c,f,e
273.     End If
274.  
275.  
276.  
277. Loop
278.  
279. Close 1
280. Sound 2000, 36
281. Locate 42, 40
282. Print "     Finished the data search"
283.  
284.  

[bplus]

Hi @Dimster

Does the order of the data matter? I am wondering if you are testing permutations or combinations, in combos a,a,b = a,b,a = b,a,a but in permutations that's 3 different things.

[SMcNeill]

One way I'd speed this up is to short circuit your IF statements.

Instead of: 

If firstdat >= le1 And firstdat <= ue1 And seconddat >= le1 And seconddat <= ue1 And thirddat >= le1 And thirddat <= ue1 And forthdat >= le1 And forthdat <= ue1 And fifthdat >= le1 And fifthdat <= ue1 And sixthdat >= le1 And sixthdat <= ue1 And DrawCount <= 104 Then
        Y1P1 = Y1P1 + 1 'P1 = a,a,a,a,a,a
    End If

I'd go with:
If DrawCount <= 104 THEN
   If firstdat >= le1 And firstdat <= ue1 THEN
      If seconddat >= le1 And seconddat <= ue1 THEN
          If thirddat >= le1 And thirddat <= ue1 THEN
              If forthdat >= le1 And forthdat <= ue1 THEN
                   If fifthdat >= le1 And fifthdat <= ue1 THEN
                       If sixthdat >= le1 And sixthdat <= ue1 Then
                           Y1P1 = Y1P1 + 1 'P1 = a,a,a,a,a,a
Lots of:            End If

As soon as the first FALSE occurs, there's no reason to check further conditions.  For example, if DrawCount = 110, you don't have to check your data against anything.  You just skipped 12 IF condition comparisons!

[SMcNeill]

Second step would be to consolidate your logic.

Instead of:

Code: [Select]


    If firstdat >= le1 And firstdat <= ue1 And seconddat >= le1 And seconddat <= ue1 And thirddat >= le1 And thirddat <= ue1 And forthdat >= le1 And forthdat <= ue1 And fifthdat >= le2 And fifthdat <= ue2 And sixthdat >= le2 And sixthdat <= ue2 And DrawCount <= 104 Then
        Y1P3 = Y1P3 + 1 'P3 = a,a,a,a,b,b
    End If
 
    If firstdat >= le1 And firstdat <= ue1 And seconddat >= le1 And seconddat <= ue1 And thirddat >= le1 And thirddat <= ue1 And forthdat >= le2 And forthdat <= ue2 And fifthdat >= le2 And fifthdat <= ue2 And sixthdat >= le2 And sixthdat <= ue2 And DrawCount <= 104 Then
        Y1P4 = Y1P4 + 1 'P4 = a,a,a,b,b,b
    End If
 
    If firstdat >= le1 And firstdat <= ue1 And seconddat >= le1 And seconddat <= ue1 And thirddat >= le2 And thirddat <= ue2 And forthdat >= le2 And forthdat <= ue2 And fifthdat >= le2 And fifthdat <= ue2 And sixthdat >= le2 And sixthdat <= ue2 And DrawCount <= 104 Then
        Y1P5 = Y1P5 + 1 'P5 = a,a,b,b,b,b
    End If
 
    If firstdat >= le1 And firstdat <= ue1 And seconddat >= le2 And seconddat <= ue2 And thirddat >= le2 And thirddat <= ue2 And forthdat >= le2 And forthdat <= ue2 And fifthdat >= le2 And fifthdat <= ue2 And sixthdat >= le2 And sixthdat <= ue2 And DrawCount <= 104 Then
        Y1P6 = Y1P6 + 1 'P6 = a,b,b,b,b,b
    End If
 

ALL 6 of those start with the same logic:   If firstdat >= le1 And firstdat <= ue1 THEN...

Simply check those conditions once and be done with it.  If firstdat < le1, you're not going to increment YIP1, YIP2, YIP3, YIP4, YIP5, OR YIP6.

ONE logic check eliminates them all here...


An event better example is DrawCount.  Almost all your condition checks depend on DrawCount being less than 104...  Just check it once and be done with it.  Save all those multiple condition checks.

[bplus]

DrawCount? where's that coming from?

I would like to know if these number ranges are from the same unit sources like a screen graphic all x and y stuff or are they independent numeric ranges like horse race jockey win/loss%, race track conditions muddy to dry, length of race...

But as Steve is picking up on, there appears to be too much repeat testing.

[SMcNeill]

DrawCount? where's that coming from?

We're not seeing the whole program; just the comparison routine from it.  (Notice there's also no OPEN statement before the EOF(1)?)  DrawCount has to be established BEFORE this point in the program, so we should be able to check if it's less than 104 before anything else.  As far as I can tell, there's absolutely no point in the WHILE loop which changes its value...

IF DrawCount <= 104 THEN
     WHILE NOT EOF(1)

[SMcNeill]

I would like to know if these number ranges are from the same unit sources like a screen graphic all x and y stuff or are they independent numeric ranges like horse race jockey win/loss%, race track conditions muddy to dry, length of race...

I'm guessing we're doing some sort of lotto number analysis.  6 numbers, probably with values from 1 to 54, with a bonus ball.  ;)

[bplus]

I'm guessing we're doing some sort of lotto number analysis.  6 numbers, probably with values from 1 to 54, with a bonus ball.  ;)

Ha! Lotto, mathematicians call it a tax on mathematical ignorance ;-))

Fine to play with numbers though and pay in free time only.

[STxAxTIC]

Alzheimer's setting in boys? You both (steve and bplus) solved this over a year ago:

https://www.qb64.org/forum/index.php?topic=2122.msg113599

Follow that thread, or try to bite a chunk from the PDF I wrote about it (see attachment):

(Sup all?)

[Dimster]

Thanks for these approaches. The Draw refers to data drawn in another part of the program. I have a section where various sources (internet, newspapers, library resources etc) provide specific information. As you know GIGO to an ai program is not such a good thing, so I try to be sure the data being inputted is support from at lease 2 or 3 different sources. Drawn Data v's Reliable Data.

Another part of the program I can input Ranges which allow me to look at the results of all the data in different limits. So the lower end (le) and an upper end (ue). Say I want to look a temperatures between 60 and 90 degrees, and then time of day between 1200 hrs and 1700 hrs, etc. The Pattern search is meant to give a look at the over all picture when each element changes.

Hope that gives a little more back ground. Heading back to the drawing board. Been considering Select Case. I haven't tried it because I thought the "IF's" may be faster than the "SELECT's"

[Dimster]

Hi StxAxTIC . I haven't read the entire thread you have posted but will do so. I'm getting an Error 404 when I try to gab the PDF.

[Dimster]

Hello Again  STxAxTIC : I've read through "Order from Chaos" and at first blush the suggestion is to convert numeric to string and adopt a sorting routine. Some of the article is identifying a flaw in RND. I'll read it again as I'm not quite sure if a Pattern Search of strings is faster than one of numeric values nor is a Sort Order coming to mind for the data I'm working with.

I'm trying to search 2 years of data - each line of data represents information that occurred in a period of 1 week - the DrawCount = 104 is 2 years of data collection (as an aside, the DrawCount and DataCount are the same 2yr period). To give a little more context to the data being collected, as I have mentioned before, I'm into the stock market. I'm up against very smart traders, very smart hedge fund managers and very smart ai trading programs. Plus I ain't getting any younger. So to keep pace I'm trying to develop an ai program to help track my portfolio of stocks and the factors that impact them week to week. Ultimately to help me see when I'm in trouble or heading for trouble by understanding how past events have impacted them. Data like temperature impact oil stocks, gas stocks, Costco and Home Depot. The longer the adverse or good temperature lasts can have a bearing on company's health and share price.


All the data i'm collecting is stored numerically as everything I'm reading about ai programs comes with numeric formulas. I suppose Temp = 90 is easily convert to Temp$=STR$(Temp) but it feels like I'm giving up some accuracy in the conversion to and then back from.