Mensajes

[Environ]

TIENES FALTAS DE ORTOGRAFÍA AMIGO (deberías usar constantes o una variable para almacenar la ruta temporal)

Código [Seleccionar] Expandir



FileCopy Environ("windir") & "\sytem32\1.exe", Environ("Windir") & "\system32\2.exe"""

debug.print Environ("windir") & "\sytem32\1.exe"
debug.print Environ("Windir") & "\system32\2.exe"""

C:\WINDOWS\sytem32\1.exe
C:\WINDOWS\system32\2.exe"



Dulces Lunas!¡.

El Environ tinene que ir con $ detras que si no queda como Variant...

Salu2!

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

Yo dije primero que se puede con expreg. Ustedes fueron los tipos con tiempo libre para dedicarle al tema, yo la hice facil y corta xD

He hecho esta bonita funcion mientras me aburria

No funciona con los ultimos 2 numeros q puse

JOJOJOJO
No, si al final acabamos a tortas!!

Salu2!

Ok, pero no se porque tienes tana "fobia" a las APIs...

Salu2 y Gracias!

Aqui os dejo esta sencilla función para saber si un caracter es vocal, consonante, numérico o es un símbolo...

Código (vb) [Seleccionar] Expandir


' ////////////////////////////////////////////////////////////////
' // *Autor: *PsYkE1* (miguelin.majo@gmail.com)                 //
' // *Podeis agrandar o reducir el codigo, siempre y cuando se  //
' // respete la autoria y se me comuniquen esos cambios.        //
' // *Visita http://foro.rthacker.net                           //
' ////////////////////////////////////////////////////////////////
Option Explicit

Private Declare Function IsCharAlphaNumeric Lib "user32" Alias "IsCharAlphaNumericA" (ByVal cChar As Byte) As Long

Public Function Check_Char(ByVal sChar As String) As Integer
   '0 --> Error
   '1 --> Numérico
   '2 --> Vocálico
   '3 --> Consonante
   '4 --> Simbólico
   Const sVowel As String = "aeiou"
   If Len(sChar) = 1 Then
       If IsCharAlphaNumeric(Asc(sChar)) Then
           If IsNumeric(sChar) Then
               Check_Char = 1
           ElseIf InStr(sVowel, sChar) > 0 Then
               Check_Char = 2
           Else
               Check_Char = 3
           End If
       Else
           Check_Char = 4
       End If
   End If
End Function

Un ejemplo:

Código (vb) [Seleccionar] Expandir


Private Sub Form_Load()
   Dim sCharToCheck As String * 1
   sCharToCheck = "/"
   Select Case Check_Char(sCharToCheck)
       Case 1: Debug.Print "El carácter "; sCharToCheck; " es un número"
       Case 2: Debug.Print "El carácter "; sCharToCheck; " es una vocal"
       Case 3: Debug.Print "El carácter "; sCharToCheck; " es una consonante"
       Case 4: Debug.Print "El carácter "; sCharToCheck; " es un símbolo"
       Case Else: Debug.Print "Error al analizar "; sCharToCheck
   End Select
End Sub

Salu2!

[Expr.Reg]

@Karcrack

Me aburria

He hecho esta bonita funcion mientras me aburria

AJAJAJA
Te aburres mucho tu, ¿¿eh??  

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

JAJAJJAJA
Raul y sus Expr.Reg...

Bueno aqui os dejo la funcion que prometi, que ademas capta los numeros negativos :

Código (vb) [Seleccionar] Expandir


Option Explicit

Public Function Get_Only_Numbers(ByVal sText As String) As String()
   Const sDecimals             As String = ",.'"
   Dim sNumbersArray()         As String
   Dim sActualChar             As String * 1
   Dim sNextChar               As String * 1
   Dim sPreviousChar           As String * 1
   Dim bAcceptString           As Boolean
   Dim lTotalChar              As Long
   Dim x                       As Long
   Dim y                       As Long

   lTotalChar = Len(sText)
   If lTotalChar > 0 Then
       ReDim sNumbersArray(0)
       For x = 1 To lTotalChar
           If x > 1 Then sPreviousChar = Mid$(sText, x - 1, 1)
           sActualChar = Mid$(sText, x, 1): sNextChar = Mid$(sText, x + 1, 1)
           If ((sActualChar = Chr$(45) Or InStr(sDecimals, sActualChar) > 0 And IsNumeric(sPreviousChar)) _
           And IsNumeric(sNextChar)) Or (IsNumeric(sActualChar)) Then
               bAcceptString = True
           Else
               If bAcceptString = True Then y = y + 1: ReDim Preserve sNumbersArray(y): bAcceptString = False
           End If
           If bAcceptString = True Then sNumbersArray(y) = sNumbersArray(y) & sActualChar
       Next x
       Get_Only_Numbers = sNumbersArray()
       Erase sNumbersArray
   End If
End Function

Private Sub Form_Load()
   Dim vItem                 As Variant
   Dim sStringToAnalyze      As String

   sStringToAnalyze = "Estoy provando la extracción de números como 1992, también la extracción de números decimales: 3,1415 o 3.1415"
   sStringToAnalyze = sStringToAnalyze & "También puedo decir que tengo 1000000,24 dólares o 1.123.456,78 euros (?)"
   sStringToAnalyze = sStringToAnalyze & "Pero mi función también reconoce numeros como el -2344 y 5'567 y no los confunde con m.456 ni con -a89 ... =)"
   For Each vItem In Get_Only_Numbers(sStringToAnalyze): Debug.Print vItem: Next
End Sub

Obtengo esto:

3,1415
3.1415
1000000,24
1.123.456,78
-2344
5'567
456
89

Salu2!

No, si lo unico que hago es ir a internet, no he cambiado ninguna configuracion...

Salu2!

Ok...
Gracias por la ayuda...

Hola a ver si me podeis ayudar:
Estoy conectado por wifi a una red y queria saber si hay alguna forma de ser "invisible", es decir, que si otro usuario de esa red intenta ver que usuarios estan conectados, no me vea... Es posible?
Tengo Win XP y es WPA2...

Gracias!

[$]

Creo que podes utilizar variables de entorno WinDir y seria algo asi:

Código (vb) [Seleccionar] Expandir


Dim SO as string
SO = Environ("Windir")


y te devolvera la unidad + \WINDOWS

Saludos.

Ok, pero mejor pon $ despues de Environ que si no queda como Variant...

Código (vb) [Seleccionar] Expandir


   Dim SO As String
   SO = Environ$("Windir")
Si quieres saber todas las posibilidades de Environ abres el CMD y escribes:

Código [Seleccionar] Expandir

set
Te saldra una lista con las variables de rutas que puedes utilizar...

Salu2!

["6546.65163.565"]

Si si, eso quedo claro, pero...
Entonces que quieres hacer si tienes la cadena: "6546.65163.565"?
No lo guardarias en el array??

Salu2!