elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Ayuda con text
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda con text  (Leído 1,029 veces)
jdc


Desconectado Desconectado

Mensajes: 3.406


Ver Perfil WWW
Ayuda con text
« en: 23 Diciembre 2008, 23:50 pm »

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!


En línea

BlackZeroX (Astaroth)
Wiki

Desconectado Desconectado

Mensajes: 3.144


I'Love...!¡.


Ver Perfil WWW
Re: Ayuda con text
« Respuesta #1 en: 24 Diciembre 2008, 01:21 am »

mmm
4 caracteres ok

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

Código
  1. Dim buffer4 As String * 4' esta variable puede llamarse como desee
  2. Open "c:\aa.txt" For Binary As 1
  3. Get 1, , buffer4' donde vez ", ," es el bit de donde empesara a leer al archivo vb si se deja vasio sera desde el prinicipio
  4. Close 1
  5. MsgBox buffer4
  6.  

Código
  1. Dim buffer5 As String * 5' esta variable puede llamarse como desee
  2. Open "c:\aa.txt" For Binary As 1
  3. Get 1, , buffer5 ' donde vez ", ," es el bit de donde empesara a leer al archivo vb si se deja vasio sera desde el prinicipio
  4. Close 1
  5. letra=mid(buffer5,len(buffer5),1)
  6. MsgBox letra'solo faltaria hacer la comparacion xP
  7.  

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
  1. Mid(texto,1,4)
  2. Mid(texto,len(texto),1)
  3.  
mmm con
Código
  1. left(texto,4)
  2. right(texto,1)
  3.  

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

Saludos


« Última modificación: 24 Diciembre 2008, 01:38 am por ░▒▓BlackZeroҖ▓▒░ » En línea




CScript (Actualizado 26/06/2013).

FileX <-- Re-modelando...
Web Principal-->[ Blog(VB6/C/C++) | Host File | Scan Port) ]

The Dark Shadow is my passion.
El infierno es mi Hogar, mi novia es Lilit y el metal mi relig
jdc


Desconectado Desconectado

Mensajes: 3.406


Ver Perfil WWW
Re: Ayuda con text
« Respuesta #2 en: 24 Diciembre 2008, 02:20 am »

mmm
4 caracteres ok

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

Código
  1. Dim buffer4 As String * 4' esta variable puede llamarse como desee
  2. Open "c:\aa.txt" For Binary As 1
  3. Get 1, , buffer4' donde vez ", ," es el bit de donde empesara a leer al archivo vb si se deja vasio sera desde el prinicipio
  4. Close 1
  5. MsgBox buffer4
  6.  

Código
  1. Dim buffer5 As String * 5' esta variable puede llamarse como desee
  2. Open "c:\aa.txt" For Binary As 1
  3. Get 1, , buffer5 ' donde vez ", ," es el bit de donde empesara a leer al archivo vb si se deja vasio sera desde el prinicipio
  4. Close 1
  5. letra=mid(buffer5,len(buffer5),1)
  6. MsgBox letra'solo faltaria hacer la comparacion xP
  7.  

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
  1. Mid(texto,1,4)
  2. Mid(texto,len(texto),1)
  3.  
mmm con
Código
  1. left(texto,4)
  2. right(texto,1)
  3.  

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!  ;D


En línea

cassiani


Desconectado Desconectado

Mensajes: 978


« Anterior | Próximo »


Ver Perfil WWW
Re: Ayuda con text
« Respuesta #3 en: 30 Diciembre 2008, 17:43 pm »

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

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[AYUDA] Obtener text de un RichTextBox
Programación Visual Basic
sebah97 2 2,521 Último mensaje 19 Diciembre 2010, 19:56 pm
por BlackZeroX (Astaroth)
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines