'===========================================================================
' Subject: SEARCH FOR OCCURENCES IN A FILE    Date: 10-19-97 (09:09)       
'  Author: Alexander Meyer                    Code: QB, QBasic, PDS        
'  Origin: Meyer.Karl@t-online.de           Packet: TEXT.ABC
'===========================================================================
'                             ////
'                           0(o o)0
'-------------------------ooO (_) Ooo---------------------
' TEXTCHAR.BAS -- Written in QuickBasic 4.5
'
' Name: Search for character in textfile
' Author: Alexander Meyer
' Date: 10-18-1997
' Description: This program searches how often a
'              character (e.g. A) occurs in a textfile.
'
'For questions or comments mail to: Meyer.Karl@t-online.de
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

CLS
SHELL "dir *.txt"
PRINT
INPUT "Textfile"; Datei$
Search:
INPUT "Character to search for (example: A): ", Search$
IF LEN(Search$) <> 1 THEN
  PRINT "Only one character!!"
  GOTO Search
END IF

Search$ = LCASE$(Search$)
Print$ = UCASE$(Search$)
CLS
OPEN Datei$ FOR INPUT AS #1
DO WHILE NOT EOF(1)
  LINE INPUT #1, Inline$
FOR i = 1 TO LEN(Inline$)
  Midi$ = MID$(Inline$, i, 1)
  IF LCASE$(Midi$) = Search$ THEN
    Zeichen = Zeichen + 1
    LOCATE 1: PRINT Zeichen; Print$; "'s found!!": PRINT
  END IF
NEXT i
LOOP
CLOSE #1
COLOR 14: PRINT Zeichen; Print$; "'s found!!"