Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[ALLY] message window in /View

From: carlos::lorenz::net at: 10-Oct-2000 10:18

This is a multi-part message in MIME format. ------=_NextPart_000_0008_01C032A3.6AD0C9E0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi /Viewers Considering the following code: REBOL[] reads-dir-savesFTP: func [ dir [string!] {folder to read} folder [url!] {FTP folder where to save files} ] [ dir_xport: read to-file dir pattern: "*.txt" foreach file dir_xport [ if find/match/any file pattern [ print ["Trasferring file" :file] write/binary folder/:file read/binary dir_xport/:file ] ] ] read-dir-savesFTP "/c/windows/my documents/" ftp://user:[pass--ftp--somesite--com]/ Using /View, wich is the simplest way of redirecting issues printed with the command print ["Trasferring file" :file] to a window with some kind of scroll so I can later review all printed strings? Thank you all Carlos Lorenz ------=_NextPart_000_0008_01C032A3.6AD0C9E0 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META content="text/html; charset=iso-8859-1" http-equiv=Content-Type> <META content="MSHTML 5.00.2614.3500" name=GENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=#ffffff> <DIV><FONT face=Verdana size=2>Hi /Viewers</FONT></DIV> <DIV>&nbsp;</DIV> <DIV><FONT face=Verdana size=2></FONT>&nbsp;</DIV> <DIV><FONT face=Verdana size=2>Considering the following code:</FONT></DIV> <DIV>&nbsp;</DIV> <DIV><FONT face=Verdana size=2>REBOL[]</FONT></DIV> <DIV>&nbsp;</DIV> <DIV><FONT face=Verdana size=2>reads-dir-savesFTP: func [<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dir [string!]&nbsp; {folder to read}<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;folder [url!]&nbsp; {FTP&nbsp;folder where to save files}&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp; ] [<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dir_xport: read to-file dir<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pattern:&nbsp;"*.txt"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; foreach file dir_xport [&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if find/match/any file pattern [ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print ["Trasferring&nbsp;file" :file]<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; write/binary folder/:file read/binary dir_xport/:file<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ]<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ] <BR>&nbsp;&nbsp;&nbsp; ]</FONT></DIV> <DIV><FONT face=Verdana size=2>&nbsp;</FONT></DIV> <DIV><FONT face=Verdana size=2>read-dir-savesFTP "/c/windows/my documents/" "<A href="ftp://user:[pass--ftp--somesite--com]/">ftp://user:[pass--ftp--somesite--com]/</A></FONT>"</DIV> <DIV>&nbsp;</DIV> <DIV><FONT face=Verdana size=2>Using /View, wich is the simplest way of redirecting&nbsp;&nbsp;issues printed with the command</FONT></DIV> <DIV><FONT face=Verdana size=2></FONT>&nbsp;</DIV> <DIV><FONT face=Verdana size=2>&nbsp; print ["Trasferring&nbsp;file" :file] </FONT></DIV> <DIV>&nbsp;</DIV> <DIV><FONT face=Verdana size=2>to </FONT><FONT face=Verdana size=2>a window with some kind of scroll so I can&nbsp;later review&nbsp;all printed strings?</FONT></DIV> <DIV><FONT face=Verdana size=2></FONT>&nbsp;</DIV> <DIV><FONT face=Verdana size=2>Thank you all</FONT></DIV> <DIV>&nbsp;</DIV> <DIV><FONT face=Verdana size=2>Carlos Lorenz<BR></DIV></FONT> <DIV><FONT face=Verdana size=2><BR></DIV></FONT></BODY></HTML> ------=_NextPart_000_0008_01C032A3.6AD0C9E0--