mmm
4 caracteres ok
mmm no se si te entendi pero te pongo dos codigos haber cual tesirve
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
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
Mid(texto,1,4)
Mid(texto,len(texto),1)
mmm con
left(texto,4)
right(texto,1)
mm como mmm otra no se cual,... Lo demas te lo dejo atí.
Saludos
Muchas gracias si me resulta lo que trato de hacer posteo aqui el source xDDDD
Te lo agradezco de nuevo!
Mostrar Mensajes
