Manipulação de arquivo .txt

[Renata Pedrosa 0]

Pessoal tem como importar os dados de um arquivo txt com a seguinte estrutura:

 

1000019 000000000000100

 

Veja que o arquivo não é delimitado por ; nem por ,

ele é separado por um espaçamento de 6 caracteres em branco,

esse arquivo é gerado assim e eu não posso mudar,

só que preciso importar para uma tabela dessa forma:

 

 

MATRICULA

1000019

 

REGISTRO

000000000000100

 

Tem que vir com todos os zeros...

 

OBS: O grande problema é que o que separa os dois campos é 6 caracteres em branco

 

Dai na tabela vou manipular alguns dados, tipo excluir algumas matriculas alterar o valor de algum registro

e gerar novamente um txt atualizado.

 

 

Se alguem puder me ajudar eu fico grata.

[Cesão 1]

Então, se isso for um padrão, de vir SEMPRE 6 caracteres em branco, você pode fazer um Split separando por 6 caracteres em branco.

Tipo:

 

variavel = "1000019 000000000000100"
arrayVariavel = Split(variavel,"      ")
matricula = arrayVariavel(0)
registro = arrayVariavel(1)

O valor entre aspas, depois da vírgula, é o valor de separação, ou seja, ele separa a variavel usando esse valor. Se fosse separado por virgula, você usaria uma virgula.. mas como é separado por 6 espaços em branco, você coloca 6 espaços em branco lá e ele vai separar os valores p você.

Ajudei?

[Renata Pedrosa 0]

consegui um código e adaptei ao que preciso.

 

<% Arquivo = "teste.txt" %> 
<table width="200" border="0" cellpadding="3" cellspacing="1" bgcolor="#000000"> 
 <tr nowrap bgcolor="#FFFFFF">  
  <td width="80">MATRICULA:</td> 
  <td width="120">REGISTRO:</td> 
 </tr> 
<% 
'--- 
'Abrindo o arquivo TXT com o método OpenTextFile 
set obj = fso.OpenTextFile(server.MapPath(Arquivo), 1) 
'--- 
'Listando os dados do txt (linha por linha) até o fim do arquivo 
While obj.AtEndOfStream = false 
        response.write("<tr nowrap bgcolor=""#d1d1d1"">")&vbCrlf 
        Arr = NO
        linha = obj.ReadLine ' ReadLine é o método que lê cada linha do txt 
        '--- 
        Arr = split(linha,"      ")' Dividindo cada linha por; (ponto e vírgula)
        for x = lbound(Arr) to ubound(Arr) ' Loop para criar as colunas <td> dentro das linhas <tr> 
        response.write(" <td align=right>"&Arr(x)&"</td>"&vbCrlf) 
        next 
        '--- 
        response.write("</tr>")&vbCrlf    
Wend 
'--- 
'Fechando os objetos 
set obj = nothing 
set fso = nothing 
 %> 
</table> 

Desta forma estou conseguindo ler o arquivo texto como quero, ou seja, dividindo MATRICULA e REGISTRO, apesar de

que na apresentação aparece mais duas colunas em branco no final onde deveria ser apenas 2.

 

O que não consegui foi gravar esses registros no BD.

 

 

Pessoal tem como importar os dados de um arquivo txt com a seguinte estrutura:

 

1000019 000000000000100

 

Veja que o arquivo não é delimitado por ; nem por ,

ele é separado por um espaçamento de 6 caracteres em branco,

esse arquivo é gerado assim e eu não posso mudar,

só que preciso importar para uma tabela dessa forma:

 

 

MATRICULA

1000019

 

REGISTRO

000000000000100

 

Tem que vir com todos os zeros...

 

OBS: O grande problema é que o que separa os dois campos é 6 caracteres em branco

 

Dai na tabela vou manipular alguns dados, tipo excluir algumas matriculas alterar o valor de algum registro

e gerar novamente um txt atualizado.

 

 

Se alguem puder me ajudar eu fico grata.

 

[xanburzum 169]

beleza, e depois , se quiser poderá incluí-lo no lab. de script

[Renata Pedrosa 0]

se alguem puder ajudar na parte de gravar no banco de dados eu agradeço...

 

Consegui ler mas como gravar todas as linhas no bd?

 

 

 

 

beleza, e depois , se quiser poderá incluí-lo no lab. de script

 

[xanburzum 169]

você irá proceder da mesma forma para gravar recordset, apenas mude chamando o FSO, existem exemplos no forum, pode te ajudar

[Renata Pedrosa 0]

Não tem como eu gravar no BD já a partir desse array que importou do txt e montou na tabela html não?

 

 

 

você irá proceder da mesma forma para gravar recordset, apenas mude chamando o FSO, existem exemplos no forum, pode te ajudar

 

[xanburzum 169]

faça uma conexao com arquivo texto