1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br
Cookies Anuncie aqui Patrocinador Anuncios

Deixar código como Case Sensitive

Discussão em 'Progress 4GL' iniciado por xPaulinhox, Março 16, 2009.

Página 1 de 2
  1. xPaulinhox

    xPaulinhox Membro Participativo

    Galerinha pelo que eu sei o progress não é CS (Case Sensitive) mas eu quero escrever um código que deixe ele CS, existe algum comando para tal????

    Ex.

    DEFINE VARIABLE c-txt AS CHARACTER.

    c-txt = "teste".

    IF c-txt = "TESTE" THEN
    MESSAGE 1
    VIEW-AS ALERT-BOX INFO BUTTONS OK.
    ELSE
    MESSAGE 2
    VIEW-AS ALERT-BOX INFO BUTTONS OK.

    o resultado do código acima esta dando 1, mas eu quero que seja 2 pois eu quero que ele identifique que "A" é diferente de "a" , mas eu quero só para o meu código não quero deixar ele pra sempre CS.

    Grato!!!
    xPaulinhox, Março 16, 2009
    #1
  2. eduardo.leite

    eduardo.leite Equipe de Suporte Moderador Equipe de Suporte

    Caro colega,

    Verifique se a rotina abaixo te atende:

    Código:
    DEF VAR c-texto-ori     AS CHARACTER        NO-UNDO.
DEF VAR c-texto-des     AS CHARACTER        NO-UNDO.

DEF VAR c-texto         AS CHARACTER        NO-UNDO.

DEF VAR i               AS INTEGER          NO-UNDO.

ASSIGN c-texto-ori = "texto"
       c-texto-des = "Texto"
       c-texto     = "".

DO i = 1 TO LENGTH(c-texto-ori):
    ASSIGN c-texto = c-texto + STRING(ASC(SUBSTR(c-texto-ori,i,1))).
END.
ASSIGN c-texto-ori = c-texto
       c-texto     = "".

DO i = 1 TO LENGTH(c-texto-des):
    ASSIGN c-texto = c-texto + STRING(ASC(SUBSTR(c-texto-des,i,1))).
END.
ASSIGN c-texto-des = c-texto.

IF c-texto-ori = c-texto-des THEN
    MESSAGE "Texto Igual:"   SKIP
            c-texto-ori         SKIP
            c-texto-des         VIEW-AS ALERT-BOX INFO BUTTONS OK.
ELSE
    MESSAGE "Texto Diferente:"  SKIP
            c-texto-ori         SKIP
            c-texto-des         VIEW-AS ALERT-BOX INFO BUTTONS OK.

    Att.


    Eduardo Leite
    Analista de Sistemas
    eduardo.leite, Março 16, 2009
    #2
  3. xPaulinhox

    xPaulinhox Membro Participativo

    Ohh carinha, isso mesmo que eu tava querendo.

    vlw mesmo, grande abraço
    xPaulinhox, Março 17, 2009
    #3
  4. xPaulinhox

    xPaulinhox Membro Participativo

    Cara pra completar só falta uma coisinha.

    como que eu faço o processo contrário????

    por exemplo:
    65 = A ( em ascii)

    e digamos que eu tenho o seguinte código:
    Código:
    DEFINE VARIABLE i-texto1 AS INTEGER.

i-texto1 = 65.

DISP ??????????????.
    o que eu preciso colocar no lugar dos ????????????? para obter o valor de "A" sem precisar fazer isso:
    Código:
    DEFINE VARIABLE i-texto1 AS INTEGER.
DEFINE VARIABLE c-new_vl AS CHARACTER.

i-texto1 = 65.

IF i-texto1 = 65 THEN
    c-new_vl = "A".
ELSE
    IF i-texto1 = 66 THEN
        c-new_vl = "B".

DISP c-new_vl.
    e sem usar o case também.

    tem algum jeito????

    vlw abraço
    xPaulinhox, Março 17, 2009
    #4
  5. eduardo.leite

    eduardo.leite Equipe de Suporte Moderador Equipe de Suporte

    Caro amigo,


    Use o comando CHR()... segue exemplo:

    Código:
    
def var i-texto-1     as int  no-undo.
def var i-texto-2     as int  no-undo.

assign i-texto-1 = 65 /* A */
       i-texto-2 = 66 /* B */.

message chr(i-texto-1) skip
        chr(i-texto-2) view-as alert-box.
    eduardo.leite, Março 17, 2009
    #5
  6. xPaulinhox

    xPaulinhox Membro Participativo

    Perfeito cara mais uma vez vlw ae.

    era isso mesmo que eu tava querendo.

    forte abraço

    at+
    xPaulinhox, Março 17, 2009
    #6
Página 1 de 2

Compartilhe esta Página