Foro de elhacker.net

Hola, saludos :D XD

Hago este tema para preguntar como copiar el contenido de un Archivo .TXT al portapapeles de Windows. Nada mas que eso xD.

Busque en en la Web y encontré un par de formas sobre como hacerlo, pero la de copiar "desde" IExplorer no me sirve porque pregunta a cada rato si quiero copiar al portapapeles y no me sirve xD. El de Word.Aplicattion (o algo así), tampoco porque no sé como aplicarlo a mi código.

Tengo el código listo, solo me falta eso.

El archivo lo almaceno en "C:\Pedido_Digitado.txt"


Por favor si alguien me puede ayudar se los agradeceía mucho.

Atento a sus comentarios.

Saludos.

Aca lo que llevo. Intente con SendKeys pero por alguna razon no funciona y tampoco me tira ningun error.

'Dim i
set Wss=CreateObject("WScript.Shell")
Set objfso = createobject("scripting.filesystemobject")
Set objshell = createobject("wscript.shell")
Set PedidoDigitado = objfso.createtextfile("C:\Pedido_Digitado.txt",True)	'creamos el archivo
'For i=1 To 10 Step 1
CodSAP = InputBox("Ingrese Codigo SAP", "CARRO LLENO", "Cod SAP")
CantMat = InputBox("Ingrese Cantidad", "CARRO LLENO", "Cantidad")
PedidoDigitado.writeline CodSAP & " " & CantMat
'Next
PedidoDigitado.close
 
Set ObjFsoTwo = CreateObject("Scripting.FileSystemObject")
Set ArchivoACopiar = ObjFso.OpenTextFile("C:\Pedido_Digitado.txt",1,True)
Wss.SendKeys "^e"
Wss.SendKeys "^c"
ArchivoACopiar.Close
	MsgBox "Pedido Copiado.-" & vbCrLf & "Genere Orden de Compra.-", vbInformation, "CARRO LLENO -> INFORMACIÓN"

Saludos y gracias de ante mano ;D!

O puedes usar clip o nircmd.

Tal vez esto te sirva?

http://msdn.microsoft.com/en-us/library/bb178854.aspx


De todas formas, en todos los ejemplos que he visto, se usa Wss.SendKeys("^a")  para seleccionar el texto, no ("^e")

saludosss

Si usan "^a" es porque son sistemas en ingles, y para seleccionar todo usan CTRL + A, y nosotros usamos CTRL + E xD

@Leo, la idea es no usar elementos externos.

Gracias por las respuestas, voy a revisar el link.

Saludos.

En vbs, para poder hacer uso de clip de papeles debes de hacerlo por medio del objecto InternetExplorer.Application :P

Saludos

Ah que fome xD, porque lo intenté ayer de nuevo,  y "me funcionó". Pero el problema es que no se como decirle que lea los datos desde un TXT y no desde una variable predefinida :S

Me prodrías ayudar con eso NovLucker?

De ante mano muchas gracias.

http://blogs.technet.com/b/heyscriptingguy/archive/2004/08/13/can-i-copy-script-output-to-the-clipboard.aspx :P

Saludos

Ya, pero si eso es lo mismo que tengo ya, ahora el problema es como lo aplico para leer esos dtos desde un tXT.


sludos

Como que es lo mismo que tienes tu? si en ningún lado creas esos objetos? :¬¬

Lo que te he dejado antes esta más que claro, luego lo que haces es leer el txt y guardar el valor en una variable, y luego lo metes dentro de portapapeles.

Saludos

Ya pero por si no te das cuenta no tengo idea de como hacerlo, es por eso que estoy pidiendo ayuda.

Pero parace que hay que rogarles para que ayuden.

Saludos y gracias por nada.

se que siempre te parece que posteamos de una forma desagradable o no queriendo ayudar.

Pero por otro lado tambien se que lo que Nov pretende es que aprendas por ti mismo, y tambien se que aflojará dentro de poco y te lo acabará resolviendo xD, es el mejor.

saludos

Es que de verdad no entiendo como hacerlo. Saludos.

ReadAll

Lee el  tuto de vbs que tienes más arriba con chincheta :¬¬

Saludos