LB> Does anybody want to see the October 97 BIRDFEED list posted here?
AR> Yes.
LB> I'd have to dig out a utility to shrink it from its current 4000+
LB> lines (half blank) but that's a pain and anyway the author
LB> requires that it be posted without modification. Until I find
LB> out if he did that deliberately I guess I won't post it.
AR> Actually that is not a modification, just a format change. The info
AR> is still the same. Some E-Mail clients put that extra blank line in.
Gary isn't unreasonable. He may wish the email had gone out single
spaced. (Maybe it DID -- and my receiving process added the blank
lines.) He may wish I wouldn't bother him with petty problems. I
haven't heard from him; if he objects, of course I'll not do it again.
Maybe it's easier to be forgiven than get permission.
AR> I'd be tempted to write a little prgm to delete those blank
AR> lines and go for it anyway. Your call.
Humph, that's what I had to do, since I couldn't quickly find that
utility I thought I had. Here's the VBDOS code I ran the October 97
BIRDFEED email thru. Basically it loses ALL the blank lines and
doesn't do anything else, so there are still bad wraps.
c$ = LTRIM$(RTRIM$(COMMAND$))
IF c$ = "" THEN PRINT "Usage: SINGLSPC inputfilename outputfilename": END
frstspc = INSTR(c$, " ")
inf$ = LEFT$(c$, frstspc)
outf$ = LTRIM$(MID$(c$, frstspc))
OPEN inf$ FOR INPUT AS 1
OPEN outf$ FOR OUTPUT AS 2
DO UNTIL EOF(1)
LINE INPUT #1, c$
IF LTRIM$(RTRIM$(c$)) = "" THEN GOTO skipline
PRINT c$: PRINT #2, c$
skipline:
LOOP
END
... To know things is to change them. You cannot not interfere.
--- PPoint 2.00
---------------
* Origin: Home of TV Agent (1:3615/50.1)
|