Questione : Soluzione del geocache di puzzle

Sto provando a risolvere un geocache di puzzle. Chiunque ha di idea dove cominciare? il

Here è il collegamento al rel= " nofollow " " del _blank " " del target= " di http://www.geocaching.com/seek/cache_details.aspx?guid=c9cedb13-a1f7-4a56-8ff9-35e748bc23c2&log=y&decrypt= del href= di page.

seek/cache_details.aspx di http://www.geocaching.com/? le cose rapide del

First del guid=c9cedb13-a1f7-4a56-8ff9-35e748bc23c2&log=y&decrypt=

The Brown Fox

N 44° 20.403 W 074° 21.042 in primo luogo, il nascondiglio non è situata alle coordinate date; gli forniscono semplicemente un posto piacevole per parcheggiare e pensare e risolvere il crittogramma qui sotto. Il nascondiglio è fra 0.25 miglia e 6.50 miglia a partire dalle coordinate originali. Ho contato 18 generi di alberi fra la mia automobile e la posizione del nascondiglio, ho veduto 3 generi di uccelli, 4 tipi di piste degli animali e l'97% sure che ho veduto un gatto selvatico. Buona fortuna che trova questo nascondiglio, è in qualche realmente bello woods.

1-4-1, 2-1-2, 3-2-6, 4-2-3, 1-8-4, 2-2-1, 3-12-4, 4-8-4, 1-1-2, 2-3-2, 3-2-3, 4-3-3, 1-8-7, 2-4-5, 3-6-2, 4-4-1, 1-2-2, 2-2-5, 3-7-1, 4-4-3, 1-2-5, 4-1-1, 2-1-3, 3-4-5, 1-2-1, 4-9-1, 3-2-2, 4-2-3, 3-4-1, 1-9-1, 2-4-3, 3-4-3, 3-19-1, 3-19-1, 2-5-3, 2-8-4, 2-5-2, 3-15-1, 3-26-2, 3-19-1, 4-11-1, 2-5-1, 3-26-2, 3-19-1, 2-5-3, 3-3-1, 2-5-2, 3-19-1, 2-5-4, IS-IS del contenitore del nascondiglio di 3-26-2

The munizione-può riempito di articoli commerciali, un libro macchina e un

You di suggerimenti di pencil.

Additional (cifrare) dovrebbero potere calcolare fuori questo con un tabulato dell'elenco e di una matita class= del

Risposta : Soluzione del geocache di puzzle

Qui è un metodo, risultati su sheet2.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

X secondaria ()

oDic fioco come oggetto, sNames () come stringa, vInput (), i come lungamente, n come lungamente

vInput = Sheet1.Range (“A1„, Sheet1.Range (“C„ & Rows.Count). Estremità (xlUp)). Valore
sNames di ReDim (1 a UBound (vInput, 1), 1 - 3)
oDic stabilito = CreateObject (“Scripting.Dictionary„)

Con oDic
    Per i = 1 a UBound (vInput, 1)
        Se non. Esiste (vInput (i, 1)) allora
            n = n + 1
            sNames (n, 1) = vInput (i, 1)
            sNames (n, 2) = vInput (i, 2) & “(" & vInput (i, 3) & ")„
            sNames (n, 3) = vInput (i, 3)
            . Aggiungere il vInput (i, 1), n
        ElseIf. Esiste (vInput (i, 1)) allora
            sNames (. Articolo (vInput (i, 1)), 2) = sNames (. Articolo (vInput (i, 1)), 2) & “,„ & vInput (i, 2) & “(" & vInput (i, 3) & ")„
            sNames (. Articolo (vInput (i, 1)), 3) = sNames (. Articolo (vInput (i, 1)), 3) + vInput (i, 3)
        Concluder se
    Dopo i
Estremità con

Sheet2.Range (“A1„). Ridimensionare (n, 3) = sNames

Concludere il sommergibile
Altre soluzioni  
 
programming4us programming4us