GUICtrlCreateEdit + Ayuda !
Publicado: 19 May 2009, 20:57
CHEFITO !!!!! necesito ayuda !
Chefito muchas gracias por tu colaboracion, pero... ! Mallllll !!!!! la info que he buscado sobre RichText no es que me ayude mucho, la verdad no entiendo ni papa, cuando intento correr algunos ejemplos me sacan error y ya descargue el RICHTXT.OCX y lo registre , solo me corre el ejemplo de la ayuda pero no es que lo entienda mucho, la cosa es asi:, yo cree un GUICtrlCreateEdit que me ha funcionado en el ejercicio, escribo en el, pero necesito resaltar o escribir con dirferente color cierta informacion que alli se genera, esta informacion la crea de un archivo .DAT que he creado previamente, la cosa es como hago para que la info se escriba en este EDIT y si lo voy hacer con un RichText como lo hago , chefito no tienes un ejemplo en el cual yo me pueda basar para hacer mi ejercicio.
Muchas gracias por la colaboracion y la atencion prestada !
Parte del ejercicio :
$Window1=GuiCreate("SFTP Connections", 633, 447, 190, 125)
GuiSetIcon(@SystemDir & "\rasphone.exe", 0)
$Edit1 = GUICtrlCreateEdit("", 160, 140, 449, 249,BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_NOHIDESEL,$ES_WANTRETURN,$WS_HSCROLL,$WS_VSCROLL,$ES_READONLY))
$outPut = ClipGet();here we get the output from the clipboard
writeOut($outPut) ;send the output to our function
readOut()
Func writeOut($data)
; Write the data to a file
$file = FileOpen("commanddata.dat", 2);
FileWrite($file, $data)
FileClose($file)
EndFunc
Func readOut()
$file2 = FileOpen("commanddata.dat", 0)
$lastline = _FileCountLines("commanddata.dat")
$line = FileReadLine($file2, $lastline)
$match = StringCompare($line, "psftp>");check if the download is complete
If $match = 0 Then
$nl=0
$Status="Fail"
for $nLine = 1 to $lastline
$TextLine=FileReadLine($file2, $nLine)
$String1=StringLeft($TextLine,7)
If $String1 = "remote:" Then
_GUICtrlEdit_InsertText ($Edit1,"File ["&$nl&"] : " & $TextLine & @CRLF)
$nl=$nl+1
$Status="OK"
EndIf
Next
$Text2=_GUICtrlEdit_InsertText ($Edit1,"Nº Files ["&$nl&"] Status : ["& $Status &"] ::. " & @CRLF ,-1)
_GUICtrlEdit_InsertText ($Edit1,"==================================" & @CRLF & @CRLF,-1)
$ExitNum = "Y"
Return $ExitNum
Else
Sleep(4000)
$ExitNum = "N"
Return $ExitNum
EndIf
EndFunc
Chefito muchas gracias por tu colaboracion, pero... ! Mallllll !!!!! la info que he buscado sobre RichText no es que me ayude mucho, la verdad no entiendo ni papa, cuando intento correr algunos ejemplos me sacan error y ya descargue el RICHTXT.OCX y lo registre , solo me corre el ejemplo de la ayuda pero no es que lo entienda mucho, la cosa es asi:, yo cree un GUICtrlCreateEdit que me ha funcionado en el ejercicio, escribo en el, pero necesito resaltar o escribir con dirferente color cierta informacion que alli se genera, esta informacion la crea de un archivo .DAT que he creado previamente, la cosa es como hago para que la info se escriba en este EDIT y si lo voy hacer con un RichText como lo hago , chefito no tienes un ejemplo en el cual yo me pueda basar para hacer mi ejercicio.
Muchas gracias por la colaboracion y la atencion prestada !
Parte del ejercicio :
$Window1=GuiCreate("SFTP Connections", 633, 447, 190, 125)
GuiSetIcon(@SystemDir & "\rasphone.exe", 0)
$Edit1 = GUICtrlCreateEdit("", 160, 140, 449, 249,BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_NOHIDESEL,$ES_WANTRETURN,$WS_HSCROLL,$WS_VSCROLL,$ES_READONLY))
$outPut = ClipGet();here we get the output from the clipboard
writeOut($outPut) ;send the output to our function
readOut()
Func writeOut($data)
; Write the data to a file
$file = FileOpen("commanddata.dat", 2);
FileWrite($file, $data)
FileClose($file)
EndFunc
Func readOut()
$file2 = FileOpen("commanddata.dat", 0)
$lastline = _FileCountLines("commanddata.dat")
$line = FileReadLine($file2, $lastline)
$match = StringCompare($line, "psftp>");check if the download is complete
If $match = 0 Then
$nl=0
$Status="Fail"
for $nLine = 1 to $lastline
$TextLine=FileReadLine($file2, $nLine)
$String1=StringLeft($TextLine,7)
If $String1 = "remote:" Then
_GUICtrlEdit_InsertText ($Edit1,"File ["&$nl&"] : " & $TextLine & @CRLF)
$nl=$nl+1
$Status="OK"
EndIf
Next
$Text2=_GUICtrlEdit_InsertText ($Edit1,"Nº Files ["&$nl&"] Status : ["& $Status &"] ::. " & @CRLF ,-1)
_GUICtrlEdit_InsertText ($Edit1,"==================================" & @CRLF & @CRLF,-1)
$ExitNum = "Y"
Return $ExitNum
Else
Sleep(4000)
$ExitNum = "N"
Return $ExitNum
EndIf
EndFunc