COMO LER SOMENTE A PARTE FINAL POR OPEN BINARY

 Tópico anterior Próximo tópico Novo tópico

COMO LER SOMENTE A PARTE FINAL POR OPEN BINARY

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#476941 - 04/10/2017 00:26:14

NEIBALA
SAO BERNARDO DO CAMPO
Cadast. em:Dezembro/2013


Pessoal

    Como eu faria para gravar somente as 5 posições finais do arquivo no array bytes, onde foi utilizando Open Binary read shared.
    Conforme abaixo

ReadOtherFileForum "C:\rede\teste\projeto_teste.txt"

Private Sub ReadOtherFileForum(ByVal nmFileName As String)
6        Dim objByteData() As Byte
         ReDim objByteData(1 To FileLen(nmFileName)) As Byte
10       Open nmFileName For Binary Access Read Shared As #1
            Get #1, , objByteData()
12       Close #1
End Sub
        



#476943 - 04/10/2017 08:07:53

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


envia o arquivo que esta tentando ler



Resposta escolhida #476957 - 04/10/2017 12:54:34

EPISCOPAL
VARZEA GRANDE
Cadast. em:Maio/2009


Última edição em 04/10/2017 13:55:50 por EPISCOPAL

ou voce pode utilizar o proprio comando PUT

Put #1, filelen(x)-5, "seuTexto"

http://www.dreamincode.net/forums/topic/56171-file-handling-in-visual-basic-6-part-2-binary-file-handling/


_______________________________________________________________________________________________________
Episcopal Technology Studio




#476996 - 04/10/2017 23:14:47

NEIBALA
SAO BERNARDO DO CAMPO
Cadast. em:Dezembro/2013


Citação:
:
envia o arquivo que esta tentando ler


FABRICIOWEB / Grupo

    O conteúdo do arquivo pode ser o abaixo, pois seria apenas como base, mais a leitura tem que ser binary e com a opção de shared.

   projeto_arq_txt.txt

   Lendo arquivo texto parte 2





#477118 - 12/10/2017 11:15:47

EPISCOPAL
VARZEA GRANDE
Cadast. em:Maio/2009


????????


_______________________________________________________________________________________________________
Episcopal Technology Studio




#477123 - 12/10/2017 14:35:57

NEIBALA
SAO BERNARDO DO CAMPO
Cadast. em:Dezembro/2013


Citação:
:
????????

EPISCOPAL / Grupo

   Agradeço atenção, estarei reforçando a pergunta :

Nome do Arquivo : projeto_arq_txt.txt
Conteúdo do Arquivo : Lendo arquivo texto parte 2
E eu queria gravar no array bytes somente os últimos 5 caracteres no caso acima seria apenas :
Exemplo:
posição   :  1   2   3  4  5
conteúdo:  (r) (t) (e) () (2)

=> (rte 2) => 5 posições final do arquivo texto.




   Veja se assim ficou melhor e fico aguardando qualquer dica para está minha dúvida ?

2R9T1E31



#477134 - 13/10/2017 16:56:25

EPISCOPAL
VARZEA GRANDE
Cadast. em:Maio/2009


agora não entendi nada ............. o que postei não serve pra solução do seu problema?

_______________________________________________________________________________________________________
Episcopal Technology Studio




 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por NEIBALA em 02/11/2017 23:48:08