SCRABBL€ EBT

[JP Simões]

Tudo em ordem agora

[lmviterbo]

Caso alguém esteja interessado, aqui vão as fórmulas que criei para calcular instantaneamente os valores Scrabble das minhas localidades todas.

No ficheiro exportado pelo EBT (ou importado pelo NIG, que é o mesmo), acrescentei o seguinte:

Uma nova folha de cálculo, a que chamei "letras", com os seguintes dados:

Code: Select all

a	 97	1
b	 98	3
c	 99	2
d	100	2
e	101	1
f	102	4
g	103	4
h	104	4
i	105	1
j	106	5
k	107	10
l	108	2
m	109	1
n	110	3
o	111	1
p	112	2
q	113	6
r	114	1
s	115	1
t	116	1
u	117	1
v	118	4
w	119	10
x	120	8
y	121	10
z	122	8
ç	231	3
á	225	1
â	226	1
ã	227	1
à	224	1
é	233	1
ê	234	1
í	237	1
ó	243	1
ô	244	1
ú	250	1
ü	252	1
A	 65	1
B	 66	3
C	 67	2
D	 68	2
E	 69	1
F	 70	4
G	 71	4
H	 72	4
I	 73	1
J	 74	5
K	 75	10
L	 76	2
M	 77	1
N	 78	3
O	 79	1
P	 80	2
Q	 81	6
R	 82	1
S	 83	1
T	 84	1
U	 85	1
V	 86	4
W	 87	10
X	 88	8
Y	 89	10
Z	 90	8
Ç	199	3
Á	193	1
Â	194	1
Ã	195	1
À	192	1
É	201	1
Ê	202	1
Í	205	1
Ó	211	1
Ô	212	1
Ú	218	1
Ü	220	1

Os valores da 2ª coluna são os códigos das respectivas letras. Variam de sistema para sistema (no Windows em português podem ser completamente diferentes de um Mac ou um Linux em inglês). Por isso, de facto, o que lá tenho não são os valores, mas sim a fórmula =CODE(A1) (em B1, e copiada para o resto da coluna).

Depois, na folha de cálculo principal (notes_entered_by_XXXXX), acrescentei as seguintes fórmulas (sempre na 2ª linha - que é onde está a primeira nota -, e depois copiar para o resto da coluna):

Coluna O (retirar espaços, apóstrofes e hífens): =SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(F2;CHAR(32);"");CHAR(39);"");CHAR(45);"")
Colunas P a AD (1ª a 15ª letra): =IF(ISERROR(INDEX(letras!$B$1:$C$76;MATCH(CODE(MID($O2;COLUMN()-15;1));letras!$B$1:$B$76;0);2));"";INDEX(letras!$B$1:$C$76;MATCH(CODE(MID($O2;COLUMN()-15;1));letras!$B$1:$B$76;0);2))
Coluna AE (Carreira): =IF(LEN(O2)<16;IF(G2="Portugal";SUM(P2:AD2);0);0)

Por fim, ainda acrescentei mais 3 colunas para o cálculo dos valores mensais:

Coluna AF (bónus x): =IF(LEFT(C2;1)="M";IF(LEFT(I2)="P";3;IF(LEFT(C2)="L";2;1));IF(LEFT(C2)="L";2;1))
Coluna AG (bónus hits): aqui acrescento à mão os 10 ou 20 pontos de cada hit
Coluna AH (Mensal): =AE2*AF2+AG2

A solução não é nada elegante, eu sei, mas foi o que se arranjou rapidamente. Se alguém quiser, copie à vontade. Funciona.


Nota final: no meu ficheiro, por qualquer razão que terá que ver com a mudança para UTF-8 dos ficheiros do EBT, os nomes das localidades com acentos aparecem marados. Por isso, tive de fazer uma pequena macro para correr antes de tudo o mais. Talvez este problema ocorra também aos outros, pelo que aqui vai a macro:

Code: Select all

Sub ScrabbleCityNames()
'
' ScrabbleCityNames Macro
' Corrige acentos
' Macro created 18-06-2006 by lmviterbo
'
    Columns("F:F").Select
    Selection.Replace What:="é", Replacement:="é", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="ç", Replacement:="ç"
    Selection.Replace What:="ã", Replacement:="ã"
    Selection.Replace What:="á", Replacement:="á"
    Selection.Replace What:="ú", Replacement:="ú"
    Selection.Replace What:="â", Replacement:="â"
    Selection.Replace What:="ê", Replacement:="ê"
    Selection.Replace What:="ñ", Replacement:="ñ"
    Selection.Replace What:="õ", Replacement:="õ"
End Sub

Falta aqui o í e as maiúsculas com acentos, mas não tenho nenhuma localidade assim, pelo que não sei em que é que se transformam...

[JP Simões]

Picuinhice:

As 3 colunas que acrescentaste devem começar provavelmente em AF, pois AE já está ocupada. Já agora, o que é que deve aparecer na coluna AE? Por enquanto dá-me 0 (a sério, mas isto já se deve resolver).

Entretanto, introduzi uma nota na localidade "ÁÉÍÓÚÀÈÌÒÙÃÕÇÄËÏÖÜÂÊÎÔÛí" e o que o ficheiro CSV me deu foi "Ã

[lmviterbo]

As 3 colunas que acrescentaste devem começar provavelmente em AF, pois AE já está ocupada.

