View Full Version : [VB6] Modificar uma string


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 ;)

Kayvlim
19-07-2008, 02:33
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