elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.
 
Inicio Ayuda Buscar Ingresar Registrarse
29 Mayo 2012, 09:03  


Tema destacado: [AIO elhacker.NET] Compilación herramientas análisis y desinfección malware

+  Foro de elhacker.net
|-+  Programación
| |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo, raul338)
| | |-+  [Solucionado] parametro variable, o cambio xd
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Solucionado] parametro variable, o cambio xd  (Leído 350 veces)
CAR3S?


Desconectado Desconectado

Mensajes: 331


Level xXx


Ver Perfil
[Solucionado] parametro variable, o cambio xd
« en: 21 Octubre 2011, 04:38 »

buenas

estoy intentando eliminar una palabra que se como empieza, y se como termina.

hice una mezcla de mid con left y replace, pero a estas horas ya no me da la cabeza.

La palabra empieza con - y termina con -

Como nose que hacer, intente atravez de un LEN - 10 (10 caracteres son "fijos"), y el resultado del len-10 , enrealidad, ya no me acuerdo que hice

supongo que esta facil, si lo arreglo lo pongo.creo que ya estoy durmiendo

solucionado:

Como se que los 10 ultimos caracteres son los que me sirven, todo lo primero lo borro...
Código
sData = "-Viernes-21/10/2011"
inicio = 1
fin = Len(sData) - 10
cancer = Replace(sData, Mid(sData, inicio, fin), "")
MsgBox cancer 'me dara la fecha


« Última modificación: 21 Octubre 2011, 19:16 por nukje » En línea
Tenient101

Desconectado Desconectado

Mensajes: 127


Ver Perfil
Re: parametro variable, o cambio xd
« Respuesta #1 en: 21 Octubre 2011, 09:12 »

Algo rápido y eficaz  :xD

Código
Public Sub DeleteString(ByRef Str As String, ByRef Begin As String, ByRef EndS As String)
Dim P           As Long
Dim P2          As Long
 
       P = InStr(1, Str, Begin)
       P2 = InStr(P, Str, EndS)
 
       If (Not (CBool(P)) Or Not (CBool(P2))) Then
           Exit Sub
       End If
 
       Str = Mid(Str, 1, P - 1) & Mid(Str, P2 + Len(EndS), Len(Str))
 
End Sub
 

Uso:
Código
Dim A As String
A = "Este es un 345 aaa 661 ejemplo"
MsgBox A
DeleteString A, "45", "66"
MsgBox A


En línea
Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.005



Ver Perfil WWW
Re: parametro variable, o cambio xd
« Respuesta #2 en: 21 Octubre 2011, 10:05 »

Tu código tiene un error, la función no devuelve nada, revísalo.
Mira qué interesante, voy a hacer un reto de esto.

DoEvents! :P
En línea

Tenient101

Desconectado Desconectado

Mensajes: 127


Ver Perfil
Re: parametro variable, o cambio xd
« Respuesta #3 en: 21 Octubre 2011, 10:09 »

Tu código tiene un error, la función no devuelve nada, revísalo.
Mira qué interesante, voy a hacer un reto de esto.

DoEvents! :P

Lo hize especialmente con sub  :P, de todas formas es un ejemplo...
En línea
Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.005



Ver Perfil WWW
Re: parametro variable, o cambio xd
« Respuesta #4 en: 21 Octubre 2011, 10:19 »

Estoy ciego, mis disculpas... :-[
Código:
http://foro.elhacker.net/programacion_visual_basic/reto_recortar_cadena-t342479.0.html;msg1676307#msg1676307

DoEvents! :P
En línea

CAR3S?


Desconectado Desconectado

Mensajes: 331


Level xXx


Ver Perfil
Re: parametro variable, o cambio xd
« Respuesta #5 en: 21 Octubre 2011, 19:09 »

Sip, estaba dormido...

http://foro.elhacker.net/programacion_visual_basic/reto_recortar_cadena-t342479.0.html;msg1676428#msg1676428
En línea
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Powered by SMF 1.1.16 | SMF © 2006-2008, Simple Machines