UNIR LINHAS QUEBRADAS
Pessoal tenho o seguinte cenário em um arquivo texto..
linha de texto \
linha de texto 2
Preciso unir a linha da seguinte maneira..
linha de texto \ linha de texto 2
Pode ser uma maneira que ao encontrar [Ô]\[Ô] algum chr que simulasse o DEL e armazena-la em uma variavel
O que simularia por exemplo um DEL?
Alguem tem uma dica?
Att
linha de texto \
linha de texto 2
Preciso unir a linha da seguinte maneira..
linha de texto \ linha de texto 2
Pode ser uma maneira que ao encontrar [Ô]\[Ô] algum chr que simulasse o DEL e armazena-la em uma variavel
O que simularia por exemplo um DEL?
Alguem tem uma dica?
Att
Não pense como VOCÊ faria, pense como A MÃQUINA deve fazer. Nova linha, é um caracter de nova linha (chr(13)), então, abra o arquivo e substitua os Chr(13) por nada [Ô][Ô]
Kerplunk, acho q nao expliquei direito, é exatamente isso, estou procurando uma maneira de por a maquina pra fazer. é esse o intuito. Não ha chr$(13) . preciso simular o DEL para juntar a linha. att
Foi o que eu disse, o chr(13) é que é o caracter que representa uma nova linha. Experimente isso:
dim arquivopronto as string
dim linha as string
Open [Ô]C:\pasta\arquivo.xxx[Ô] for input as #1
do while not eof(1)
line input #1, linha
arquivopronto = arquivopronto & replace(linha, chr(13), [Ô][Ô])
loop
close #1
open [Ô]C:\pasta\arquivoNOVO.xxx[Ô] for output as #1
print #1, arquivopronto
close #1
dim arquivopronto as string
dim linha as string
Open [Ô]C:\pasta\arquivo.xxx[Ô] for input as #1
do while not eof(1)
line input #1, linha
arquivopronto = arquivopronto & replace(linha, chr(13), [Ô][Ô])
loop
close #1
open [Ô]C:\pasta\arquivoNOVO.xxx[Ô] for output as #1
print #1, arquivopronto
close #1
KERPLUNK,
A minha idéia para resolver este problema é adicionar um [Ô]vbKeyDelete[Ô].
Não sei se dá para fazer assim: Chr$(127) ... (DEL = 127).
===========================
Constantes Key Code para usuários do Visual Basic 6.0
http://msdn.microsoft.com/pt-br/library/0z084th3(v=vs.90).aspx
===========================
Veja a tabela ASCII (American Standard Code for Information Interchange)
http://www.dcc.unicamp.br/~hans/mc102/textos/ascii.html
===========================
Não consegui montar um exemplo em código, pois não funciona dentro de um textBox, mas acho que em um arquivo de texto funciona.
[][ô]s,
Tunusat.
A minha idéia para resolver este problema é adicionar um [Ô]vbKeyDelete[Ô].
Não sei se dá para fazer assim: Chr$(127) ... (DEL = 127).
===========================
Constantes Key Code para usuários do Visual Basic 6.0
http://msdn.microsoft.com/pt-br/library/0z084th3(v=vs.90).aspx
===========================
Veja a tabela ASCII (American Standard Code for Information Interchange)
http://www.dcc.unicamp.br/~hans/mc102/textos/ascii.html
===========================
Não consegui montar um exemplo em código, pois não funciona dentro de um textBox, mas acho que em um arquivo de texto funciona.
[][ô]s,
Tunusat.
TUNUSAT, não se pode pensar dessa maneira. Imagine a situação:
Você precisa copiar dados de um arquivo texto para outro. O que um ser humano faria? Abre um dos arquivos, seleciona o que se quer copiar, abre o outro arquivo e cola. Se pensar dessa forma, vai ser além de mais trabalhoso, muito esquisito. Entende?
Você precisa copiar dados de um arquivo texto para outro. O que um ser humano faria? Abre um dos arquivos, seleciona o que se quer copiar, abre o outro arquivo e cola. Se pensar dessa forma, vai ser além de mais trabalhoso, muito esquisito. Entende?
KERPLUNK,
Minha idéia está furada, a sua solução funcionou certinho.
Não funca:
----------------------------------------------
arquivopronto = linha & vbKeyDelete
ou
arquivopronto = linha & Chr$(127)
----------------------------------------------
Valew!
[][ô]s,
Tunusat.
Minha idéia está furada, a sua solução funcionou certinho.
Não funca:
----------------------------------------------
arquivopronto = linha & vbKeyDelete
ou
arquivopronto = linha & Chr$(127)
----------------------------------------------
Valew!
[][ô]s,
Tunusat.
Pessoal valeu o auxilio, resovi da seguinte maneira.
Como é um espaço de 5 caracteres fixo em todos arquivos q vai ser trabalhado, e tem uma referencia [Ô]add[Ô] no inicio da linha e um [Ô]\[Ô] no final , ficou assim..
Inum = FreeFile
Open bVet For Input As Inum
Do While Not EOF(Inum)
[ô]Pega o conteúdo da linha
Line Input #Inum, sTxt
z = z & sTxt
DoEvents
Loop
Close Inum
z = Replace(z, [Ô]add [Ô], [Ô][Ô] & vbCrLf)
z = Replace(z, [Ô]\ [Ô], [Ô][Ô])
Mas as respostas acima dos colega são muito util
Obrigado a todos
Como é um espaço de 5 caracteres fixo em todos arquivos q vai ser trabalhado, e tem uma referencia [Ô]add[Ô] no inicio da linha e um [Ô]\[Ô] no final , ficou assim..
Inum = FreeFile
Open bVet For Input As Inum
Do While Not EOF(Inum)
[ô]Pega o conteúdo da linha
Line Input #Inum, sTxt
z = z & sTxt
DoEvents
Loop
Close Inum
z = Replace(z, [Ô]add [Ô], [Ô][Ô] & vbCrLf)
z = Replace(z, [Ô]\ [Ô], [Ô][Ô])
Mas as respostas acima dos colega são muito util
Obrigado a todos
Tópico encerrado , respostas não são mais permitidas