home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FreeWare Collection 2
/
FreeSoftwareCollection2pd199x-jp.img
/
fbasic
/
hensyu
/
hensyu.bas
< prev
next >
Wrap
BASIC Source File
|
1990-06-14
|
5KB
|
125 lines
10 '*******************************************************************
20 '** MOPTERM のオ-トパイロットでダウンロ-ドしたログファ **
30 '** イルを会議室ごとに分割して出力するプログラムです。 **
40 '** (カッチン) **
50 '*******************************************************************
60 CLS
70 EFLG=0
80 ON ERROR GOTO *ER01
90 OPEN "I",#12,"HENCON.TXT"
100 '---------<<コントロ-ルファイルを読む>>
110 *YOMU0
120 IF EOF(12)=-1 THEN GOTO *ALEND
130 INPUT#12,INFL$
140 '
150 '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
160 *STA
170 CLS
180 ON ERROR GOTO *ER02
190 OPEN "I",#11,INFL$
200 ON ERROR GOTO 0
210 OFLG=0 : KA=0
220 C$="------"
230 '---------<<会議室の名称を読む>>
240 *NSET
250 LINE INPUT#11,A$
260 A4$=LEFT$(A$,2)
270 IF A4$="GO" OR A4$="go" THEN A3$=MID$(A$,4,8):GOSUB *HIRAKU :GOTO *YOMU
280 IF EOF(11)=-1 THEN COLOR 2:LOCATE 5,5:PRINT "** GOコマンドが見つかりません **":GOTO 940
290 GOTO *NSET
300 '---------<<ログを読む>>
310 *YOMU
320 LINE INPUT#11,A$
330 IF EOF(11)=-1 THEN GOTO *OWARI
340 A1$=LEFT$(A$,2)
350 A2$=LEFT$(A$,8)
360 '---------<<ラインの種類チェック>>
370 IF MID$(A$,4,1)="/" AND MID$(A$,8,3)=" " THEN OFLG=1:B$=A$:GOTO *YOMU
380 IF MID$(A$,1,2)=">" AND MID$(A$,6,1)="/" THEN OFLG=1:B$=A$:GOTO *YOMU
390 IF OFLG=1 AND MID$(A$,1,1)="(" AND MID$(A$,4,1)=")" THEN KNO$=MID$(A$,2,2) : KA=1
400 IF A2$="続き(改" THEN GOTO *YOMU
410 '
420 IF A2$="電子会議" THEN OFLG=0 : GOTO *YOMU
430 IF OFLG=0 THEN GOTO *YOMU
440 IF A1$=">" THEN GOTO *YOMU
450 '--------<<会議室別に出力>>
460 ON VAL(KNO$) GOTO 470,490,510,530,550,570,590,610,630,650
470 IF KA=1 THEN PRINT #1,C$ :PRINT #1,B$ :PRINT #1,A$ : KA=0 ELSE PRINT #1,A$
480 GOTO *YOMU
490 IF KA=1 THEN PRINT #2,C$ :PRINT #2,B$ :PRINT #2,A$ : KA=0 ELSE PRINT #2,A$
500 GOTO *YOMU
510 IF KA=1 THEN PRINT #3,C$ :PRINT #3,B$ :PRINT #3,A$ : KA=0 ELSE PRINT #3,A$
520 GOTO *YOMU
530 IF KA=1 THEN PRINT #4,C$ :PRINT #4,B$ :PRINT #4,A$ : KA=0 ELSE PRINT #4,A$
540 GOTO *YOMU
550 IF KA=1 THEN PRINT #5,C$ :PRINT #5,B$ :PRINT #5,A$ : KA=0 ELSE PRINT #5,A$
560 GOTO *YOMU
570 IF KA=1 THEN PRINT #6,C$ :PRINT #6,B$ :PRINT #6,A$ : KA=0 ELSE PRINT #6,A$
580 GOTO *YOMU
590 IF KA=1 THEN PRINT #7,C$ :PRINT #7,B$ :PRINT #7,A$ : KA=0 ELSE PRINT #7,A$
600 GOTO *YOMU
610 IF KA=1 THEN PRINT #8,C$ :PRINT #8,B$ :PRINT #8,A$ : KA=0 ELSE PRINT #8,A$
620 GOTO *YOMU
630 IF KA=1 THEN PRINT #9,C$ :PRINT #9,B$ :PRINT #9,A$ : KA=0 ELSE PRINT #9,A$
640 GOTO *YOMU
650 IF KA=1 THEN PRINT #10,C$ :PRINT #10,B$ :PRINT #10,A$ : KA=0 ELSE PRINT #10,A$
660 GOTO *YOMU
670 '---------<<ファイル オ-プン>>
680 *HIRAKU
690 ON ERROR GOTO *ER04
700 OPEN "A",#1,A3$+"\LOG01"
710 OPEN "A",#2,A3$+"\LOG02"
720 OPEN "A",#3,A3$+"\LOG03"
730 OPEN "A",#4,A3$+"\LOG04"
740 OPEN "A",#5,A3$+"\LOG05"
750 OPEN "A",#6,A3$+"\LOG06"
760 OPEN "A",#7,A3$+"\LOG07"
770 OPEN "A",#8,A3$+"\LOG08"
780 OPEN "A",#9,A3$+"\LOG09"
790 OPEN "A",#10,A3$+"\LOG10"
800 ON ERROR GOTO 0
810 COLOR 5
820 LOCATE 10,10:PRINT"************************"
830 LOCATE 10,11:PRINT"*** ログ編集中です <";
840 COLOR 2 : PRINT A3$;
850 COLOR 5 : PRINT "> ***"
860 LOCATE 10,12:PRINT"************************"
870 RETURN
880 '
890 '---------<<ファイル クロ-ズ>>
900 *OWARI
910 CLOSE #1 :CLOSE #2 :CLOSE #3 :CLOSE #4 :CLOSE #5 :CLOSE #6
920 CLOSE #7 :CLOSE #8 :CLOSE #9 :CLOSE #10 :CLOSE #11
930 '
940 CLOSE #11
950 GOTO *YOMU0
960 *ALEND
970 CLOSE #12
980 END
990 '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1000 *ER01
1010 COLOR 2 : LOCATE 5,5
1020 PRINT "コントロ-ルファイルが見つかりません"
1030 COLOR 2 : LOCATE 5,6
1040 PRINT "処理を強制終了します"
1050 RESUME *ALEND
1060 *ER02
1070 COLOR 2 : LOCATE 5,5
1080 PRINT "ログファイルが見つかりません"
1090 COLOR 2 : LOCATE 5,6
1100 PRINT INFL$;:COLOR 7:PRINT " 読み飛ばします"
1110 COLOR 1 : LOCATE 5,8
1120 INPUT "改行を押して下さい";Z$
1130 COLOR 7
1140 RESUME *YOMU0
1150 *ER03
1160 COLOR 2
1170 PRINT "ファイルが見つかりません"
1180 COLOR 7
1190 RESUME 200
1200 *ER04
1210 LOCATE 5,5
1220 COLOR 4:PRINT "## ";:COLOR 2:PRINT A3$;
1230 COLOR 4:PRINT " というディレクトリ-を作成してやり直して下さい ##"
1240 RESUME 940