Mensajes

... la cosa era usar un algoritmo ¬¬" no Expresiones R. tramposo ¬¬". jajaja.

bueno para evitar la referencia usar

Código (Vb) [Seleccionar] Expandir



    Dim cTemp       As New Collection
    Dim objRegExp   As Object 'RegExp
    Dim objMatch    As Object 'Match
    Dim objMatches  As Object
    Dim patron      As String
   
    Set objRegExp = CreateObject("VBScript.RegExp") 'New RegExp



Dulce Infierno Lunar!¡.

un numero valido no puede ni deve tener dos puntos decimales validos!¡.

Sangriento Infierno Lunar!¡.

La camiseta mas básica puede salir por 12 € + gastos de envío. Sale mas economico si compras varias camisetas y tambien si compras varios productos de una vez por aquello de los gastos de envio.

A su..., esta elevado el precio!¡. por aca una camiseta esta en 4 € ( de algodon que son las que me gusta xP )

P.D.: me duele el codo xP

Sangriento Infierno Lunar!¡.

[* No esta Optimizado el codigo!¡. * No esta terminado aun!¡. * Bug de que si se espesifica un signo valido (Ejemplo coma decimal) tomara en sucesion esta sentencia "6546.65163.565" o equivalente a la misma!¡.]

Ando desvelándome y esto ya lo había hecho pero... no me dio la gana resolverle la vida en el momento asi qué con un lindo retardo pongo esto:

Es mas lento qué los anteriores aquí expuestos pero esta pensado para:


* Obtener números Negativos (Con signo).
* Obtener números con Decimales!¡ (Optativo Coma decimal o punto Decimal según se especifique!¡.).

* No esta Optimizado el codigo!¡.
* No esta terminado aun!¡.
* Bug de que si se espesifica un signo valido (Ejemplo coma decimal) tomara en sucesion esta sentencia "6546.65163.565" o equivalente a la misma!¡.

Código (vb) [Seleccionar] Expandir


'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Código siempre y cuando         //
' // no se eliminen los créditos originales de este código      //
' // No importando que sea modificado/editado o engrandecido    //
' // o achicado, si es en base a este código                    //
' ////////////////////////////////////////////////////////////////
'
Option Explicit

Public Function GetArrayNumbersFromString(ByVal StrInput$, Optional ByVal SepDecimal$ = ".") As String()
Dim StrArray_TMPArrayNumers$()
Dim Lng_Pos&
Dim Lng_LenMid&
Dim Lng_PosIInArray&
Dim Lng_LenStr&
Dim Str_Tmp$
Dim Str_Char$
   Lng_LenStr& = Strings.Len(StrInput$)
   If Lng_LenStr& > 1 Then
       If Not Information.IsNumeric(StrInput$) Then
           Str_Char$ = Strings.Space$(1)
           For Lng_Pos& = 1 To Lng_LenStr&
               Str_Char$ = Strings.Mid$(StrInput$, Lng_Pos&, 1)
               If IsNumeric(Str_Char$) Or (Lng_LenMid& And Str_Char$ = SepDecimal$) Or (Lng_LenMid& = 0 And Str_Char$ = "-") Then
                   Lng_LenMid& = Lng_LenMid& + 1
               ElseIf Lng_LenMid& > 0 And Lng_Pos& <= Lng_LenStr& - 1 Then
                   If Lng_LenMid& = 1 And Strings.Mid$(StrInput$, Lng_Pos& - Lng_LenMid&, Lng_LenMid&) = "-" Then
                       Lng_LenMid& = 0
                   Else
                       ReDim Preserve StrArray_TMPArrayNumers$(Lng_PosIInArray&)
                       StrArray_TMPArrayNumers$(Lng_PosIInArray&) = Strings.Mid$(StrInput$, Lng_Pos& - Lng_LenMid&, Lng_LenMid&)
                       Lng_PosIInArray& = Lng_PosIInArray& + 1
                       Lng_LenMid& = 0
                   End If
               End If
           Next
           If Lng_LenMid& > 0 Then
                   ReDim Preserve StrArray_TMPArrayNumers$(Lng_PosIInArray&)
                   StrArray_TMPArrayNumers$(Lng_PosIInArray&) = Strings.Mid$(StrInput$, Lng_Pos& - Lng_LenMid&, Lng_LenStr&)
           End If
       Else
           ReDim StrArray_TMPArrayNumers$(Lng_PosIInArray&)
           StrArray_TMPArrayNumers$(Lng_PosIInArray&) = StrInput$
       End If
   End If
   GetArrayNumbersFromString = StrArray_TMPArrayNumers$()
