Pergunta : Resolvendo um geocache do enigma

Eu estou tentando resolver um geocache do enigma. Qualquer um tem alguma idéia onde começar? o

Here é a ligação ao rel= " nofollow " do " _blank " " do target= de " http://www.geocaching.com/seek/cache_details.aspx?guid=c9cedb13-a1f7-4a56-8ff9-35e748bc23c2&log=y&decrypt= do href= de page.

o seek/cache_details.aspx de http://www.geocaching.com/? as coisas rápidas do

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

The Brown Fox

N 44° 20.403 W 074° 21.042 primeiramente, o esconderijo não são ficadas situadas nas côordenadas dadas; fornecem-no simplesmente um lugar agradável para estacionar abaixo e pensar e elaborar o criptograma. O esconderijo está entre 0.25 milhas e 6.50 milhas longe das côordenadas originais. Eu contei 18 tipos das árvores entre meu carro e a posição do esconderijo, vi 3 tipos dos pássaros, 4 tipos de trilhas dos animais, e am 97% sure que eu vi um lince. Boa sorte que encontra este esconderijo, está em algum 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 do recipiente do esconderijo de 3-26-2

The munição-pode enchido com os artigos de comércio, um registro, e um

You das sugestões de pencil.

Additional (cifrar) devem poder figurar para fora isto com um impresso da lista e de um lápis class= do

Resposta : Resolvendo um geocache do enigma

Está aqui uma aproximação, resultados em 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 secundário ()

oDic não ofuscante como o objeto, sNames () como a corda, vInput (), i como por muito tempo, n como por muito tempo

vInput = Sheet1.Range (“A1”, Sheet1.Range (“C” & Rows.Count). Extremidade (xlUp)). Valor
sNames de ReDim (1 a UBound (vInput, 1), 1 a 3)
oDic ajustado = CreateObject (“Scripting.Dictionary”)

Com oDic
    Para i = 1 a UBound (vInput, 1)
        Se não. Existe (vInput (i, 1)) Então
            n = n + 1
            sNames (n, 1) = vInput (i, 1)
            sNames (n, 2) = vInput (i, 2) & “(” & vInput (i, 3) & ")”
            sNames (n, 3) = vInput (i, 3)
            . Adicionar o vInput (i, 1), n
        ElseIf. Existe (vInput (i, 1)) Então
            sNames (. Artigo (vInput (i, 1)), 2) = sNames (. Artigo (vInput (i, 1)), 2) & “,” & vInput (i, 2) & “(” & vInput (i, 3) & ")”
            sNames (. Artigo (vInput (i, 1)), 3) = sNames (. Artigo (vInput (i, 1)), 3) + vInput (i, 3)
        Terminar se
    Em seguida i
Extremidade com

Sheet2.Range (“A1”). Resize (n, 3) = sNames

Terminar o submarino
Outras soluções  
 
programming4us programming4us