Foro de elhacker.net

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..

Te recomiendo que te mires algun tuto basico sobre manejo de cadenas...
Hay varias formas, mira:

    Dim sText       As String
 
    sText = "elhackerg"
 
    MsgBox Left$(sText, Len(sText) - 1)
    MsgBox Mid$(sText, 1, Len(sText) - 1)

Saludos ;)

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:

Option Explicit
Dim FF As Integer
Dim variable As String, texto As String
 
 
Private Sub Command1_Click()
FF = FreeFile
Open App.Path & "/hosts.txt" For Input As #FF
 
Do
 
Line Input #FF, variable
 
texto = Left$(variable, Len(variable) - 1)
 
Text1.Text = Text1.Text & vbCrLf & texto
 
Loop While EOF(FF) = False
 
 
 
End Sub
 

Q hago mal? me da error eso asi..

Me funciona perfectamente...

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 ;)

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() :-\

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

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

 
Private Sub Form_Load()
Const TmpStr$ = "Hola, Veronica?"
    MsgBox Right$(TmpStr$, 1)
End Sub
 
 

Dulces Lunas!¡.

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