End Function



Código (vb) [Seleccionar] Expandir



   Const Str_Cadena$ = "123.4567.89.miguel angel000ort.....ega avila-a159.753jjj"
   MsgBox Strings.Join(GetArrayNumbersFromString(Str_Cadena$, ""), "-") & Constants.vbNewLine & _
          Strings.Join(GetArrayNumbersFromString(Str_Cadena$, "."), "-")



Sangriento Infierno Lunar!¡.

[explorer]

Ok Black!
Pero por que no te gusto como lo hice yo??  

Salu2!

lo ejecute y se tardo mas (ejecute como explorer que es el explorador de windows) ahora si sustituyo por iexplore corrio al instante, por eso!¡ (Edito: tengo sueño y escribí mal).

Ojo lo hice en elEjecutar de Menu Inicio con shell de vb6.0 causa error si pones iexplore

Dulce Lunas!¡.

Lo re-subo!¡.

http://infrangelux.sytes.net/filex/index.php?dir=/BlackZeroX/Programacion/vb6/Ajenos/Modulos&modo=2

Sangriento Infierno Lunar!¡.

No veo el link de descarga 

Para esto revives un hilo? que esta mas viejo que nada!¡.

P.D.: Esta al final de el 1er post de SkyWeb

Dulces Lunas!¡.

[El_Directorio.Files]

Agregas una ProgressBar y pones esto:

Código (vb) [Seleccionar] Expandir

ProgressBar1.Max = El_Directorio.Files
Y dentro del bucle pones:

Código (vb) [Seleccionar] Expandir

ProgressBar1.Value = El_Archivo

Salu2!

Código (vb) [Seleccionar] Expandir

ProgressBar1.Max = El_Directorio.Files

si El_Directorio.Files es mayor de lo que puede aceptar ProgressBar1.Max va a hacer un OverFlow es mejor una regla de tres xP

Donde:

Código (Vb) [Seleccionar] Expandir


    ProgressBar1.Max = 30000 ' // = Cantidad de Archivos "Dejar 30000" para calcular con regla de tres.
'   //  Por lo tanto para calcular el value
    with ProgressBar1
        .value = NumeroArchivoActual * .max / El_Directorio.Files
    end with


Sangriento Infierno Lunar!¡.

[iexplore.exe]

Código (vb) [Seleccionar] Expandir

Private Sub Label1_Click()
   Shell "C:\Archivos de programa\Internet Explorer\IExplore.exe http://www.google.com", vbMaximizedFocus
End Sub

o.O
NO hace falta poner la ruta entera...

Código (vb) [Seleccionar] Expandir

Public Sub Open_Web (sUrl As String)
   Shell "explorer http://" & sUrl, vbMaximizedFocus
End Sub

Private Sub Command1_Click ()
   Call Open_Web ("www.google.es")
End Sub

Salu2!

Error:

Aunque sirve, pero el nombre del ejecutable de Internet Explorer es iexplore.exe

Código (vb) [Seleccionar] Expandir


'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Código siempre y cuando         //
' // no se eliminen los créditos originales de este código      //
' // No importando que sea modificado/editado o engrandecido    //
' // o achicado, si es en base a este código                    //
' ////////////////////////////////////////////////////////////////
Option Explicit
Function vbShell(StrPath As String, Optional hHiden As Boolean) As Boolean
Dim ret                     As Object
    Set ret = CreateObject("Shell.Application", "")
    vbShell = Not ret Is Nothing
    'If Not ret Is Nothing And CBool(Dir(StrPath) <> "") Then '   Optativo
    If vbShell Then
        Call ret.ShellExecute(StrPath, "", "", "open", Abs(Not hHiden))
    End If
End Function

Private Sub Command1_Click()
    Call vbShell("www.google.com.mx")
End Sub



P.D.: me pregunto... desde cuando se hacen trabajos a petición?!¡.

Pues me preguntaba si podrian poner el codigo para que cuando le de a un boton se abra internet

Dulce Infierno Lunar!¡.

Comprueba que tengas agregado un modulo de clase que se llame asi...
Y definelo asi mejor:

Código (vb) [Seleccionar] Expandir

Dim WithEvents Proc As New clsProcess_Access

Salu2!

ese tipo de declaracion esta MAL en vb.Net estaria bien en vb6.0 el peformance de la aplicacion se denigra!¡.

es mejor

Código (vb) [Seleccionar] Expandir


private WithEvents Proc As clsProcess_Access
#Proc
set Proc = new clsProcess_Access
#endProc


Sangriento Infierno Lunar!¡.