Mensajes

Wenas, aqui esta este ejemplo q funciona  , poner 1 commandbotton & un text :

Código (vb) [Seleccionar] Expandir

Option Explicit
Dim a As String, z
Dim i As Integer
Private Sub Command1_Click()
a = Text1
z = 0
If z = 0 Then
i = InStr(a, "clean /s")
If i = 0 Then
'no ta
Else
i = InStr(a, "/q")
If i = 0 Then
MsgBox "Clean /S", vbInformation, "info"
Else
MsgBox "Clean /S /Q", vbInformation, "info"
End If
End If
End If
End Sub

el problema esque no es capaz de reconocer el comando /q solo, ¿alguna idea?
saludoss

grax seba123neo, yo creo que ya con esto puedo seguir con lo de la consola

un saludo

wenas, haber he hecho este ejemplo bien sencillo pero me salta un error ("se esperaba =")

Código (vb) [Seleccionar] Expandir

Option Explicit
Dim a As String
Private Sub Command1_Click()
InStr(a, "clear", vbTextCompare) 'Aqui salta el error
End Sub

Private Sub Form_Load()
a = "dgh ttdx tnh ck bd tbs xjthm cn clear rgtfc txvhtxv"
End Sub


si no entendi mal InStr lee desde el inicio la variable, busca la palabra 'clear', y la ultima opcion es para comparar texto, ¿que me falla?

un saludo y grax de antemano

ya decia yo  , ok voy a mirar el tuto del guille que seguro estaran esas funciones.. ahora cuando lo haga dejare un pequeño ejemplo por si alguien lo quiere

un saludoo

wenas, ya Spider-Net pero nunca he usado la funcion que has puesto, y he estado mirando la msdn online pero no soy capaz de hacerlo funcionar en la consola..

ttp://msdn.microsoft.com/es-es/library/8460tsh1(VS.80).aspx le falta una H al principio.
si me pones un pequeño ejemplo (q no parecido el de la pag, q ademas no me funciona xDD) te lo agradeceria

bueno venga un saludo

wenas de nuevo, he estado mirando y no tengo nada para buscar palabras (me sonaba que tenia alguna funcion en un modulo...) pero nose si no la tengo o esta perdida por alguna parte 
alguien tiene algo a mano?

un saludo

wenas, ya se q es diferente ajaja , voy a hacer eso q has dicho de buscar la palabra dentro de la cadena y una vez encontrado que busque los modificadores es buena

por ciero lo de "UBound" lo he buscado en el vb y no me sale ninguna referencia

un saludo

Grax a los dos , ok lo he puesto y me detecta el primer argumento clear, pero al poner en la consola clear /q /u no me salta el mensaje, sera porq teng que declarar los parametros no?
xD donde los declaro¿?

Código (vb) [Seleccionar] Expandir

If a = "clear" Then
v = Split(a, " ")
For i = 0 To 2
MsgBox "Argumento: " & v(i)
Next
End If
asi es como detecta la consola los comandos que pongo, esta bien asi o creeis que hay mejores formas XD?

un saludo

No entiendo bien el code  , lo he intentado poner en un form nuevo para probarlo pero me saltan errores.
si puedes poner un ejemplo mas explicado o algo asi...

un saludo y grax 

PD:cuando poneis un code sale con colores y muy bonito, ¿como lo haceis xD?(los q pongo yo noo ) 

grax!!  voy a probarlo yaaaa