[REBOL] message window in /View
From: carlos:lorenz at: 10-Oct-2000 10:20
This is a multi-part message in MIME format.
------=_NextPart_000_0012_01C032A3.A82AA900
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_0012_01C032A3.A82AA900
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> </DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2>Considering the following code:</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Verdana size=2>REBOL[]</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Verdana size=2>reads-dir-savesFTP: func
[<BR>
dir [string!] {folder to
read}<BR> folder
[url!] {FTP folder where to save
files} <BR> ]
[<BR> dir_xport: read to-file
dir<BR>
pattern: "*.txt"<BR> foreach file
dir_xport [
<BR> if
find/match/any file pattern [
<BR>
print ["Trasferring file"
:file]<BR>
write/binary folder/:file read/binary
dir_xport/:file<BR>
]<BR> ] <BR>
]</FONT></DIV>
<DIV><FONT face=Verdana size=2> </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> </DIV>
<DIV><FONT face=Verdana size=2>Using /View, wich is the simplest way of
redirecting issues printed with the command</FONT></DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2> print ["Trasferring file" :file]
</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Verdana size=2>to </FONT><FONT face=Verdana size=2>a window with
some kind of scroll so I can later review all printed
strings?</FONT></DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2>Thank you all</FONT></DIV>
<DIV> </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_0012_01C032A3.A82AA900--