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

 

 


Tema destacado: Sigue las noticias más importantes de seguridad informática en el ttwitter! de elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Como sacar el ultimo caracter de una variable
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Como sacar el ultimo caracter de una variable  (Leído 4,557 veces)
Edu


Desconectado Desconectado

Mensajes: 1.082


Ex XXX-ZERO-XXX


Ver Perfil
Como sacar el ultimo caracter de una variable
« en: 4 Septiembre 2010, 02:55 am »

Eso mismo, como saco el ultimo caracter de una variable?
por ejemplo la variable equivale a "elhackerg" y quiero q quede "elhacker", es con eso de righ$ y left$ o mid$, pero la verdad no puedo hacerlo a ver qien me ayuda..


En línea

Karcrack


Desconectado Desconectado

Mensajes: 2.419


Se siente observado ¬¬'


Ver Perfil
Re: Como sacar el ultimo caracter de una variable
« Respuesta #1 en: 4 Septiembre 2010, 02:59 am »

Te recomiendo que te mires algun tuto basico sobre manejo de cadenas...
Hay varias formas, mira:
Código
  1.    Dim sText       As String
  2.  
  3.    sText = "elhackerg"
  4.  
  5.    MsgBox Left$(sText, Len(sText) - 1)
  6.    MsgBox Mid$(sText, 1, Len(sText) - 1)

Saludos ;)


En línea

Edu


Desconectado Desconectado

Mensajes: 1.082


Ex XXX-ZERO-XXX


Ver Perfil
Re: Como sacar el ultimo caracter de una variable
« Respuesta #2 en: 4 Septiembre 2010, 03:10 am »

Sabes q me da error..
esque acuerdate de ni nombre y cuando vayas a contestarme algo pensalo 2 veces a ver si no me habre complicado las cosas yo xD
esque mi code es asi:

Código
  1. Option Explicit
  2. Dim FF As Integer
  3. Dim variable As String, texto As String
  4.  
  5.  
  6. Private Sub Command1_Click()
  7. FF = FreeFile
  8. Open App.Path & "/hosts.txt" For Input As #FF
  9.  
  10. Do
  11.  
  12. Line Input #FF, variable
  13.  
  14. texto = Left$(variable, Len(variable) - 1)
  15.  
  16. Text1.Text = Text1.Text & vbCrLf & texto
  17.  
  18. Loop While EOF(FF) = False
  19.  
  20.  
  21.  
  22. End Sub
  23.  

Q hago mal? me da error eso asi..
En línea

Karcrack


Desconectado Desconectado

Mensajes: 2.419


Se siente observado ¬¬'


Ver Perfil
Re: Como sacar el ultimo caracter de una variable
« Respuesta #3 en: 4 Septiembre 2010, 03:22 am »

Me funciona perfectamente...
Código:
Private Sub Command1_Click()
    Dim variable    As String
    Dim texto       As String
    
    Open App.Path & "\hosts.txt" For Input As #1
        Do
            Line Input #1, variable
            texto = Left$(variable, Len(variable) - 1)
            Text1.Text = Text1.Text & vbCrLf & texto
        Loop While Not EOF(1)
    Close #1
End Sub

Unos consejos:
-A no ser que necesites acceder a las variables desde otras funciones es una buena costumbre añadirlas dentro del procedimiento donde las usas.
-Identa tus codigos.

Un saludo ;)
En línea

Edu


Desconectado Desconectado

Mensajes: 1.082


Ex XXX-ZERO-XXX


Ver Perfil
Re: Como sacar el ultimo caracter de una variable
« Respuesta #4 en: 4 Septiembre 2010, 03:33 am »

Copie y pegue tu codigo y asi tampoco me anda.. me salta error de q esta mal la llamada al procedimiento o funcion, por lo de left$, esa linea me sale erronea, pero dices q a vs te anduvo perfectamente.. ahora prueba con un .txt q tenga mas de 1 linea a ver q pasa..
En línea

Karcrack


Desconectado Desconectado

Mensajes: 2.419


Se siente observado ¬¬'


Ver Perfil
Re: Como sacar el ultimo caracter de una variable
« Respuesta #5 en: 4 Septiembre 2010, 03:43 am »

Copie y pegue tu codigo y asi tampoco me anda.. me salta error de q esta mal la llamada al procedimiento o funcion, por lo de left$, esa linea me sale erronea, pero dices q a vs te anduvo perfectamente.. ahora prueba con un .txt q tenga mas de 1 linea a ver q pasa..
Lo probe con el fichero "C:\boot.ini" que tiene mas de una linea... Prueba a reiniciar el VB a ver... a mi hace tiempo me saltaban errores en algunas funciones propias... si no prueba a reemplazar Left$() por Left() :-\
En línea

Edu


Desconectado Desconectado

Mensajes: 1.082


Ex XXX-ZERO-XXX


Ver Perfil
Re: Como sacar el ultimo caracter de una variable
« Respuesta #6 en: 4 Septiembre 2010, 04:23 am »

Ya me di cuenta, lo q pasa es q yo probe lo de righ$ y eso, algo se de vb6 solo q hace poco aprendi todo, pero el problema era q el hosts.txt tenia 100 lineas vacias al principio y entonces la variable seria 0 y con el len(variable) - 1 quedaria -1 xD

Ahora eso como solucionarlo no lo se pero voy a probar, de seguro me sale, gracias por los consejos y por ayudarme karcrack
En línea

BlackZeroX (Astaroth)
Wiki

Desconectado Desconectado

Mensajes: 3.144


I'Love...!¡.


Ver Perfil WWW
Re: Como sacar el ultimo caracter de una variable
« Respuesta #7 en: 5 Septiembre 2010, 10:35 am »

No vi Right$() asi que lo pongo!¡.

Código
  1.  
  2. Private Sub Form_Load()
  3. Const TmpStr$ = "Hola, Veronica?"
  4.    MsgBox Right$(TmpStr$, 1)
  5. End Sub
  6.  
  7.  

Dulces Lunas!¡.
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
Edu


Desconectado Desconectado

Mensajes: 1.082


Ex XXX-ZERO-XXX


Ver Perfil
Re: Como sacar el ultimo caracter de una variable
« Respuesta #8 en: 5 Septiembre 2010, 19:29 pm »

No es lo q pedia pero gracias igual, yo ya se usar esos comandos solo q me daban error porq el .txt tenia lineas sin nada, en blanco, y entonces puse solo un if variable <> "" then.. y me arregle por ahi xD

Voy a cerrar el tema mejor, gracias a todos

pd: Si pudiera cerrarlo.. xD
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines