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 Rivers in the U.S. -- computer findings by Charlie)

Kandahar                Afghanistan
Jalalabad               Afghanistan
Annaba                  Algeria
Batna                   Algeria
Béjaïa                Algeria
Béchar                 Algeria
Médéa                 Algeria
Saïda                  Algeria
La Plata                Argentina
Salta                   Argentina
Bahía Blanca           Argentina
Paraná                 Argentina
Ganja                   Azerbaijan
Manama                  Bahrain
Dhaka                   Bangladesh
Nawabganj               Bangladesh
Pabna                   Bangladesh
La Paz                  Bolivia
Pará                   Brazil
Pará                   Brazil
Pará                   Brazil
Paraná                 Brazil
Araras                  Brazil
Bagé                   Brazil
Barra Mansa             Brazil
Pará                   Brazil
Paraíba                Brazil
Paraná                 Brazil
Castanhal               Brazil
Pará                   Brazil
Paraná                 Brazil
Paraná                 Brazil
Paraná                 Brazil
Franca                  Brazil
Paraná                 Brazil
Gravataí               Brazil
Jaú                    Brazil
Paraíba                Brazil
Paraná                 Brazil
Macaé                  Brazil
Macapá                 Brazil
Amapá                  Brazil
Magé                   Brazil
Marabá                 Brazil
Pará                   Brazil
Maracanaú              Brazil
Paraná                 Brazil
Natal                   Brazil
Palmas                  Brazil
Paraná                 Brazil
Parnaíba               Brazil
Paraná                 Brazil
Paraná                 Brazil
Sabará                 Brazil
Paraíba                Brazil
Santarém               Brazil
Pará                   Brazil
Paraná                 Brazil
Paraná                 Brazil
Varna                   Bulgaria
Battambang              Cambodia
Laval                   Canada
Markham                 Canada
Ajax                    Canada
Sarh                    Chad
Kananga                 Democratic Republic of the Congo
Mbandaka                Democratic Republic of the Congo
Baraka                  Democratic Republic of the Congo
Havana                  Cuba
Matanzas                Cuba
Santa Clara             Cuba
Larnaca                 Cyprus
Baní                   Dominican Republic
Machala                 Ecuador
Manta                   Ecuador
Manabí                 Ecuador
Manabí                 Ecuador
Bata                    Equatorial Guinea
Asmara                  Eritrea
Amhara                  Ethiopia
Adama                   Ethiopia
Hawassa                 Ethiopia
SNNPR                   Ethiopia
Amhara                  Ethiopia
Amhara                  Ethiopia
SNNPR                   Ethiopia
SNNPR                   Ethiopia
SNNPR                   Ethiopia
Harar                   Ethiopia
Harar                   Ethiopia
SNNPR                   Ethiopia
Amhara                  Ethiopia
Amhara                  Ethiopia
Vantaa                  Finland
Accra                   Ghana
Kankan                  Guinea
Mashhad                 Iran
Karaj                   Iran
Fars                    Iran
Ahvaz                   Iran
Rasht                   Iran
Arak                    Iran
Hamadan                 Iran
Bandar Abbas            Iran
Qazv?n                  Iran
Zanjan                  Iran
Zanjan                  Iran
Sanandaj                Iran
Malard                  Iran
Kashan                  Iran
Mazandaran              Iran
Najafabad               Iran
Mazandaran              Iran
Mazandaran              Iran
Abadan                  Iran
Pakdasht                Iran
Mazandaran              Iran
Gharchak                Iran
Hamadan                 Iran
Mahshahr                Iran
Rafsanjan               Iran
Mahabad                 Iran
Marvdasht               Iran
Fars                    Iran
Marand                  Iran
Fars                    Iran
Kamal Shahr             Iran
Nazarabad               Iran
Bam                     Iran
Fasa                    Iran
Fars                    Iran
Malé                   Maldives
Rafah                   Palestine
Malakal                 South Sudan
Ashgabat                Turkmenistan
Kampala                 Uganda
Dallas                  United States
Atlanta                 United States
Kansas                  United States
Tampa                   United States
Santa Ana               United States
Alaska                  United States
Garland                 United States
Alabama                 United States
Alabama                 United States
Arkansas                United States
Alabama                 United States
Alabama                 United States
Kansas                  United States
Kansas                  United States
Savannah                United States
Kansas                  United States
Kansas                  United States
Santa Clara             United States
Arvada                  United States
Carlsbad                United States
Namangan                Uzbekistan
Namangan                Uzbekistan
Karakalpakstan          Uzbekistan
Samarkand               Uzbekistan
Samarqand               Uzbekistan
Karakalpakstan          Uzbekistan
Sana'a                  Yemen
Sana'a                  Yemen
Dhamar                  Yemen
Dhamar                  Yemen
Kasama                  Zambia

Please pardon the duplications, foreign characters, unprinted characters, and resulting misalignments.

 Open "worldcities.txt" For Input As #1
 Do
   Line Input #1, l$
   DoEvents
   If InStr(l, "Afghanistan") > 0 Then
     xx = xx
   End If
   
   If Left(l, 5) = "<h2><" Then
     ix1 = InStr(7, l, ">")
     If ix1 > 0 Then
       ix2 = InStr(ix1 + 1, l, "<"): If ix2 = 0 Then ix2 = Len(RTrim(l)) + 1
       country$ = Mid(l, ix1 + 1, ix2 - ix1 - 1)
       xx = xx
     End If
   ElseIf Left(l, 5) = "<td><" Then
     ix1 = InStr(7, l, ">")
     If ix1 > 0 Then
       ix2 = InStr(ix1 + 1, l, "<"): If ix2 = 0 Then ix2 = Len(RTrim(l)) + 1
       city$ = Mid(l, ix1 + 1, ix2 - ix1 - 1)
       good = 1
       For i = 1 To Len(city)
         If InStr("eiouyEIOUY", Mid(city, i, 1)) > 0 Then good = 0: Exit For
       Next
       If good Then
        If LTrim(city) > "" Then
        If Left(city, 1) >= "A" Then
         Text1.Text = Text1.Text & Left(city + Space(20), 20) & "    " & country & crlf
        End If
        End If
       End If
     End If
   
   End If
 
 Loop Until EOF(1)
 Close 1

Posted by Charlie on 2019-04-17 20:33:34