5. Leer los último X bits de un archivo de texto.

Dim sr As New System.IO.StreamReader("D:\001.txt")         Dim LastLines As String         Dim FirstWord As String = "END BLOCK"         sr.BaseStream.Seek(-12, IO.SeekOrigin.End)         LastLines = sr.ReadToEnd         MsgBox(LastLines)

Bueno este código es muy sencillo, lo que hace es obtener una cantidad de datos del final de un archivo de texto y la cantidad puede ser libre. Ejemplo:

Un archivo de texto contiene los siguientes bits: “HOLA MUNDO”

Y queremos capturar o obtener los últimos 5 bit, entonces obtendríamos la palabra “MUNDO” ya que son los últimos 5 caracteres.

La explicación: ahora si les explico la función, en la primera línea vemos la declaración de archivo, ahí es donde debemos poner la dirección de el archivo para que el programa pueda funcionar exactamente con ese archivo. Las siguientes dos líneas son declaraciones y en la tercera en la parte con roja es donde señalamos la cantidad de bit que queremos capturar, note que siempre hay que poner dos bit de más de los que se quiere, es decir que si quiere 5 bits debes pone 7, si quieres 10 pones 12