Mensajes

A ver, no quiero hacer un else, quiero que solo se muestre si el usuario ingresa "casa" asi que quiero que vuelva al principio!!!!!!!!!

Es un ejemplo solamente! Necesito volver!

Noo, porque yo quiero que salga un msgbox que diga "Vivo en una casa".

A ver,, pongo un eejmplo xDD

Código [Seleccionar] Expandir


do

texto = InputBox("Escribe un texto","Ejemplo para nov xD","Escribe casa")

if texto <> "casa" then
loop
end if

frase = "Vivo en una "&texto
msgbox frase

loop


a ver.. puse un mal ejemplo xD


A ver, imaginate un InputBox que pide algo. Si ese algo no es lo que yo quiero el code sigue, pero si lo es quiero que vuelva. Pero el caso es que al final de todo tambien tengo un loop, entonces fallaría por eso.

Por eso puse [codigo] ahi xd

[do]

Quiero hacer un bucle infinito.. bien, do+loop.

Pero quiero un code con esta estructura por ejemplo:

Código [Seleccionar] Expandir


do
[codigo]

if condicion = correcta
msgbox"correcta",99,"Prueba"
volver al inicio
end if

[codigo]
loop


Pero si donde puse "volver al inicio" pongo un loop, da error!


Saludos

Código [Seleccionar] Expandir

mitexto = "Gracias NovLucker!"
msgbox "Gracias señor"&Mid(mitexto,8,11),99,"xDD"

Ok, tema resuelto 

[on error goto]

OK, arreglado..

PD: y el on error goto como funciona? no vi nada de esto en tu manual xd

[%var:~4,6%]

Como se podría hacer en vbs algo como una extraccion de caracteres en batch?

Ej:

Código [Seleccionar] Expandir

var = "holaxassiz"

Y que quede asi:

Código [Seleccionar] Expandir

var2 = "xassiz"

%var:~4,6% en batch..

Mira, podrias ahorrarte muchas lineas. Un ejemplo con los if:

Código [Seleccionar] Expandir


if errorlevel == 26 (<nul set /p "=01111010 ")
if errorlevel == 25 (<nul set /p "=01111001 ")
if errorlevel == 24 (<nul set /p "=01111000 ")
if errorlevel == 23 (<nul set /p "=01110111 ")
...
goto:na


o directamente:

Código [Seleccionar] Expandir


if errorlevel == 26 (<nul set /p "=01111010 "&goto:na)
if errorlevel == 25 (<nul set /p "=01111001 "&goto:na)
if errorlevel == 24 (<nul set /p "=01111000 "&goto:na)
if errorlevel == 23 (<nul set /p "=01110111 "&goto:na)


Saludos