quinta-feira, 13 de outubro de 2016

Aula 939 - Windev Comandos 7/... - For String









Video Youtube , clique aqui para dar um joinha




Nessa aula vou mostrar como usar for com string

This lesson will show how to use is with string


http://doc.windev.com/en-US/?1510001&name=for_statement



Windev Curso Comandos/1 ... Condição - If
Windev Curso Comandos/2 ... Condição - Switch
Windev Curso Comandos/3 ... Loop
Windev Curso Comandos/4 ... WHILE
Windev Curso Comandos/5 ... For
Windev Curso Comandos/6 ... For Tabelas
Windev Curso Comandos/7 ... For String 
Windev Curso Comandos/8 ... For Table
Windev Curso Comandos/9 ... Stop



Ordem Alfabetica

For - Windev Curso Comandos/5 ... 
For String - Windev Curso Comandos/7 ...
For Tabelas - Windev Curso Comandos/6 ... 
For Table - Windev Curso Comandos/8 ...  
If - Windev Curso Comandos/1 ... Condição -
Loop - Windev Curso Comandos/3 ... 
Stop Debug - Windev Curso Comandos/9 ...
Switch - Windev Curso Comandos/2 ... Condição -
WHILE - Windev Curso Comandos/4 ... 



TableDeleteAll(TABLE_string)
s_texto is string=[
    1|Coca Cola|5.00
    2|Cerveja|7.00
    3|Agua Mineral|2.00
]
FOR EACH STRING s_linha OF s_texto SEPAREE BY CR
    n_contador is int=0
    n_Codigo is int=0
    s_nome is string=""
    cy_preco is currency=0       
   
    FOR EACH STRING s_coluna OF s_linha SEPAREE BY "|"
        n_contador++
        SWITCH n_contador
            CASE 1
                n_Codigo=s_coluna
            CASE 2
                s_nome=s_coluna
            CASE 3
                cy_preco=s_coluna
            OTHER CASE               
        END   
    END
    TableAddLine(TABLE_string,n_Codigo,s_nome,cy_preco)   
END























Teste

Teste
teste