Autor
|
Tema: [RETO] Recortar cadena. (Leído 7,598 veces)
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
Public Function DeleteString(ByVal sString As String, ByVal PosComienzo As Long, ByVal Longitud As Long) As String
Ej: Vale todo el más rápido gana. DoEvents!
|
|
|
En línea
|
|
|
|
Sanlegas
Desconectado
Mensajes: 131
https://fbcdn-sphotos-e-a.akamaihd.net/hphotos-ak-
|
Public Function DeleteString_TV1(ByVal sString As String, ByVal PosComienzo As Long, ByVal Longitud As Long) DeleteString = Replace$(sString, Mid(sString, PosComienzo, Longitud), vbNullString) End Function
Salu2
|
|
« Última modificación: 22 Octubre 2011, 07:20 am por Tenient101 »
|
En línea
|
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!! Esto es la funcion inversa a un mid :S Aca mi codigo: Con primera letra POS 0: Public Function DeleteString7913(ByVal sString As String, ByVal PosComienzo As Long, ByVal Longitud As Long) As String DeleteString7913 = LeftB$(sString, PosComienzo + PosComienzo) & RightB$(sString, LenB(sString) - (PosComienzo + PosComienzo + Longitud + Longitud)) End Function
GRACIAS POR LEER!!!
|
|
« Última modificación: 21 Octubre 2011, 21:18 pm por 79137913 »
|
En línea
|
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!" "La peor de las ignorancias es no saber corregirlas"
79137913 *Shadow Scouts Team*
|
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!! @Elemental: Sumar x valores iguales es mas rapido que multiplicar por x GRACIAS POR LEER!!!
|
|
|
En línea
|
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!" "La peor de las ignorancias es no saber corregirlas"
79137913 *Shadow Scouts Team*
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
Se supone que el primer indice de un caracter es el 1 no el 0... respecto a la string claro... Ej: Hol a hoy estoy cansado Vale todo el más rápido gana. Dulces Lunas!¡.
|
|
|
En línea
|
The Dark Shadow is my passion.
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!! Se supone que el primer indice de un caracter es el 1 no el 0... respecto a la string claro... Ej: Hol a hoy estoy cansado Vale todo el más rápido gana. Dulces Lunas!¡. Respetando el enunciado y ejemplos... La primera letra es Pos = 0 GRACIAS POR LEER!!!
|
|
|
En línea
|
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!" "La peor de las ignorancias es no saber corregirlas"
79137913 *Shadow Scouts Team*
|
|
|
CAR3S?
Desconectado
Mensajes: 343
Level xXx
|
Funcion -> Eliminar pedazo de cadena, con su INICIO (VARIABLE) y su fin (VARIABLE) Function nico(ByVal testo As String, ByVal posini As Long, ByVal posfin As Long) final = Replace$(testo, (Mid(testo, posini, posfin)), "") MsgBox final
Uso: sData = "-Viernes-21/10/2011" inicio = 1 'Desde la primera letra hasta....... fin = Len(sData) - 10 'Contamos los caracteres y le sacamos 10, que son los unicos que quiero dejar. Si sabemos que empieza en la primera letra, y que los ultimos 10 caracteres quiero dejar, sacara todo y dejara solo los ultimos 10 XD nico (sData), inicio, fin
offffffffffffffffffff: creo que no entendi la consigna XD, pero me di cuenta que... sData = "-Viernes-21/10/2011" inicio = 1 fin = Len(sData) - 10 cancer = Replace(sData, Mid(sData, inicio, fin), "") MsgBox cancer
|
|
« Última modificación: 21 Octubre 2011, 19:04 pm por nukje »
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
Vale todo el más rápido gana.
Option Explicit Private Declare Sub RtlMoveMemory Lib "kernel32" (ByVal pDst As Any, ByVal pSrc As Any, ByVal ByteLen As Long) Private Declare Sub PutMem4 Lib "msvbvm60" (ByVal Addr As Long, ByVal NewVal As Long) Private Declare Sub PutMem2 Lib "msvbvm60" (ByVal Addr As Long, ByVal NewVal As Integer) Private Declare Sub GetMem4 Lib "msvbvm60" (ByVal Addr As Long, ByVal RetVal As Long) Public Function DeleteString_BZX(ByVal sString As String, ByVal lPosIni As Long, ByVal lSize As Long) As String Dim lLnb As Long Dim lpStr As Long If ((lSize Or lPosIni) And &H80000000) Then Exit Function lLnb = LenB(sString) if (lLnb = &H0) then exit function lSize = (lSize + lSize) lPosIni = (lPosIni + lPosIni) If (lPosIni >= lLnb) Then Exit Function lpStr = (lPosIni + lSize) If (lpStr > lLnb) Then lSize = (lLnb - lPosIni) End If GetMem4 VarPtr(sString), VarPtr(lpStr) If (lSize > &H0) Then lLnb = (lLnb - lSize) If (lLnb > lPosIni) Then RtlMoveMemory (lPosIni + lpStr), ((lPosIni + lpStr) + lSize), (lLnb - lPosIni) 'MidB$(sString, (lPosIni + 1), (lLnb - lPosIni)) = MidB$(sString, (lPosIni + lSize + 1), (lLnb - lPosIni)) End If End If PutMem2 ByVal (lpStr + lLnb), &H0 PutMem4 ByVal (lpStr - &H4), lLnb PutMem4 VarPtr(DeleteString_BZX), lpStr PutMem4 VarPtr(sString), &H0 End Function
Private Sub Form_Load() Debug.Print DeleteString_BZX("BlackZeroX", -1, 4), Len(DeleteString_BZX("BlackZeroX", -1, 4)) Debug.Print DeleteString_BZX("BlackZeroX", 9, 4), Len(DeleteString_BZX("BlackZeroX", 9, 4)) Debug.Print DeleteString_BZX("BlackZeroX", 0, -4), Len(DeleteString_BZX("BlackZeroX", 0, -4)) Debug.Print DeleteString_BZX("BlackZeroX", 1, 4), Len(DeleteString_BZX("BlackZeroX", 1, 4)) Debug.Print DeleteString_BZX("BlackZeroX", 0, 4), Len(DeleteString_BZX("BlackZeroX", 0, 4)) Debug.Print DeleteString_BZX("BlackZeroX", 0, 400), Len(DeleteString_BZX("BlackZeroX", 0, 400)) End Sub
Temibles Lunas!¡.
|
|
« Última modificación: 23 Octubre 2011, 08:16 am por BlackZeroX (Astaroth) »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
Más tarde publico la mía. DoEvents!
|
|
« Última modificación: 23 Octubre 2011, 13:50 pm por Psyke1 »
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Recortar imagenes
Diseño Gráfico
|
Superplay
|
9
|
4,264
|
12 Agosto 2005, 10:59 am
por Superplay
|
|
|
recortar archivo .fla
Diseño Gráfico
|
Unnamed
|
2
|
4,905
|
11 Septiembre 2008, 02:31 am
por Unnamed
|
|
|
recortar texto vb6
Programación Visual Basic
|
Psyke1
|
2
|
6,586
|
28 Febrero 2010, 21:44 pm
por Psyke1
|
|
|
Recortar número
« 1 2 »
Programación Visual Basic
|
Psyke1
|
11
|
4,992
|
12 Agosto 2010, 08:51 am
por Psyke1
|
|
|
[RETO] Entero a cadena
« 1 2 »
Programación Visual Basic
|
Karcrack
|
19
|
7,918
|
1 Septiembre 2010, 21:55 pm
por Psyke1
|
|