[VBS]Como copiar contenido de un archivo .TXT al PortaPapeles?

[FranciskoAsdf]

Hola, saludos 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.

Código (vb) [Seleccionar] Expandir

'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 !

[leogtz]

O puedes usar clip o nircmd.

[SuperDraco]

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

[FranciskoAsdf]

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.

[Novlucker]

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

Saludos

[FranciskoAsdf]

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.

[Novlucker]

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

Saludos

[FranciskoAsdf]

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

[Novlucker]

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

[FranciskoAsdf]

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.