PC Toledo

Código: Selecionar todos

CodigoBarra: N 13 DEC 0
CodigoPeca: C 12
Referencia: N 13 DEC 0
Descricao: C 29
Fornecedor: C 7
NumeroOriginal: C 13
Unidade: C 2
PrecoTabela: N 6 DEC 2 (isto como mínimo em valor de moeda)

Código: Selecionar todos

vArq:="arquivo.txt"

PRIVATE aStru
aStru := {;
         {"CAMPO","C",100,00}}
DBCREATE("TEMP.DBF",aStru)

USE TEMP NEW
APPEND FROM (vArq) SDF
GO TOP
SKIP
DO WHILE !EOF()
 vCampo:=ALLTRIM(CAMPO)
 vCodBarra:=SUBS(vCampo,1,AT(";",vCampo)-1)
 vCampo:=SUBS(vCampo,AT(";",vCampo)+1)
 vCodPeca:=SUBS(vCampo,1,AT(";",vCampo)-1)
 vCampo:=SUBS(vCampo,AT(";",vCampo)+1)
 vRefer:=SUBS(vCampo,1,AT(";",vCampo)-1)
 vCampo:=SUBS(vCampo,AT(";",vCampo)+1)
 vDescricao:=SUBS(vCampo,1,AT(";",vCampo)-1)
 vCampo:=SUBS(vCampo,AT(";",vCampo)+1)
 vFornec:=SUBS(vCampo,1,AT(";",vCampo)-1)
 vCampo:=SUBS(vCampo,AT(";",vCampo)+1)
 vNOriginal:=SUBS(vCampo,1,AT(";",vCampo)-1)
 vCampo:=SUBS(vCampo,AT(";",vCampo)+1)
 vUnidade:=SUBS(vCampo,1,AT(";",vCampo)-1)
 vCampo:=SUBS(vCampo,AT(";",vCampo)+1)
 vPrecoTab:=SUBS(vCampo,1,AT(";",vCampo)-1)
 //Aqui vc grava as variáveis acima em seu Banco de dados.
 SKIP
ENDDO

Código: Selecionar todos

 IF LEFT(vCampo,1)=";"
  vRefer:=""
 ELSE
  vRefer:=SUBS(vCampo,1,AT(";",vCampo)-1)
 ENDIF
 vCampo:=SUBS(vCampo,AT(";",vCampo)+1)

Código: Selecionar todos

// AppenTxt.prg

aCampos:={{"COD_BAR"  ,"N",013,000},;
          {"COD_PEC"  ,"C",012,000},;
          {"REFERE"   ,"N",013,000},;
          {"DESCRI"   ,"C",029,000},;
          {"FORNECE"  ,"C",007,000},;
          {"NUM_ORIG" ,"C",013,000},;
          {"UNIDADE"  ,"C",002,000},;
          {"PRECO_TAB","N",006,002}}
DBCREATE("CATALOGO",aCampos)
USE CATALOGO
cTextFile:="TEXTO.TXT"
nFileHandle = FOPEN( cTextFile )
IF nFileHandle < 0
   RETURN .F.
ENDIF

nFileHandle = FOPEN( cTextFile )
nFileSize = FSEEK( nFileHandle, 0, 2 )
FSEEK( nFileHandle, 0, 0 )
nBytesRead = 0
IMPORTA( nFileSize,aCampos )


FUNCTION IMPORTA(nFileSize,aCampos)
aRecord:={}
cAccumText:=""
DO WHILE .T.
   cSingle = FREADSTR( nFileHandle, 1 )
   nBytesRead = nBytesRead + 1
   IF cSingle = ";" .OR. cSingle = CHR(13)
      IF cSingle = CHR(13)
         cSingle = FREADSTR( nFileHandle, 1 )
         nBytesRead = nBytesRead + 1
         IF cSingle = CHR(10)
            cSingle = FREADSTR( nFileHandle, 1 )
            nBytesRead = nBytesRead + 1
            IF !(cSingle = CHR(26) .OR. ASC(cSingle) = 0)
               FSEEK( nFileHandle, -1, 1 )
               nBytesRead = nBytesRead - 1
            ENDIF
         ELSE
            IF !(cSingle = CHR(26) .OR. ASC(cSingle) = 0)
              FSEEK( nFileHandle, -1, 1 )
              nBytesRead = nBytesRead - 1
            ENDIF
         ENDIF
         AADD(aRecord,cAccumText)
         GRAVA(aRecord,aCampos)
         aRecord:={}
      ELSE
         AADD(aRecord,cAccumText)
      ENDIF
      cSingle = ""
      cAccumText = ""
   ELSE
      IF !(cSingle = CHR(26))
	 cAccumText = cAccumText + cSingle
      ENDIF
   ENDIF
   IF nBytesRead>nFileSize
      IF LEN(cAccumText)>1 .AND. ASCAN(v_L,cAccumText)=0
         GRAVA(aRecord,aCampos)
      ENDIF
      EXIT
   ENDIF
ENDDO
RETURN nil

Function Grava(aRecord,aCampos)
APPEND BLANK
FOR I=1 TO LEN(aRecord)
    DO CASE
       CASE aCampos[i,2]="N"
            if aCampos[i,1]="PRECO_TAB"
               FIELDPUT( i,converte(alltrim(aRecord[i]),2) )
            else
               FIELDPUT( i,VAL(alltrim(aRecord[i])) )
            endif
       CASE aCampos[i,2]="D"
            FIELDPUT( i , CTOD(aRecord[i]) )
        OTHERWISE
            FIELDPUT( I, aRecord[i] )
    ENDCASE
NEXT
RETURN NIL

Function Converte(cNumero,nDecimal) 
Return(Val(cNumero:=Stuff(cNumero,Len(cNumero)-nDecimal,0,'.')))