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