EXISTE UM BANCO DE DADS NO FORMATO .DAT ?
Citação::
amigo, eu disse que o dat, vem do cobol
sim pode até ser que por padrão o cabol trabalhe com esse tipo da arquivo de banco de dados mas nem porriso que dizer que este tenha vindo do cobol até porque extensão dat é uma extensão sem definição
não abri o arquivo, mas um BD que utiliza a extensão DAT é o DataFlex.
Marcelo pode tenta aabrir em bloco de notas esse arquivo aqui?
preciso muito dele :X
mas eu abro e como disse sai tudo misturado... nao sei como mas vc abriu alinhado
preciso muito dele :X
mas eu abro e como disse sai tudo misturado... nao sei como mas vc abriu alinhado
sooobe :X
barros, sim é um arquivo texto
mas o caso é que o marcelo treze de algum jeito abriu tudo alinhadinho...
acho dificil ele ter feito tudo isso manualmente, daria muito trabalho O_O
mas o caso é que o marcelo treze de algum jeito abriu tudo alinhadinho...
acho dificil ele ter feito tudo isso manualmente, daria muito trabalho O_O
o line input da erro
line number or label or statement or end of statement
algm help me? rsrs
line number or label or statement or end of statement
algm help me? rsrs
Ola amigo eu achei esta dica
com estes soft
http://wareseeker.com/free-index.dat-suite-2.10.0/
eo scanner
http://www.baixaki.com.br/download/index-dat-viewer.htm
no msm forum explica isso
a declaração print # armazena dados em um arquivo aberto.
a declaração input # carrega dados a partir de um arquivo aberto.
o modo de arquivo Output cria o arquivo se ele não existir; ou abre e apaga-o se ele existir.
o modo de arquivo Input permite que um programa leia dados a partir de um arquivo existente.
o modo de arquivo Append permite que um programa adicione dados a um arquivo já existente.
Pronto, agora vamos começar o código:
Dim data As String
Open [Ô]c: este.dat[Ô] For Input As #1(esta linha abre o arquivo teste.dat que está localizado no diretório raiz do drive C em modo Input dando a ele o nome de referência 1)
Input #1, data (esta linha salva o conteúdo do arquivo teste.dat na variável data)
Close #1 (esta linha fecha o arquivo teste.dat)
(Vamos supor que o arquivo teste.dat contenha a frase Oi, então data agora é Oi)
(Agora, se o arquivo não existir ainda, use Output, se ele já existir use Append, vamos supor que o arquivo já existe, então ficaria assim: )
Open [Ô]c: este2.txt[Ô] For Append As #2
Print #2, data (nesta linha ele coloca no arquivo teste2.txt o conteúdo da variável data)
Close #2
(Pronto, aqui acaba. Mas vamos supor que o arquivo não existe ainda, ou já existe, mas você quer apagar o conteúdo dele para aà sim passar o conteúdo de teste.dat, então ficaria assim: )
Open [Ô]c: este2.txt[Ô] For Output As #2
Print #2, data
Close #2
a fonte do codigo e esta
http://forum.clubedohardware.com.br/ler-conteudo-arquivo/491686
espero q ajude boa sorte
com estes soft
http://wareseeker.com/free-index.dat-suite-2.10.0/
eo scanner
http://www.baixaki.com.br/download/index-dat-viewer.htm
no msm forum explica isso
a declaração print # armazena dados em um arquivo aberto.
a declaração input # carrega dados a partir de um arquivo aberto.
o modo de arquivo Output cria o arquivo se ele não existir; ou abre e apaga-o se ele existir.
o modo de arquivo Input permite que um programa leia dados a partir de um arquivo existente.
o modo de arquivo Append permite que um programa adicione dados a um arquivo já existente.
Pronto, agora vamos começar o código:
Dim data As String
Open [Ô]c: este.dat[Ô] For Input As #1(esta linha abre o arquivo teste.dat que está localizado no diretório raiz do drive C em modo Input dando a ele o nome de referência 1)
Input #1, data (esta linha salva o conteúdo do arquivo teste.dat na variável data)
Close #1 (esta linha fecha o arquivo teste.dat)
(Vamos supor que o arquivo teste.dat contenha a frase Oi, então data agora é Oi)
(Agora, se o arquivo não existir ainda, use Output, se ele já existir use Append, vamos supor que o arquivo já existe, então ficaria assim: )
Open [Ô]c: este2.txt[Ô] For Append As #2
Print #2, data (nesta linha ele coloca no arquivo teste2.txt o conteúdo da variável data)
Close #2
(Pronto, aqui acaba. Mas vamos supor que o arquivo não existe ainda, ou já existe, mas você quer apagar o conteúdo dele para aà sim passar o conteúdo de teste.dat, então ficaria assim: )
Open [Ô]c: este2.txt[Ô] For Output As #2
Print #2, data
Close #2
a fonte do codigo e esta
http://forum.clubedohardware.com.br/ler-conteudo-arquivo/491686
espero q ajude boa sorte
meu codigo está assim
do jeito q manda essas dicas
eu achei o msm forum que voce rs
Dim ds As String
Function eu()
Open [Ô]c:\PDVPPROD.dat[Ô] For Input As #1
While Not EOF(1)
Input #1, ds
Open [Ô]c:\pdvprod1.txt[Ô] For Output As #2
Print #2, ds
Wend
End Function
Private Sub Command1_Click()
eu
MsgBox [Ô]pronto[Ô]
End
End Sub
do jeito q manda essas dicas
eu achei o msm forum que voce rs
Dim ds As String
Function eu()
Open [Ô]c:\PDVPPROD.dat[Ô] For Input As #1
While Not EOF(1)
Input #1, ds
Open [Ô]c:\pdvprod1.txt[Ô] For Output As #2
Print #2, ds
Wend
End Function
Private Sub Command1_Click()
eu
MsgBox [Ô]pronto[Ô]
End
End Sub
Tópico encerrado , respostas não são mais permitidas