Mensajes

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)

Código (vb) [Seleccionar] Expandir

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).

Código (vb) [Seleccionar] Expandir

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:)

Código (vb) [Seleccionar] Expandir

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...

Código (vb) [Seleccionar] Expandir

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!

.
Prueba a crear los directorios si no existen, no hay mejor solucion que esta... mkdir = hay una api...

Código (vb) [Seleccionar] Expandir



Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long 



Dulces Lunas!¡.

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,

Código (vb) [Seleccionar] Expandir

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.

Código (vb) [Seleccionar] Expandir

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 

, "REG_DWORD"

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

Código (vb) [Seleccionar] Expandir

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)