Let's compile a ist of all geographic/geopolitical entities whose names contain at least 3 letters A and no other vowels.
Include states (like Alabama), rivers (Angara), mountains (Ararat), cities (Larnaca) etc.
Your entries must appear in reliable dictionary/atlas/database.
(In reply to
mountains by Charlie)
From a more extensive list on Wikipedia (lower mountains are included, though it professes to be incomplete):
K2
Nanga Parbat
Namcha Barwa
K12
Chamlang
K6
Mana Peak
Shah Dhar
K7
Ama Dablam
Changla
Aracar
Falak Sar
Mount Damavand
Kala Patthar
Shkhara
Amarnath Peak
Mount Ararat
Janga
Sabalan
Mont Blanc
Mount Slaggard
Naltar Peak
Mount Walsh
Mount Harvard
Blanca Peak
La Plata Peak
Mount Shasta
Mönch
Mount Aragats
Latsga
Francs Peak
Mount Dana
Lanín
Mount Adams
Mount Adams
Sahand
Makra Peak
Mount Tasman
Mount Athabasca
Ward Mountain
Mount Ball
Ag Dag
Mount Arakawa
Mount Tahat
Mount Tallac
Mount Arfak
Watzmann
Half Dome
Hajla
Mount Karthala
Mount Tahan
Crna Glava
Mount Asgard
Hallasan
Saca Peak
Mount Adams
Peak 5390
Askja
Parasnath
Mount Kanaga
Rajabasa
Ka?ala
Namamsan
Avala
Hwajangsan
As you can see, I've allowed words such as Mount, Peak or Mont.
Open "allmountains2.txt" For Input As #1
Do
Line Input #1, l$
If Left(l, 4) = "<tr>" Then
trset = 1
Else
If trset Then
If Left(l, 6) = "<td><a" Then
ix1 = InStr(7, l, ">")
If ix1 > 0 Then
ix2 = InStr(ix1, l, "<")
n$ = Mid(l, ix1 + 1, ix2 - ix1 - 1)
n2$ = LCase(n)
ix = InStr(n2, "mountain")
If ix > 0 Then n2 = Left(n2, ix - 1) + Mid(n2, ix + 8)
ix = InStr(n2, "mount")
If ix > 0 Then n2 = Left(n2, ix - 1) + Mid(n2, ix + 5)
ix = InStr(n2, "dome")
If ix > 0 Then n2 = Left(n2, ix - 1) + Mid(n2, ix + 4)
ix = InStr(n2, "mont ")
If ix > 0 Then n2 = Left(n2, ix - 1) + Mid(n2, ix + 5)
ix = InStr(n2, "massif")
If ix > 0 Then n2 = Left(n2, ix - 1) + Mid(n2, ix + 6)
ix = InStr(n2, "peak")
If ix > 0 Then n2 = Left(n2, ix - 1) + Mid(n2, ix + 4)
good = 1
For i = 1 To Len(n2)
If InStr("eiouy", Mid(n2, i, 1)) > 0 Then good = 0: Exit For
Next
If good Then Text1.Text = Text1.Text & n & crlf
End If
End If
End If
trset = 0
End If
DoEvents
Loop Until EOF(1)
Close 1
|
|
Posted by Charlie
on 2019-04-18 15:27:35 |
more mountains
