sexta-feira, 20 de junho de 2014

Essa rotina ira fazer com que nao quebre palavras

Essa rotina ira fazer com que nao quebre palavras

!Loc:Transfere_Obs
    !Essa rotina ira fazer com que nao quebre palavras
    !loc:Texto string 2000
    !loc:contador long
    !loc:inicial long
    !loc:final long
    !loc:transfere_obs => Grupo => com ! wobs dim[6] Tamanno 80
    loc:Texto=Loc:Transfere_Obs
    Loc:Transfere_Obs=''  
    loc:contador=0
    LOOP
        IF loc:Texto<>''
            Loc:Inicio=1;loc:Final=80;loc:contador+=1
            IF loc:contador>6
                BREAK
            ELSE          
                LOOP
                    if (SUB(loc:Texto,loc:Final,1)<>'' AND SUB(loc:Texto,loc:Final+1,1)='') OR (SUB(loc:Texto,loc:Final,1)='')
                        WObs[loc:contador]=CLIP(LEFT(sub(loc:Texto,Loc:Inicio,loc:Final)))
                        loc:Texto=sub(loc:Texto,loc:Final+1,20000)
                        BREAK
                    ELSE
                        LOC:FINAL-=1
                        IF LOC:FINAL<1 p="">                            LOC:INICIO=LOC:INICIO+loc:Final
                            WObs[loc:contador]=CLIP(LEFT(sub(loc:Texto,Loc:Inicio,loc:Final)))
                            LOC:FINAL=80
                            BREAK
                        END        
                    END
                END
            END      
        ELSE
            BREAK
        END  
    END
!Loc:Transfere_Obs

Nenhum comentário:

Postar um comentário