Página 1 de 1
Ayuda para copiar contenido de un txt :(
Publicado: 11 Jun 2009, 21:55
por Mithrandir
Buenas estaba tratando de hacer algo aparentemente simple: Abrir un archivo en un block de notas copiar su contenido y cerrarlo. Sin embargo probé de diferentes formas como verán en los códigos que adjunto y lo único que hace el script es abrir el block de notas o en el caso en que pongo la ruta del archivo, no hace nada. Gracias por la ayuda!!
Código: Seleccionar todo
Run("C:\Documents and Settings\Pablo\Mis documentos\TEST.txt")
Send("^!e")
Sleep(1000)
Send("^!c")
Sleep(1000)
WinClose("TEST")
Código: Seleccionar todo
Run("notepad.exe")
WinWaitActive("Sin título - Bloc de notas")
Send("^!a")
WinWaitActive("Abrir")
Send("TEST")
Sleep(1000)
Send("{ENTER}")
WinWaitActive("TEST")
Send("^!e")
Sleep(1000)
Send("^!c")
Sleep(1000)
WinClose("TEST")
Edito:Ya solucioné el problema.Pueden cerrar el tema si quieren. Aquí dejo el código corregido:
Código: Seleccionar todo
Run('Notepad "C:\Documents and Settings\Pablo\Mis documentos\TEST.txt"')
WinWaitActive("TEST - Bloc de notas")
Send("^e")
Sleep(1000)
Send("^c")
Sleep(1000)
WinClose("TEST")
Re: Ayuda para copiar contenido de un txt :(
Publicado: 11 Jun 2009, 23:00
por gna08
Código: Seleccionar todo
$test = FileRead("C:\Documents and Settings\Pablo\Mis documentos\TEST.txt") ; ya lo tenes almacenado en la variable, pordes usarlo directamente o como kiera!!
ClipPut($test) ;ya lo tenes en el portapapeles.
Cualkier cosa respondes como te fue,
Saludos 
Re: Ayuda para copiar contenido de un txt :(
Publicado: 12 Jun 2009, 04:14
por Mithrandir
Gracias gna08!! Es cierto, es más corto con la función fileread y clipget lo que pasa es que recién empiezo y tengo la "mentalidad de un macro" :p je, programo todo como si lo hiciera manual y no pensé en usar esa función. De hecho es más útil para lo que quiero hacer que es postear esa información en un post acá el código completo:
Código: Seleccionar todo
#include <IE.au3>
ClipPut(FileRead("C:\Documents and Settings\Pablo\Mis documentos\TEST.txt"))
$oIE = _IECreate ("http://forums.linkbucks.com/newthread.php?do=newthread&f=12")
$oForm = _IEFormGetCollection ($oIE, 0)
$oQuery = _IEFormElementGetCollection ($oForm, 0)
$oQuery2 = _IEFormElementGetCollection ($oForm, 2)
_IEFormElementSetValue ($oQuery, "usuario")
_IEFormElementSetValue ($oQuery2, "contraseña")
_IEFormSubmit ($oForm)
Sleep(10000);esto no es necesario ahora que me doy cuenta porque el _IEFormSubmit llama a _IELoadWait por defecto
$oForm1 = _IEFormGetObjByName ($oIE, "vbform")
$oQuery3 = _IEFormElementGetObjByName ($oForm1, "subject")
$oQuery4 = _IEFormElementGetObjByName ($oForm1, "message")
_IEFormElementSetValue ($oQuery3, "my test")
_IEFormElementSetValue ($oQuery4, ClipGet())
_IEFormSubmit ($oForm1)
Re: Ayuda para copiar contenido de un txt :(
Publicado: 12 Jun 2009, 05:50
por gna08
Tambien podrias hacer de la siguiente forma, ya k el portatapeles puede cambiar.
Código: Seleccionar todo
#include <IE.au3>
$valor = FileRead("C:\Documents and Settings\Pablo\Mis documentos\TEST.txt")
$oIE = _IECreate ("http://forums.linkbucks.com/newthread.php?do=newthread&f=12")
$oForm = _IEFormGetCollection ($oIE, 0)
$oQuery = _IEFormElementGetCollection ($oForm, 0)
$oQuery2 = _IEFormElementGetCollection ($oForm, 2)
_IEFormElementSetValue ($oQuery, "usuario")
_IEFormElementSetValue ($oQuery2, "contraseña")
_IEFormSubmit ($oForm)
Sleep(10000);esto no es necesario ahora que me doy cuenta porque el _IEFormSubmit llama a _IELoadWait por defecto
$oForm1 = _IEFormGetObjByName ($oIE, "vbform")
$oQuery3 = _IEFormElementGetObjByName ($oForm1, "subject")
$oQuery4 = _IEFormElementGetObjByName ($oForm1, "message")
_IEFormElementSetValue ($oQuery3, "my test")
_IEFormElementSetValue ($oQuery4, $valor)
_IEFormSubmit ($oForm1)