From Newsgroup: alt.free.newsservers
On 4/4/2026 12:50 AM, Mr. Man-wai Chang wrote:
Using Visual Foxpro, nearly 100 foreign newsgroups can be delisted,
including "uk.". :)
CREATE TABLE top500 ( ng char(75) )
APPEND FROM top500.txt delimited
BROWSE
REPLACE ALL ng with SUBSTR(ng,10)
BROWSE
BROWSE FOR ".de"$ng
BROWSE FOR ".de."$ng
DELETE FOR ".de."$ng
DELETE FOR ".fr."$ng
BROWSE
? RECCOUNT()
BROWSE
LIST for LEFT(ng,3)="de."
DELETE for LEFT(ng,3)="de."
DELETE for LEFT(ng,3)="fr."
? RECCOUNT()
PACK
? RECCOUNT()
BROWSE
DELETE for LEFT(ng,3)="cn."
PACK
? RECCOUNT()
DELETE for LEFT(ng,3)="hr."
PACK
? RECCOUNT()
BROWSE
DELETE for LEFT(ng,3)="ca."
DELETE for LEFT(ng,3)="pl."
PACK
? RECCOUNT()
BROWSE
DELETE for LEFT(ng,3)="tw."
PACK
? RECCOUNT()
DELETE for LEFT(ng,3)="uk."
PACK
? RECCOUNT()
BROWSE
DELETE for LEFT(ng,3)="it."
PACK
? RECCOUNT()
BROWSE
DELETE for LEFT(ng,3)="fl."
--
@~@ Simplicity is Beauty! Remain silent! Drink, Blink, Stretch!
/ v \ May the Force and farces be with you! Live long and prosper!!
/( _ )\
https://sites.google.com/site/changmw/
^ ^
https://github.com/changmw/changmw
--- Synchronet 3.21f-Linux NewsLink 1.2