Mensajes

Si no viene con SRC no va en esta sección.

DoEvents!

[FindWindow()]

api FindWindow()
Por cierto, este no es el foro de .NET... Te has confundido.

DoEvetns!

¿Algo así?

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cX As Long, ByVal cY As Long, ByVal wFlags As Long) As Long

Private Const HWND_BOTTOM& = 1
Private Const SWP_NOSIZE& = &H1
Private Const SWP_SHOWWINDOW& = &H40
Private Const SWP_NOOWNERZORDER& = &H200

Private Sub Command1_Click()
   Call SetWindowPos(Me.hwnd, HWND_BOTTOM, 0, 0, 0, 0, SWP_NOOWNERZORDER Or SWP_NOSIZE Or SWP_SHOWWINDOW)
End Sub

DoEvents!

[Replace()]

*Una forma sería usando [Bucle + Replace()] en cada linea para que te quede todo separado por un solo espacio.
*Otra sería usando RegExp, con algo así, si no me equivoco:

Código [Seleccionar] Expandir

\s*(\S+)\s*


A parte de eso, usas mal el Split(), si te fijas, no pusiste delimitador.

DoEvents!

La canción, el video, o el video y la canción?

DoEvents!

Ya lo vi, Muy bueno

PD: I'm MR. X xDDDD

foro.gmks.com.ar Raaaato que no te veo alla xD

xDxDxDxDxD

¿Era necesario el spam?

DoEvents!

[youtube=425,350]http://www.youtube.com/watch?feature=player_embedded&v=Mg5OtXFKJoA[/youtube]
¿Alguien me podría decir de quien es la canción de este video?

Gracias

DoEvents!

Sería interesante hacerlo si no se pudiese cortar las palabras.

DoEvents!

La mejor forma que hay se me ocurre de hacerlo, con un Type, queda superbonito :

Código (vb) [Seleccionar] Expandir

Option Explicit

'// @ntdll.dll
Private Declare Sub RtlMoveMemory Lib "ntdll.dll" (ByVal Destiny As Long, ByVal Source As Long, ByVal Bytes As Long)

Private Type SPLIT_POSITION
   Mark        As Long
   LenBDel     As Long
End Type

Public Static Function MrFrogMultiSplit(ByRef strText$, ByRef strDelimiter$(), ByRef strOutputArray$()) As Boolean
Dim strTmpDel$, lngLenBDel&, lngLenBText&, lngUBDel&, lngLBDel&
Dim SP() As SPLIT_POSITION, tmpSP As SPLIT_POSITION
Dim lngCount&, lngStart&, B2c&, Q&, C&

   lngLenBText = VBA.Strings.LenB(strText)
   If (Not Not strDelimiter) And (lngLenBText > 0) Then
       lngLBDel = LBound(strDelimiter)
       lngUBDel = UBound(strDelimiter)

       ReDim SP(255) As SPLIT_POSITION
       lngCount = 0
       
       For Q = lngLBDel To lngUBDel
           strTmpDel = strDelimiter(Q)
           lngStart = VBA.Strings.InStrB(1, strText, strTmpDel)
           
           If (lngStart - 1)>0 Then
               lngLenBDel = VBA.LenB(strTmpDel)
               
               Do
                   tmpSP.Mark = lngStart
                   tmpSP.LenBDel = lngLenBDel
                   
                   lngStart = VBA.Strings.InStrB(lngStart + lngLenBDel, strText, strTmpDel)
                   
                   C = lngCount
                   If C Then
                       Do While tmpSP.Mark < SP(C - 1).Mark
                           C = C - 1
                           If C = 0 Then Exit Do
                       Loop
                       
                       If C < lngCount Then
                           B2c = lngCount - C
                           RtlMoveMemory VarPtr(SP(C + 1)), VarPtr(SP(C)), B2c + B2c + B2c + B2c + B2c + B2c + B2c + B2c
                       End If
                   End If
                   SP(C) = tmpSP
                   
                   lngCount = lngCount + 1
                   If lngCount And &HFF Then
                       ReDim Preserve SP(lngCount + &HFF) As SPLIT_POSITION
                   End If
               Loop While lngStart
           End If
       Next Q

       ReDim strOutputArray$(lngCount)
       lngCount = lngCount - 1
       lngStart = 1

       For Q = 0 To lngCount
           strOutputArray$(Q) = VBA.Strings.MidB$(strText, lngStart, SP(Q).Mark - lngStart)
           lngStart = SP(Q).Mark + SP(Q).LenBDel
       Next Q
       
       If (lngStart And Not 1) < lngLenBText Then
           strOutputArray$(Q) = VBA.Strings.MidB$(strText, lngStart, lngLenBText - lngStart + 2)
       End If
       
       MrFrogMultiSplit = True
   End If
End Function

Código [Seleccionar] Expandir

Private Sub Form_Load()
Const strTest$ = "My+name--is(((MrFrog====and+I--love(((frogs... :P+hahaha===="
Dim strArr$(), strDels$()
Dim FixIdeBug&()
Dim vItem

   Debug.Assert Not FixIdeBug Or App.hInstance

   strDels = Split("+ -- ((( ====", " ")

   If MrFrogMultiSplit(strTest, strDels, strArr) Then
       Debug.Print "---> "; Time$; " <---"
   
       For Each vItem In strArr
           Debug.Print vItem
       Next vItem
   End If
End Sub

DoEvents!

[ChrW()]

Copión...

Código [Seleccionar] Expandir

Int(lExp / 2)
Es lo mismo que:

Código [Seleccionar] Expandir

lExp \ 2
Redimensionas la matrix 2 veces innecesariamente.
El ChrW() debe llevar un $ para que no quede como variant : ChrW$().

DoEvents!