Ayuda Vbscript

[.:: KsV ::.]

Algien q me ayude

Código [Seleccionar] Expandir

ocp = MsgBox ("aleatorio? ",36,".::Kvs::.")  

si le usuario marca q si quiero q en
genere ( o (.)(en modo randomize)
osea no todas las x seran iguales
a veces valdra : otras (.)

y si el usuario dice q no x = ":"

Código [Seleccionar] Expandir

.WriteLine "12"&x&"3"&x&"45"&x&"678"&x&"9"&x&"0"




esta funcion regresa (.) o ( si les ayuda
a ayudarme

Código (vb) [Seleccionar] Expandir



Function odc()
Randomize
  ksv = Mid(01, Int(Rnd * 2) + 1, 1)
if ksv = 1 then
odc = ":"
else
odc = "."
end if
end function



[MCKSys Argentina]

Algien q me ayude


ocp = MsgBox ("aleatorio? ",36,".::Kvs::.")  

si le usuario marca q si quiero q en
genere ( o (.)(en modo randomize)
osea no todas las x seran iguales
a veces valdra : otras (.)

y si el usuario dice q no x = ":"

.WriteLine "12"&x&"3"&x&"45"&x&"678"&x&"9"&x&"0"




esta funcion regresa (.) o ( si les ayuda
a ayudarme

Código (vb) [Seleccionar] Expandir



Function odc()
Randomize
  ksv = Mid(01, Int(Rnd * 2) + 1, 1)
if ksv = 1 then
odc = ":"
else
odc = "."
end if
end function



Creo que entendí mal, asi que te pregunto:

Quieres una función que en base a lo devuelto por un MsgBox (vbYes o vbNo) te genere un string, el cual variará entre ":" y "." si el MsgBox devuelve vbYes y ":" si devuelve vbNo.

Es asi? Si es asi:

Código (vb) [Seleccionar] Expandir


Function Aleatoria() As String
Dim ret As Integer

ret = MsgBox("Dime si SI o NO", vbYesNo, "El titulo")
If ret = vbYes Then
   Randomize
   ret = Int(10 * Rnd) 'Random de 0 a 9
   If (ret Mod 2) = 0 Then 'si el random generó un numero par
       Aleatoria = ":"
   Else 'si es impar
       Aleatoria = "."
   End If
Else
   Aleatoria = ":"
End If
End Function


Sino, bueno, deberás explicarte mejor...  

Saludos!

[.:: KsV ::.]

me explico  al principio del code  el programa pedira q si qiere aleatorio o no si marca q si x tomara un valor ( o(.) cada x tomara un valor aleatorio ( (.) y lo escribe en un txt


pej.

el usuario marca si

Código [Seleccionar] Expandir

.writeline "1"&x&"2"&x&"45"&x&"67"....n"

cada x sera distinta :   .

resultado

*.txt

Código [Seleccionar] Expandir

1.2.45;67.74;96;246.35;....n


y si marca q no

Código [Seleccionar] Expandir

1:2:45:67:74:96:246:35:...n



la funcion q propones abrira un mensaje por cada n X

[.:: KsV ::.]

RESUELTO

Soli era cuestion de sacar el msgbox de la fncion q proporcionaste  y llamar a pa funcion