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

HOLA!!!


1. Exacto cada uno como puede, eso mismo cancela la teoria ya que si cada uno lo hace como puede unos podran olvidar en 3 dias o menos y otros no olvidaran nunca, no tiene nada que ver con el tiempo transcurrido en la relacion sino con la persona que "olvida".

2. ERROR el cerebro no siempre recuerda las cosas buenas y momentos felices, el cerebro si sabe que va a cometer un error hace que recuerdes el mal momento, Cito:
"De pequeño me queme con el horno, luego nunca mas lo toque por que recorde que quemaba"

3. Otra vez depende de la persona cada uno puede o no confiar o desconfiar de la persona que se le antoje, que VOS pierdas la confianza a la primera no es causal para generalizar a todos. Cada uno tiene sus pensamientos PROPIOS cosa que parece que no entendes.

GRACIAS POR LEER!!!

HOLA!!!

Constance, lamentablemente la razon y los sentimientos no van de la mano, no podes ser 100% racional y tener sentimientos (una maquina es racional al 100%, y esta no tiene sentimientos) los sentimientos son EL CAOS mismo son infinitas variables sin sentido, sin un inicio o un final concreto, por lo que una persona racional se da cuenta de esto y se "Desnubla" la vista y la mente.

Lamentablemente todos tenemos sentimientos, que yo mas que sentimientos los llamaria errores de programacion en nuestro SO (Si, somos maquinas Quimico-Organico-Electro-Mecanicas) Por suerte somos capaces de tomar nuestros sentimientos y hacer lo que querramos con ellos (si no podes hacer lo que quieras con tus sentimientos es por que no queres hacer nada con ellos) lo que nos diferencia de los animales es la razon y la capacidad de transmitir informacion generacion a generacion.

Me estoy yendo del tema...

Lo que decia, si sos muy racional, podes controlar tus sentimientos y superar todo mucho mas rapido.

La sociedad y las relaciones no son un cuento de hadas, ni un drama, son simplemente intentos (algunos fallidos) de relacionarse.

No tengo ganas de escribir mas por que me voy a ir de tema.

GRACIAS POR LEER!!!

HOLA!!!

Mmm no se si te referis al buffer que uso yo, que por cierto es la variable memoria.

El buffer mio se aumenta la primera vez de 0 a 64kb y luego va multiplicandose por 2 cada vez que se supera, lo cual si es una cadena larga mejora el rendimiento ya que se cambia el buffer menos veces.

GRACIAS POR LEER!!!

HOLA!!!


WOOOOOOO!!!

HEADSHOT!

Estoy de acuerdo con la cita mencionada arriba.

Mi teoria el tiempo para que una persona deje de "recordar" es inversamente proporcional a su nivel de racionalidad y capacidad para ver las cosas desde otro punto de vista.

En otras palabras una persona que se guia ciegamente por sus sentimientos no olvidara nunca, mientras que una persona 100% racional la olvidara casi al instante.

P.D: Nunca me he puesto siquiera de novio por 1 segundo, es mi vision "Piratezca" del tema.

P.D.2: Un problema generalizado en "la mayoria no todas" de las mujeres (algunos hombres tambien) Es que se dejan ilusionar y hacen espectativa de vida a futuro. un ejemplo la chica esta con un chico que ella piensa que va a ser el padre de sus hijas... a los 3 meses cortan y para la chica no perdio una relacion de 3 meses perdio eso y todo su futuro de fantasia.

GRACIAS POR LEER!!!

HOLA!!!

Sinceramente no se si sera tan rapida como la de Psyke1 pero me agrado y arme una, alguien haga un test :O

'cConcatenar7913.cls
Private Memoria As String
Private Capacidad As Long
Private TAM As Long
 
Private Sub Class_Initialize()
        Capacidad = 65536
        Memoria = Space$(65536)
        TAM = 0
End Sub
 
Public Sub Agregar(ByRef STR As String)
    Dim actTAM As Long
        actTAM = LenB(STR) / 2
        Do While actTAM > Capacidad - TAM
            Memoria = Memoria & Space$(Capacidad)
            Capacidad = Capacidad * 2
        Loop
        MidB$(Memoria, TAM + TAM + 2) = STR
        TAM = TAM + actTAM
End Sub
 
Public Property Get CerrarSTR() As String
        CerrarSTR = LeftB$(Memoria, TAM + TAM)
        Call Class_Initialize
        Debug.Print "Se ha borrado el string viejo y creado uno en blanco"
End Property
 
Public Property Get TamañoACT() As Long
        TamanoACT = TAM
End Property

GRACIAS POR LEER!!!

HOLA!!!


No era muy dificil, agrego una scrollbar vertical con el nobre NoMoveVScroll

En su evento change

Le ponen:

'en los tag de los controles le ponen el top inicial.
For each control in me
    if mid(control.name,1,6) <> "NoMove" then Control.top = val(control.tag) - NoMoveVScroll.value
next
 

No es solo ese el code pero con eso les tiene que andar.
GRACIAS POR LEER!!!

HOLA!!!

Resultados con prueba de 250000 caracteres:


Y el mio tiene mas combinaciones 

GRACIAS POR LEER!!!

HOLA!!!

Esto va en .Net

Reportado

GRACIAS POR LEER!!!

HOLA!!!

Ya me acorde, el virus infecta a todos los ejecutables del disco duro, por eso figuran con "VIRUT" tenes que desinfectarlos :S.

GRACIAS POR LEER!!!