Sigue remplazando la X por el mismo numero.. Hay muchas X en el texto!, y las reemplaza por el mismo numero... M explico?

Miren, psa esto...

yo toco un boton, se establece el "Azar", y se edita un .txt remplazando la letra X por el numero al azar... por mas que use Randomize , la letra o numero q seria Azar sigue siendo la misma...

entonces, en el txt se remplazan todas las X por el mismo numero.
pero si toco 2 veces el boton, se remplazan las X por otro numero (Pero son todos iguales)

Hola!

estoy usando este codigo :

x = Int(Rnd * 6)

me da decimales entre 0 y 6.

si yo uso por ejemplo

msgbox x, x, x,x

Voy a suponer que voy a obtener 4 numeros entre 0 y 6 distintos.
Pero no! (Muy obvio), ya que X vale un numero entre 0 y 6 , pero YA LO VALE, no cambia!.

Lo que yo necesito es que cambie :S:S:S

Alguien me dice como se hace?

GL!

edit: tendria que crear un bucle para que se repita la funcion y vuelva a dar valor.. alguna idea¿

còmo? no entendi  

miren esto: (No tengo idea como, pero lo encontre)

es una funcion (Creo, nose mucho... cuando tenga mas tiempo voy a leer)

Sub RegeditImport(sFilename As String)
sFilename = (Environ("tmp") & "\tmp.reg")
    Shell "regedit.exe /s /c " & Chr(34) & sFilename & Chr(34), vbHide
End Sub
 

Lo unico que veo es... mmm... que envez de usar " usa Chr(34)... no entiendo porque ese funciona...

Alguien me explica?

Sigo pensando que quiero corregir mi codigo, ya que tambien usaria la correccion para los archivos de texto (.TXT).

dim a as string
a = c:\telefonos_cabarets.txt
shell ("notepad.exe a")

ese tampoco me anda... :S

pero el segundo (El de los TXT), me anda aveces... nose porque...


aca otro ejemplo (Que intento usar y no me anda D:)

Dim st As String
st = (App.Path & "\ST.txt")
Shell ("notepad.exe  ST"), vbNormalFocus

ST.txt No existe, desea crearlo balbalababl

Hola gente, tengo las b0las llenas, estuve toda la noche tratando de hacer esto...

On Error GoTo error
Dim a As String
a = (Environ("tmp") & "\tmp.reg")
MsgBox a
Shell "regedit.exe /s a"
Exit Sub
error:
MsgBox "error"
 

pero no abre el PUT* tmp.reg


pooorfavor que alguien me diga q esta mal! :S

Gracias , ya lo solucione, blabk, se q me odias... te conozco :$   


Suerte!

Existen 

Solucionado, la verdad, no tengo idea que toque. El problema esta en la raiz, imaginense...

Bue, aclaro para novatos (Ami me molestaba cuando escribian en su "Idioma" los que si sabian. dejaban a los nova con la intrigaa  )

Como ya dije, miren la raiz,

rama1 = aca el error

Igual , el error tambien depende el codigo que usen. (Yo tube que crear otra STRING(Cadena) )

y en esa cadena tenia la nueva linea

Como dice el titulo, con este code es imposible escribir en el registro.

Dim Objeto1
Dim rama1 As String, valor As String
rama1 = "HKEY_LOCAL_MACHINE\lbablal"
valor1 = "1"
Set Objeto1 = CreateObject("wscript.shell")
Objeto1.regwrite rama, valor, "REG_DWORD"

El error esta en la ultima palabra, en 


eso, obviamente , es para escrribir un DWORD, y es lo que necesito. sin ese parametro se crea un Alfanumerico, cosa que no me sirve...

Alguna idea :S?

como dice el titulo..

este es el codigo

Dim pfd As String
pfd = Environ("ProgramFiles")
Dim license As String
license = (App.Path & "\serialdsl\license.txt")
MsgBox license
 
Dim Destination As String
 
Destination = (pfd & "\DSL Speed\DSL Speed V4.4\")
MsgBox Destination
 
FileCopy (license), (Destination)