[REBOL] Re: Curious output on console
From: tmoeller::fastmail::fm at: 2-Nov-2006 16:36
Hi,
i tried your script version, but the problem persist. I even tried
various rebol versions down to 2.3. All showing the same cryptic result.
I will try it on my Notebook tonight. Perhaps i get a different result
there.
Thorsten
On Thu, 02 Nov 2006 16:21:19 +0100, "sqlab" <sqlab-gmx.net> said:
> Which version do you use.
> It looks as if you print beyond the end of your data. Maybe your memory
> is garbled.
> I guess you can simplify your script like
> this
>
> foreach l2 b [
> if all [
> parse l2 [
> to ".js" to end |
> to ".vbs" to end |
> to "\\" to end |
> to ".cmd" to end |
> to "psexec" to end |
> to "net use" to end |
> to "ftp " to end |
> to "psftp" to end |
> ]
>
> not find l2 "d:\dwh"
> not find l2 "rem"
> not find l2 "echo"
> not find l2 "db2cmd"
> not find l2 "<p>"
> not find l2 "run task for"
> ][
> print ln
>
> Thorsten Moeller wrote:
> > Hi all,
> >
> > i need some help with a function i wrote. I use this function in another
> > script to scan the content of a file-library.
> > This is the simplified version of the function producing the same
> > output:
> >
> > Rebol[]
> >
> > get_progdest: func [] [
> >
> > pa: %/c/rebol/streamlibrary/html/
> > dest: []
> > prog: []
> > counter: 0
> > =09
> > foreach line read/lines pa [
> > counter: counter + 1
> > print rejoin ["Files parsed " counter " : " line ]
> > b: read/lines to-file join "html/" line
> > foreach l2 b [
> > res: parse/all l2 " "
> > if all [not find l2 "d:\dwh" not find l2 "rem" not find l2 "echo" not find
> > l2 "db2cmd" not find l2 "<p>" not find l2 "run task for"][
> > foreach ln res [
> > if any [find ln ".js"
> > find ln ".vbs"
> > find ln "\\"
> > find ln ".cmd"
> > find ln "psexec"
> > find ln "net use"
> > find ln "ftp "
> > find ln "psftp"
> > ]
> > [
> > =09=09=20=09=09=09=09=20=20=20=09=09=09
> > print ln
> >
> > ]
> > ]
> > ]
> > ]
> > ]
> > ]
> >
> > get_progdest
> > halt
> >
> >
> > These are the last lines of the output:
> >
> >
> > Files parsed 847 : programs.html
> > <li>Infobase_Sched.cmd</li>
> > <li>ftp.vbs</li>
> > <li>AgenturID.vbs</li>
> > <li>bereinigen.vbs</li>
> > <li>aktion.vbs</li>
> > <li>SAPKOST.vbs</li>
> > <li>ftp_apix.vbs</li>
> > <li>KM_03.cmd</li>
> > <li>incentiveExtrakt.vbs</li>
> > <li>user.vbs</li>
> > <li>Infobase_Sched_dbadmin.cmd</li>
> > <li>Konsistenzcheck.vbs</li>
> > <li>N01PMF01.CMD</li>
> > <li>N01PMF02.CMD</li>
> > K=D5=E4`=AA?=13\=E6=A9=E2=84=D1uK=17yRm2=FC=F9i2=B0*=8F=DB=91=D8=FFJ=F8=C3X
> > =FD=A5=F5=9F=8B_=01=BCy=E1=FF=14X=C5=06=B5e=04n=B7=16=F1=18=D6T=F3T|=CB=92
> > =03}8=F6=AD=BF=81=BA=ED=D5=DF=EC=BD3\N=D2=1B=0B=E0=96
> > =9F=B8=06N=05pck=BAT]H=EF=1B?=C5]|=D5=D1=D3=87j=ADUM=AD=1A>=AF
> > =D3=FE'=F8{R=D4%=B1=8E=F4Gs=10bRQ=B7;z=E2=8F=06=F8=96_=15\]=DDF6=D9=A3l=19
> > =F5=EC?.=BE=F5=F2=B4=BA=8AZx=8A=D2=F4ZB=D7=DA=84S=AC=B7%=7Fy=C2g=ADO=F1=03
> > =E3=96=AF=F0=A7=C2=9E=12=D3<7=AE=DBZ=EA=B7=F6=ADwqe=F6=01s3nc=B5=F2=C4*=8F
> > =95=B8=EB=C5|=EF=0F=E6=F53x{Z=8F=E1O=A5
> > =AE=DC=A5=15=A5=DE=CA==F5=B9=EAfXX`]=97_;=F4O=CB{=FE=07=D9=D4W=C5=DF=02?l
> > O=15k=FF=10G=85|_=1D=AD=CA=DC=86[{=A8=AD=C42=A4=80d=06
> >
> >
> >
> > What i am wondering about are the last three lines. I don't really know
> > where they come from. It is not part of the content.
> >
> > Can anybody explain this?? I use Rebol on Windows XP SP2
> >
> > Cheers
> >
> > Thorsten
> >
> > --
> > http://www.fastmail.fm - mmm... Fastmail...
> >
> >
>
> --
> To unsubscribe from the list, just send an email to
> lists at rebol.com with unsubscribe as the subject.
>
--
http://www.fastmail.fm - Access all of your messages and folders
wherever you are
