GhostBuster
19-07-2008, 01:11
Boas
Então as minhas duvidas são as seguintes
cria criar um ciclo que percorresse as letras de A a Z
depois tabém cria apagar uma parte de uma string, tudo o que está depois de um . (ponto)
Armadillo
19-07-2008, 01:15
tens varias formas de fazer isso
talvez a mais simples mas a menos "purista"
temp = split(minhaString, ".")
resultado = temp(0)
GhostBuster
19-07-2008, 01:23
obrigadao, essa parte já pus a funcionar, agora só falta a parta do ciclo
a minha ideia era de fazer um ciclo que fosse de A a Z
Armadillo
19-07-2008, 01:30
entao, vamos percorrer a tabela ASCII :D
for i = 65 to 90
temp = temp & asc(i)
next i
verifica se sao estes os valores ;)
GhostBuster
19-07-2008, 01:44
já consegui, fiz quase igual só que no lugar do "asc" tive que por "Chr" e ficou a funcionar
cumprimentos ;)
Sim, aquilo foi mesmo um engano do Armadillo :) a variável "i" tem um número ASCII, e o que queres é o CHaRacter correspondente.
No entanto, para evitar esses Magic Numbers, usa o vbKeyA e o vbKeyZ em vez do 65 e 90.
Mais ainda, somando 32 (um XOR com 00100000, ou 32) tens os minúsculos :)
for i = vbKeyA to vbKeyZ
temp = temp & chr(i)
next i
for i = vbKeyA + 32 to vbKeyZ + 32
temp = temp & chr(i)
next i
Mas até para evitar o 32 como hardcode,
for i = Asc("A") to Asc("Z")
temp = temp & chr(i)
next i
for i = Asc("a") to Asc("z")
temp = temp & chr(i)
next i