Siga-nos em...
Follow us on Twitter Follow us on Facebook Watch us on YouTube
Registro


HGIDC
Resultados 1 a 1 de 1
  1. #1



    Avatar de Prøjë¢T
    Data de Ingresso
    Jul 2010
    Localização
    Sao Jose do Rio Preto
    Posts
    1.143
    Agradecido
    99
    Agradeceu
    39
    Peso da Avaliação
    25

    Lightbulb PBSoft ItemToCashShop V1.0

    Bom como prometido estarei liberando a Source completa do conversor para o pessoal poder estudar, como disse é legal pra pegar umas manhas do while, de trabalhar com arquivos de texto etc, etc....

    Não vou me referir muito ao que o programa faz, voces podem ver isso neste [Somente usuários registrados podem vem os links. ]..

    vo postar uma das Procedures que estao nesta source abaixo


    Código PHP:
    PROCEDURE TFcashshop.F_GERA_AXES;
    LABEL PULA,PULA2,FIM_AXES;
    BEGIN

         
    WHILE WX MEMOITEM.Lines.Count +DO BEGIN

          
    IF TRIM(COPY(MEMOITEM.Lines.Strings[WX],1,100)) = '1' THEN BEGIN //LENDO OS AXES
             
    WX:=WX+1;
             
    PULA2:
             IF ((
    TRIM(COPY(MEMOITEM.Lines.Strings[WX],1,1))) <> '0') AND
                ((
    TRIM(COPY(MEMOITEM.Lines.Strings[WX],1,1))) <> '1') AND
                ((
    TRIM(COPY(MEMOITEM.Lines.Strings[WX],1,1))) <> '2') AND
                ((
    TRIM(COPY(MEMOITEM.Lines.Strings[WX],1,1))) <> '3') AND
                ((
    TRIM(COPY(MEMOITEM.Lines.Strings[WX],1,1))) <> '4') AND
                ((
    TRIM(COPY(MEMOITEM.Lines.Strings[WX],1,1))) <> '5') AND
                ((
    TRIM(COPY(MEMOITEM.Lines.Strings[WX],1,1))) <> '6') AND
                ((
    TRIM(COPY(MEMOITEM.Lines.Strings[WX],1,1))) <> '7') AND
                ((
    TRIM(COPY(MEMOITEM.Lines.Strings[WX],1,1))) <> '8') AND
                ((
    TRIM(COPY(MEMOITEM.Lines.Strings[WX],1,1))) <> '9'THEN BEGIN
                    WX
    :=WX+1;
                    GOTO 
    PULA2;
             
    END;
           
    //Index    Slot    Skill    X    Y    Serial    Opt    Drop    Nombre

           
    WTAMANHO_LINHA:=LENGTH(MEMOITEM.Lines.Strings[WX]);
           
    WX_COLUNA:=0;
           
    WINDEX:='';  WSLOT:='';  WSKILL:=''WTX:='';  WTY:='';  WSERIAL:='';
           
    WOPT:='';  WDROP:='';  WNOME:='';
           
    WINICIO:=STRTOINT(AXE_INICIAL.Text);
           
    WFIM:=STRTOINT(AXE_FINAL.Text);

              WHILE 
    WX_COLUNA WTAMANHO_LINHA DO BEGIN
                    PULA
    :
                    
    WX_COLUNA:=WX_COLUNA+1;
                    
    //PEGANDO INDEX
                    
    IF (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <> ' ') AND (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <> #9) AND (WINDEX = '') THEN BEGIN

                       
    WHILE (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <> ' ') AND  (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <> #9) DO BEGIN

                          
    WINDEX:=WINDEX+COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1);
                          
    WITEM:=STRTOINT(TRIM(WINDEX));
                          
    WX_COLUNA:=WX_COLUNA+1;

                       
    END;
                    
    END;

                    IF (
    WITEM WINICIO) OR (WITEM WFIMTHEN BEGIN
                       WX_COLUNA
    :=WTAMANHO_LINHA;
                       
    WX:=WX+1;
                       
    WX_COLUNA:=0;
                       
    WINDEX:='';
                       GOTO 
    PULA;
                    
    END;
                    
    //PEGANDO SLOT
                    
    IF (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <> ' ') AND (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <> #9) AND (WSLOT = '') THEN BEGIN
                       
    WHILE (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <> ' ') AND  (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <> #9) DO BEGIN
                          
    WSLOT:=WSLOT+COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1);
                          
    WX_COLUNA:=WX_COLUNA+1;
                       
    END;
                    
    END;
                    
    //PEGANDO SLkill
                    
    IF (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <> ' ') AND (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <> #9) AND (WSKILL = '') THEN BEGIN
                       
    WHILE (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <> ' ') AND  (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <> #9) DO BEGIN
                          
    WSKILL:=WSKILL+COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1);
                          
    WX_COLUNA:=WX_COLUNA+1;
                       
    END;
                    
    END;
                    
    //PEGANDO POSICAO X
                    
    IF (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <> ' ') AND (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <>  #9) AND (WTX = '') THEN BEGIN
                       
    WHILE (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <> ' ') AND  (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <>  #9)  DO BEGIN
                          
    WTX:=WTX+COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1);
                          
    WX_COLUNA:=WX_COLUNA+1;
                       
    END;
                    
    END;
                    
    //PEGANDO POSICAO Y
                    
    IF (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <> ' ') AND (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <>  #9) AND (WTY = '') THEN BEGIN
                       
    WHILE (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <> ' ') AND  (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <>  #9) DO BEGIN
                          
    WTY:=WTY+COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1);
                          
    WX_COLUNA:=WX_COLUNA+1;
                       
    END;
                    
    END;
                    
    //PEGANDO NUMERO DE SERIE
                    
    IF (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <> ' ') AND (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <>  #9) AND (WSERIAL = '') THEN BEGIN
                       
    WHILE (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <> ' ') AND  (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <>  #9) DO BEGIN
                          
    WSERIAL:=WSERIAL+COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1);
                          
    WX_COLUNA:=WX_COLUNA+1;
                       
    END;
                    
    END;
                    
    //PEGANDO OPTION
                    
    IF (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <> ' ') AND (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <>  #9) AND (WOPT = '') THEN BEGIN
                       
    WHILE (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <> ' ') AND  (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <>  #9) DO BEGIN
                          
    WOPT:=WOPT+COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1);
                          
    WX_COLUNA:=WX_COLUNA+1;
                       
    END;
                    
    END;
                    
    //PEGANDO DROP
                    
    IF (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <> ' ') AND (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <>  #9) AND (WDROP = '') THEN BEGIN
                       
    WHILE (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <> ' ') AND  (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <>  #9) DO BEGIN
                          
    WDROP:=WDROP+COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1);
                          
    WX_COLUNA:=WX_COLUNA+1;
                       
    END;
                    
    END;
                    
    //PEGANDO NOME DO ITEN
                    
    IF (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <> ' ') AND (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <>  #9) AND (WNOME = '') THEN BEGIN
                       
    WHILE (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <> ' ') AND  (COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1) <>  #9) DO BEGIN
                          
    WNOME:=WNOME+COPY(MEMOITEM.Lines.Strings[WX],WX_COLUNA,1);
                          
    WX_COLUNA:=WX_COLUNA+1;
                       
    END;
                    
    END;
                    IF (
    WINDEX <> '') AND (WSLOT <> '') AND (WTX <> '') AND (WTY <> '') AND (WSERIAL <> '') AND (WOPT <> '') AND (WDROP <> '') AND (WNOME <> ''THEN BEGIN
                       
    IF (EDIT1IAXE.Text <> '') AND (EDIT1FAXE.Text <> '') AND (EDIT1CAXE.Text <> '')   THEN BEGIN
                          
    IF (WITEM >= STRTOINT(EDIT1IAXE.Text))  AND (WITEM <= STRTOINT(EDIT1FAXE.Text)) THEN WVALOR:=EDIT1CAXE.TEXT;
                       
    END;
                       IF (
    EDIT2IAXE.Text <> '') AND (EDIT2FAXE.Text <> '') AND (EDIT2CAXE.Text <> '')   THEN BEGIN
                          
    IF (WITEM >= STRTOINT(EDIT2IAXE.Text))  AND (WITEM <= STRTOINT(EDIT2FAXE.Text)) THEN WVALOR:=EDIT2CAXE.TEXT;
                       
    END;
                       IF (
    EDIT3IAXE.Text <> '') AND (EDIT3FAXE.Text <> '') AND (EDIT3CAXE.Text <> '')   THEN BEGIN
                          
    IF (WITEM >= STRTOINT(EDIT3IAXE.Text))  AND (WITEM <= STRTOINT(EDIT3FAXE.Text)) THEN WVALOR:=EDIT3CAXE.TEXT;
                       
    END;
                       IF (
    EDIT4IAXE.Text <> '') AND (EDIT4FAXE.Text <> '') AND (EDIT4CAXE.Text <> '')   THEN BEGIN
                          
    IF (WITEM >= STRTOINT(EDIT4IAXE.Text))  AND (WITEM <= STRTOINT(EDIT4FAXE.Text)) THEN WVALOR:=EDIT4CAXE.TEXT;
                       
    END;
                       IF (
    EDIT5IAXE.Text <> '') AND (EDIT5FAXE.Text <> '') AND (EDIT5CAXE.Text <> '')   THEN BEGIN
                          
    IF (WITEM >= STRTOINT(EDIT5IAXE.Text))  AND (WITEM <= STRTOINT(EDIT5FAXE.Text)) THEN WVALOR:=EDIT5CAXE.TEXT;
                        
    END;
                          
    MEMOCASHSHOP.Lines.Add('1'+#9+WINDEX+#9+EDITWLVLAXES.Text+#9+'1'+#9+WTX+#9+WTY+#9+'63'+#9+'0'+#9+WVALOR+#9+'50'+#9+'//'+WNOME);
                          
    WX_COLUNA:=0;
                          
    WINDEX:='';  WSLOT:='';  WSKILL:=''WTX:='';  WTY:='';  WSERIAL:='';
                          
    WOPT:='';  WDROP:='';  WNOME:='';
                         
    WX:=WX+1;
                         IF 
    COPY(MEMOITEM.Lines.Strings[WX],1,3) = 'end' THEN BEGIN
                            
    GOTO FIM_AXES;
                         
    END;
                    
    END;


              
    END;

             
    WX:=WX+1;
           
    END;
            
    WX:=WX+1;
         
    END;
         
    FIM_AXES:

    END




    Source em Delphi7

    [Somente usuários registrados podem vem os links. ]



    Façam bom proveito e por favor se postarem em outros locais respeitem pelo menos os creditos.



    LINK REUPADO PARA DOWNLOAD
    Última edição por Prøjë¢T; 05-04-2012 às 11:29 PM.

 

 

Informações de Tópico

Usuários Navegando neste Tópico

Há 1 usuários navegando neste tópico. (0 registrados e 1 visitantes)

Tópicos Similares

  1. |Download| PBSoft 2.0 Utilitario
    Por Prøjë¢T no fórum Downloads
    Respostas: 8
    Último Post: 27-05-2014, 10:04 PM
  2. |Download| PBSoft ItemToCashShop V1.0.
    Por Prøjë¢T no fórum Downloads
    Respostas: 3
    Último Post: 26-09-2012, 09:47 PM
  3. |Desenvolvimento| PBSoft 2.0 Free
    Por Prøjë¢T no fórum Programas
    Respostas: 1
    Último Post: 25-09-2012, 01:59 PM
  4. |Download| PBSoft Versão 1.0 Free.
    Por Prøjë¢T no fórum Downloads
    Respostas: 10
    Último Post: 09-06-2012, 10:54 AM

Tags para este Tópico

Marcadores

Permissões de Postagem

  • Você não pode iniciar novos tópicos
  • Você não pode enviar respostas
  • Você não pode enviar anexos
  • Você não pode editar suas mensagens
  •