1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

[VB6] Modificar uma string

Discussão em 'Programação' iniciada por GhostBuster, 19 de Julho de 2008. (Respostas: 5; Visualizações: 728)

  1. 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)
     
  2. Armadillo

    Armadillo Folding Member

    tens varias formas de fazer isso

    talvez a mais simples mas a menos "purista"
    Código:
    temp = split(minhaString, ".")
    resultado = temp(0)
    
     
    Última edição: 19 de Julho de 2008
  3. 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
     
  4. Armadillo

    Armadillo Folding Member

    entao, vamos percorrer a tabela ASCII :D
    Código:
    for i = 65 to 90
       temp = temp & asc(i)
    next i
    
    verifica se sao estes os valores ;)
     
  5. já consegui, fiz quase igual só que no lugar do "asc" tive que por "Chr" e ficou a funcionar

    cumprimentos ;)
     
  6. Kayvlim

    Kayvlim Undefined Moderator
    Staff Member

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

    Código:
    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,

    Código:
    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
    
     
    Última edição: 19 de Julho de 2008

Partilhar esta Página