Ayuda con text

[jdc]

Hola estoy tratando de hacer un programa que compare los 4 primeros caracteres de un text contra un archivo txt...

Por ejemplo:

         __________
text1 |123456789|
         -----------

y en el archivo txt tengo por ejemplo:

1234A
4567B
8901C
2345D

Osea comparado seria 1234A osea corresponderia a A


Algo como:

Si (en el txt es A = True) Then
Label1.Caption = "Es A"
Else
Label1.Caption = "Es otro"
End if

Alguien me puede ayudar a pensar?

estaba pensando recien para omitir los numeros restantes ya que solo necesito el 1234 poner un Text2.Visible = False con la propiedad MaxLength en 4 y trabajar con el text2 para no complicarme no? que piensan?

Saludos y gracias de antemano!

[BlackZeroX]

mmm
4 caracteres ok

mmm no se si te entendi pero te pongo dos codigos haber cual tesirve

Código (vb) [Seleccionar] Expandir


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] Expandir


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] Expandir


Mid(texto,1,4)
Mid(texto,len(texto),1)

mmm con

Código (vb) [Seleccionar] Expandir


left(texto,4)
right(texto,1)


mm como mmm otra no se cual,... Lo demas te lo dejo atí.

Saludos

[jdc]

mmm
4 caracteres ok

mmm no se si te entendi pero te pongo dos codigos haber cual tesirve

Código (vb) [Seleccionar] Expandir


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] Expandir


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] Expandir


Mid(texto,1,4)
Mid(texto,len(texto),1)

mmm con

Código (vb) [Seleccionar] Expandir


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! 

[cassiani]

No veo la necesidad de citar todo el post anterior si es justamente al él a quien va dirigida la respuesta