Tanques, já corrigi.

Já agora, o que é que deve aparecer na coluna AE? Por enquanto dá-me 0 (a sério, mas isto já se deve resolver).

Hmmm... Devia aparecer o total (de carreira) por cada uma das localidades. Só devia aparecer "0" nas localidades fora de Portugal ou com mais de 15 letras.

Em relação à macro para corrigir acentos marados, obrigado, esta noite já acrescento os restantes!

[jccom]

jccom = 112

Póvoa de varzim - 2+1+4+1+1+2+1+4+1+1+8+1+1 = 28
Viana do castelo - 4+1+1+3+1+2+1+2+1+1+1+1+2+1 = 22
Barroca grande - 3+1+1+1+1+2+1+4+1+1+3+2+1 = 22
Castelo branco - 2+1+1+1+1+2+1+3+1+1+3+2+1 = 20
Carnaxide - 2+1+1+3+1+8+1+2+1 = 20

[JP Simões]

Já agora, o que é que deve aparecer na coluna AE? Por enquanto dá-me 0 (a sério, mas isto já se deve resolver).

Hmmm... Devia aparecer o total (de carreira) por cada uma das localidades. Só devia aparecer "0" nas localidades fora de Portugal ou com mais de 15 letras.

Em relação à macro para corrigir acentos marados, obrigado, esta noite já acrescento os restantes!

Eu tive que alterar a fórmula, de:

Code: Select all

=IF(ISERROR(INDEX(letras!$B$1:$C$76;MATCH(CODE(MID($O2;COLUMN()-15;1));letras!$B$1:$B$76;0);2));"";INDEX(letras!$B$1:$C$76;MATCH(CODE(MID($O2;COLUMN()-15;1));letras!$B$1:$B$76;0);2))

para

Code: Select all

=IF(ISERROR(INDEX(Letras!$B$1:$C$76;MATCH(CODE(MID($O2;COLUMN()-15;1));Letras!$B$1:$B$76;0);2));0;INDEX(Letras!$B$1:$C$76;MATCH(CODE(MID($O2;COLUMN()-15;1));Letras!$B$1:$B$76;0);2))

(substituí "" por 0)

e depois

Code: Select all

=IF(LEN(O2)<16;IF(G2="Portugal";SUM(P2:AD2);0);0)

para

Code: Select all

=IF(LEN(O2)<16;IF(G2="Portugal";(P2+Q2+R2+S2+T2+U2+V2+W2+X2+Y2+Z2+AA2+AB2+AC2+AD2);0);0)

(somando os valores das 15 letras porque não estavam reconhecidos como números, o SUM() não funcionava)

[margata]

E eu que andei a contar uma a uma!!!

[batataxpto69]

BEJA
http://www.eurobilltracker.eu/index.php ... id=7884550
3+1+5+1=10+20=30

CASTELO BRANCO
http://www.eurobilltracker.eu/index.php ... d=20507257
2+1+1+1+1+2+1=9+3+1+1+3+2+1=20

LISBOA
http://www.eurobilltracker.eu/index.php ... d=20970178
2+1+1+3+1+1=9

SÃO JACINTO
http://www.eurobilltracker.eu/index.php ... d=20970284
1+1+1=3+5+1+2+1+3+1+1=17

TABERNA SÊCA
http://www.eurobilltracker.eu/index.php ... d=20507571
1+1+3+1+1+3+1=11+1+1+2+1=16

TUDO JUNTO = 85

[rcor]

Alteração:

http://www.eurobilltracker.eu/index.php ... d=17805428
Esta nota passa a ser a minha 3ª com 20 pontos e sai da lista Ourique

[JP Simões]

Parece que ninguém está interessado num ranking mensal...

Podíamos utilizar as bonificações para o Ranking de carreira ou omiti-los totalmente, a não ser que alguém queira mesmo continuar com o ranking mensal.

[lmviterbo]

Zé da Silva, o ranking está maravilhoso!!!

Eu tinha detectado umas falhas ontem à noite (pipocadoce, Hugo&Any, pastel, DAVID & KATY, FANTAS), mas pelos vistos já foram todas corrigidas. Muito muito bem!

Mas esta mensagenzita fazia falta, caso contrário este Scrabbl€ não voltava a aparecer em cima. Espero que os novos na lista vejam isto e escrevam aqui abaixo os links das localidades.

[JP Simões]

Eu tinha detectado umas falhas ontem à noite (pipocadoce, Hugo&Any, pastel, DAVID & KATY, FANTAS), mas pelos vistos já foram todas corrigidas. Muito muito bem!

Sim, acho que ontem à noite parei na página 1 e não me apeteceu continuar. Fiz isso hoje.

Aliás, descobri também utilizadores que tinham cidades com mais pontos que aquelas que me tinham indicado.

E obrigado por enviares este tópico cá para cima.

[lmviterbo]

[...] foram [...]

Corrigido, tks

[eurojuanmi]

This is the link?
Portalegre
Monforte
Estremoz
Elvas

what is 1 spaço vago?

[JP Simões]

1. Thank you for the links. They will be added.
2. According to the rules, the 5 cities in Portugal (or Portuguese-speaking countries) that give you the most points (according to the scores on the first topic) will be considered for this ranking. As you only have 4 cities, you have 1 "espaço vago", or "unoccupied space".