Mensajes

Código (vb) [Seleccionar] Expandir


private declare sub Sleep lib "kernel32.dll"(byval mms as long)

...
for i=0 to 10
      doevents
    sleep(100) '<---- milisegundos
next


No me doy por vencido!  

Código (vb) [Seleccionar] Expandir

Sub getFiles(ByVal args As String, res() As String)
    Dim i As Integer
    Dim e As Integer
    Dim sTmp As String

    i = InStr(args, Chr$(34))
    e = InStr(i + 1, args, Chr$(34))
    While i > 0 And e > 0
        sTmp = Mid(args, i, e - i + 1)
        args = Replace(args, sTmp, Replace(Mid(sTmp, 2, Len(sTmp) - 2), " ", "|") & ":")
        i = InStr(e, args, Chr$(34))
        e = InStr(i + 1, args, Chr$(34))
    Wend
    If Len(args) = 0 Then args = ":"
    args = Replace$(args, "  ", "")
    args = Replace$(args, " ", ":")
    args = Replace$(args, "::", ":")
    If Mid$(args, Len(args), 1) = ":" Then args = Mid$(args, 1, Len(args) - 1)
    args = Replace$(args, "|", " ")
    res = Split(args, ":")
End Sub


Disculpa LeandroA tenia un errocito  listo!

Código (vb) [Seleccionar] Expandir

Sub getFiles(ByVal args As String, res() As String)
    Dim i As Integer
    Dim e As Integer
    Dim sTmp As String

    i = InStr(args, Chr$(34))
    While i > 0
        e = InStr(i + 1, args, Chr$(34))
        sTmp = Mid(args, i, e)
        args = Replace(args, sTmp, Replace(Mid(sTmp, 2, Len(sTmp) - 2), " ", "|"))
        i = InStr(e, args, Chr$(34))
    Wend
    args = Replace(args, " ", "*")
    args = Replace(args, "|", " ")
    res = Split(args, "*")
    e = -1
    For i = 0 To UBound(res) - 1
        If res(i + 1) = "" Then
            i = i + 1
        ElseIf res(i) = "" Then
            res(i) = res(i + 1)
            i = i - 1
            e = e + 1
        End If
    Next
    If e > 0 Then
        ReDim Preserve res(e - 1)
    ElseIf e = 0 Then
        'Erase res <----
        ReDim res(0)
    End If
End Sub


[@seba123neo]

Esta pregunta la he hecho unas 450 veces pero se me olvida 

Como medimos la velocidad?

@seba123neo
Jajajajaja te barriste con tu segunda funcion 

Ahi va rusticamente 

Código (vb) [Seleccionar] Expandir

Sub getFiles(ByVal args As String, res() As String)
    Dim i As Integer
    Dim e As Integer
    Dim sTmp As String
   
    i = InStr(args, Chr$(34))
    While i > 0
        e = InStr(i + 1, args, Chr$(34))
        sTmp = Mid(args, i, e)
        args = Replace(args, sTmp, Replace(Mid(sTmp, 2, Len(sTmp) - 2), " ", "|"))
        i = InStr(e, args, Chr$(34))
    Wend
    args = Replace(args, " ", "*")
    args = Replace(args, "|", " ")
    res = Split(args, "*")
    e = 0
    For i = 0 To UBound(res) - 1
        If res(i + 1) = "" Then
            i = i + 1
        ElseIf res(i) = "" Then
            res(i) = res(i + 1)
            i = i - 1
            e = e + 1
        End If
    Next
    If e > 0 Then
        ReDim Preserve res(e - 1)
    Else
        'Erase res <----
        ReDim res(0)
    End If
End Sub


Código (vb) [Seleccionar] Expandir

Function getFileName(ByVal path As String) As String
    Dim cM As Integer
    cM = InStrRev(path, "\") + 1
    If cM = 0 Then Exit Function
    getFileName = Mid(path, cM)
End Function


[@BalckZerox]

@BalckZerox
Ya esta liberado amigo, constantemente estoy corrigiendo errores y tratandolo de mejorar un poco.
Pues si algun moderador desea moverlo...  

EDITO: otra, si, otra version   (Feb 13 2011)

EDITO: sigue sin solucion el reto 2, ya viene integrado en la descarga.

Exactamente eso era! Ya esta solucionado!            

Ya habia tratado de cambiar la version antes pero no me funcionaba de todas formas. Lo que hice fue quitarme la paranoia y admitir las actualizaciones de windows, en las cuales se encontraban las actualizaciones para los frameworks!... solamente tenia que actualizar windows!!!!!!!!

Muchas gracias a todos por la ayuda  


Otra cosa:
Bueno, la verdad es que en VBNET estoy en "ceros", pero me gustaria aprender algo que tenga que ver con .NET, me quedo con VBNET o me cambio a C#?, que dicen?
Aclarando que manejo un poquito mas visual basic, que C++...

[@Sauruxum]

@Sauruxum
Creeme que no es lo mismo, quiza tu tienes el Visual Studio, por que yo "tenia" solo el Visual Basic Net Express y no me aparecian esas opciones, y solo venia con 4 o 5 plantillas.
Desintale el vbnet y me puse a descargar el Visual Studio 2008, a ver que tal. Sera lo mismo?

Gracias a todos por la ayuda!

Jajajaa tiene un botoncito de ayuda ahi 

Te recomiendo que vuelvas (si otra vez ) a descargar el programa que le corregi algunos errores(esta apareciendo cada vez mas!)