home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / search.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  20 lines
  1. 0 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 'Search & Replace by S. French 1/1/85 Version 1.2 by Robert Benson 5/5/88
  3. 10 GOTO22
  4. 11 IFEOF(1)THENCLOSE:KILLDF$:NAME"TEMP$$.DO"ASDF$:MAXFILES=1:MENUELSEP=1:OS$="":LINEINPUT#1,IS$
  5. 12 M=INSTR(P,IS$,SS$):IFM=0THENOS$=OS$+MID$(IS$,P):GOTO16
  6. 13 M=M-P:OS$=OS$+MID$(IS$,P,M):IFQ=0THENOS$=OS$+RS$:GOTO15ELSEGOSUB17
  7. 14 IFI<3THENCLOSE:GOTO25ELSEIFI<5THENOS$=OS$+SS$ELSEIFI<7THENOS$=OS$+RS$ELSE19
  8. 15 P=P+LEN(SS$)+M:IFP<LEN(IS$)THEN12
  9. 16 PRINT#2,OS$:PRINT@136,"Line";L:L=L+1:GOTO11
  10. 17 CLS:PRINTOS$;CHR$(27)"p";SS$;CHR$(27);"q";MID$(IS$,M+P+LEN(SS$))
  11. 18 PRINT@285,"(R)eplace, (S)kip or (Q)uit ?";:GOSUB21:I=INSTR(1,"QqSsRr",I$):CLS:RETURN
  12. 19 PRINT#2,OS$+SS$+MID$(IS$,M+P+LEN(SS$))
  13. 20 IFEOF(1)THEN11ELSELINEINPUT#1,IS$:PRINT#2,IS$:PRINT@136,"Line";L:L=L+1:GOTO20
  14. 21 I$=INKEY$:IFI$=""THEN21ELSERETURN
  15. 22 CLEAR1000:MAXFILES=2:DEFINTA-Z:ONERRORGOTO22:CLS:FILES:PRINT
  16. 23 INPUT":DO File to Search (No Ext)";DF$:IFINSTR(1,DF$,".DO")=0THENDF$=DF$+".DO":OPENDF$FORINPUTAS1:CLOSE
  17. 24 PRINT@280,"(A)uto or (Q)uery ?";:GOSUB21:I=INSTR(1,"AaQq",I$):IFI=0THENBEEP:GOTO24ELSEIFI>2THENQ=1ELSEQ=0
  18. 25 CLS:L=1:LINEINPUT"SEARCH STRING ";SS$:IFLEN(SS$)=0THENMAXFILES=1:MENU
  19. 26 LINEINPUT"REPLACE STRING ";RS$:OPENDF$FORINPUTAS1:OPEN"TEMP$$.DO"FOROUTPUTAS2:CLS:GOTO11
  20.