Based on the following,
onion is matched by Miami (Arizona, Florida, Louisiana, Missouri, Oklahoma and Texas)
also Akiak, Alaska and Pampa, Texas
reorder is matched by Aguanga, California
also Atlanta, Georgia,Illinois,Indiana,Kansas,Louisiana,Michigan,Missouri, Nebraska and Texas
Demerara has only Hanapepe, Hawaii
AK 0200870 02419348 Akiak city 25 A 4889997 2880562 1.888 1.112 60.909447 -161.216002
AZ 0446350 02412991 Miami town 43 A 2270920 0 0.877 0. 33.395008 -110.872236
AZ 0474610 02409334 Tonto Basin CDP 57 S 81111991 7927 31.318 0.003 33.842671 -111.300926
AZ 0474665 02582879 Tonto Village CDP 57 S 865877 0 0.334 0. 34.319808 -111.139313
AZ 0478680 02582886 Vaiva Vo CDP 57 S 1193180 0 0.461 0. 32.716654 -111.926902
CA 0600464 02582929 Aguanga CDP 57 S 35222112 0 13.599 0. 33.452246 -116.85547
CO 0825115 02412603 Estes Park town 43 A 17876938 194282 6.902 0.075 40.373564 -105.549775
FL 1245000 02404247 Miami city 25 A 93205698 51994689 35.987 20.075 25.775163 -80.208615
FL 1245025 02404248 Miami Beach city 25 A 19903822 19510956 7.685 7.533 25.810596 -80.148852
FL 1245060 02404249 Miami Gardens city 25 A 47236363 2016214 18.238 0.778 25.948892 -80.243585
FL 1245100 02406152 Miami Lakes town 43 A 14676712 2203733 5.667 0.851 25.912739 -80.320422
FL 1245175 02407502 Miami Shores village 47 A 6440816 3346988 2.487 1.292 25.867011 -80.178341
FL 1245200 02404250 Miami Springs city 25 A 7596180 164271 2.933 0.063 25.819722 -80.289987
GA 1304000 02403126 Atlanta city 25 A 345591164 2405947 133.434 0.929 33.762909 -84.422675
HI 1511800 02414033 Hanapepe CDP 57 S 2391632 248988 0.923 0.096 21.913311 -159.588164
IL 1702752 02394014 Atlanta city 25 A 3273142 19901 1.264 0.008 40.263574 -89.230845
IN 1802602 02397443 Atlanta town 43 A 780985 0 0.302 0. 40.21348 -86.026552
KS 2003050 02394016 Atlanta city 25 A 1239366 0 0.479 0. 37.435738 -96.766978
KY 2158116 02629659 Onton CDP 57 S 2137008 9801 0.825 0.004 37.561375 -87.439333
LA 2203390 02407412 Atlanta village 47 A 2803033 0 1.082 0. 31.806402 -92.738334
MI 2603920 02393321 Atlanta CDP 57 S 8516984 426264 3.288 0.165 44.999167 -84.158633
MO 2902422 02394015 Atlanta city 25 A 886828 2384 0.342 0.001 39.898224 -92.480278
MO 2947684 02395108 Miami city 25 A 1446987 185896 0.559 0.072 39.322473 -93.225907
NE 3102620 02398005 Atlanta village 47 A 598856 0 0.231 0. 40.368409 -99.473223
OH 3949420 02585513 Miami Heights CDP 57 S 8980097 0 3.467 0. 39.168841 -84.714947
OK 4048000 02411093 Miami city 25 A 28070711 219013 10.838 0.085 36.887 -94.873378
TX 4804516 02409749 Atlanta city 25 A 32374780 393234 12.5 0.152 33.113238 -94.16761
TX 4847988 02411094 Miami city 25 A 3028642 0 1.169 0. 35.692311 -100.641565
TX 4854912 02411365 Pampa city 25 A 23351667 0 9.016 0. 35.547863 -100.965025
DefDbl A-Z
Dim crlf$
Private Sub Form_Load()
Form1.Visible = True
Text1.Text = ""
crlf = Chr$(13) + Chr$(10)
Open "2017_Gaz_place_national.txt" For Input As #1
Do
Line Input #1, l$
ls$ = l
l$ = Mid(l, 21)
ix = InStr(l, " ")
n$ = LCase(Left(l, ix - 1))
good = 0
If match("onion", n) Then good = 1
If match("reorder", n) Then good = 1
If match("demerara", n) Then good = 1
If good Then
Text1.Text = Text1.Text & LTrim(RTrim(ls)) & crlf
End If
DoEvents
Loop Until EOF(1)
Close 1
Text1.Text = Text1.Text & crlf & " done"
End Sub
Function match(a$, b$)
If Len(a) <> Len(b) Then match = 0: Exit Function
good = 1
For i = 1 To Len(a) - 1
c1$ = Mid(a, i, 1)
c2$ = Mid(b, i, 1)
ix1 = InStr(i + 1, a, c1)
ix2 = InStr(i + 1, b, c2)
If ix1 <> ix2 Then good = 0: Exit For
Next i
match = good
End Function
|
|
Posted by Charlie
on 2017-10-23 15:52:28 |
computer findings
