mmm
4 caracteres ok
mmm no se si te entendi pero te pongo dos codigos haber cual tesirve
SOLO UNA COSA USA FREEFILE para asigna rel numero de identificación cuando abras el archivo ya que si no puedes causar un error, al tratar de abrir y o escribir (no lo use en el source de arriba ya que no estoy abriendo varios archivos a la vez ok)
ommm igual con la funcion
mmm con
mm como mmm otra no se cual,... Lo demas te lo dejo atí.
Saludos
4 caracteres ok
mmm no se si te entendi pero te pongo dos codigos haber cual tesirve
Código (vb) [Seleccionar]
Dim buffer4 As String * 4' esta variable puede llamarse como desee
Open "c:\aa.txt" For Binary As 1
Get 1, , buffer4' donde vez ", ," es el bit de donde empesara a leer al archivo vb si se deja vasio sera desde el prinicipio
Close 1
MsgBox buffer4
Código (vb) [Seleccionar]
Dim buffer5 As String * 5' esta variable puede llamarse como desee
Open "c:\aa.txt" For Binary As 1
Get 1, , buffer5 ' donde vez ", ," es el bit de donde empesara a leer al archivo vb si se deja vasio sera desde el prinicipio
Close 1
letra=mid(buffer5,len(buffer5),1)
MsgBox letra'solo faltaria hacer la comparacion xP
SOLO UNA COSA USA FREEFILE para asigna rel numero de identificación cuando abras el archivo ya que si no puedes causar un error, al tratar de abrir y o escribir (no lo use en el source de arriba ya que no estoy abriendo varios archivos a la vez ok)
ommm igual con la funcion
Código (vb) [Seleccionar]
Mid(texto,1,4)
Mid(texto,len(texto),1)
mmm con
Código (vb) [Seleccionar]
left(texto,4)
right(texto,1)
mm como mmm otra no se cual,... Lo demas te lo dejo atí.
Saludos