COMO LER SOMENTE A PARTE FINAL POR OPEN BINARY

NEIBALA 04/10/2017 00:26:14
#476941
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:ede    este\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
FABRICIOWEB 04/10/2017 08:07:53
#476943
envia o arquivo que esta tentando ler
EPISCOPAL 04/10/2017 12:54:34
#476957 Resposta escolhida
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/
NEIBALA 04/10/2017 23:14:47
#476996
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
EPISCOPAL 12/10/2017 11:15:47
#477118
????????
NEIBALA 12/10/2017 14:35:57
#477123
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
EPISCOPAL 13/10/2017 16:56:25
#477134
agora não entendi nada ............. o que postei não serve pra solução do seu problema?
Tópico encerrado , respostas não são mais permitidas
Voltar