Jump to content
Fivewin Brasil

zekasan

Membros
 View Profile  See their activity

  • Posts

    146

  • Joined

  • Last visited

  • Days Won

    6

 Content Type 

Posts posted by zekasan

  8. importar dados separados por PIPE |

    in Programação

    Posted

    oFile:=cFile:=""

    cFile := cGetFile( "*.txt", cFile )

    if empty(cFile)

    return(nil)

    endif


    if ! msgyesno("Confirma processamento do arquivo "+cFile,"ATENÇÃO")

    return(nil)

    endif


    ******** CANCELADOS

    QUANTOS:=0

    QUANTOS2:=0

    VALOR:=0

    cFile1:=cFile+"X"

    oText := TTxtFile():New( cFile )

    oText1=TTxtFile():New(cFile1)

    oText1:Open()

    cTotLinha:= oText:RecCount()+1

    oMeter:SetRange(0,cTotLinha/100 )

    oMeter:SetPos( 0 )

    for n = 1 to cTotLinha

    cLinha:= oText:ReadLine()

    if substr(cLinha,1,17) ="|D100|1|0||57|02|"

    zLinha:= StrToken( cLinha,9, "|" ) // irá pegar o nono campo da linha lida

    oText1:Add(zLinha)

    QUANTOS+=1

    endif

    oText:Skip()

    QUANTOS2+=1

    oMeter:SetPos( QUANTOS2/100 )

    next

    * oText:Close()

    oTExt1:close()

  10. Help, programa básico para MSSQL Server 2008

    in Programação

    Posted

    Caro Alexandre (tinha que ser Pereira, o meu é José Carlos Pereira), muito obrigado pelo seu retorno e a mão que tú me deste, consegui finalmente conectar e ver uma das tabelas, só mais uma coisinha, onde posso estudar estes comandos ? com que nome devo procurar? (exemplo comandos do xharbour). OBRIGADO novamente,você não sabe o tamanho do galho que foi quebrado...

  11. Help, programa básico para MSSQL Server 2008

    in Programação

    Posted

    Boa tarde, teria alguma alma caridosa que possa me fornecer algo bem básico, que contenha a forma como se conecta ao banco MSSQL Server 2008?

    Preciso de um exemplo, estou garimpando no site e não consegui nada concreto....

    Estou utilizando o Five 8.08 ou o 12.07 com xharbour, e uso tb o xDev

    Agradeço a colaboração.

×
×
  • Create New...