Liren Large Software Subsidy 10

home *** CD-ROM | disk | FTP | other *** search

/ Liren Large Software Subsidy 10 / 10.iso / l / l408 / 2.img / EXAMPLES.EXE / EXAMPLES / INCLUTIL / STATFORM.FRM (.txt) < prev

Wrap

Visual Basic Form | 1992-10-12 | 10.7 KB | 211 lines

StatusForm !MicroHelp $Include Utility Status System Form1 Label1 Directory FileOpenCurDir Curdir Label1 Reading FileNameText Label1 Processing PFileName KickStart Hidden System Command1 Cancel System FileOpenDirList FileOpenList *.BAS FileCount Cancelled ProcessFilesr LineNumber! WhichLevel DirPointer DirLevel MainForm" IncFileSpecN Text$ IncludeCompare ConvertToQ Enabled~ False SavePath{ FileOpenList DirOptions> Value DirectoryOption FileOpenDirList Pattern FormatPath StatusForm Tagged ListCount FileOption) ListIndex OldFileNameE FileNameText\ Caption PFileName TempFileName ReadNextLine ReadError ProcessingDone~ Codeline StripWhiteSpace IncludeFile IsIncludeFile0 Pointer TestName\ TestExt? Question WildCardCompare FileTextl ProcessOneFile BackupFileName2 NoBackupFile RenameFilesL SkipRenames NextFile RetryDir Abort InFileNumber OutFileNumber IncludeFileName BaseFile FileNumber IncludeCount Addline MainOption FileError IndentIncrement IndentSpacing Indent6 Temp2 SkippedFiles FileOpenSpec Command1_Click KickStart_Click TextElements FileOpenCurDir MhFalse4 ProcessFiles This SUB is responsible for processing the file selected in the "Files to process" frame. In other words, it determines if it should begin processing the BASIC program.i If it determines that the BASIC file should be processed, then control is transferred to the ProcessOneFile SUB, which can then handle nested $INCLUDE files.e Which level we're one Index into FileOpenDirList arrayU Get include file spec Create wildcard spec to compare $INCLUDE file names Convert *.* to ?.???? Reset the count Space to hold file so we don't have to read twice Save for later restorationd This dir or entire drivee Change to root Set up the DirLevel array to keep track of where we are Set local controlse Redim as +1 so don't get "subcript out of range" if 0 Files matching spec Mark all as Tagged Selected file onlyc Process each matching file in this dirc Get the file name Display file name Used for trigger later Read the file, checking for the first $Include statement that triggers processing. Read a line See if this line has a $INCLUDE statement Strip raw file name. Done Separate into filename and extensione Fill out to 3 Fill out to 8 See if it matches our spec If not, don't process If this is a valid include file If we haven't opened the output file yett Assume no extension Period - found extension Forw slash, colon, backslash No extension presenta Write all buffered text before continuing Free up string spaceg Get the $INCLUDE line in the file Complete the processing, including nested includes. If function returns non-zero, an error occuredu Finished with files Force to ReadErrorz If output file open Since we haven't opened the output file, we save this code for possible later writing.e Free up string spacei Rename original file as backup file Rename temporary work file as original file This dir only Entire drive or this dir+belowi Attempt to change to next subdiri No more subdirs in this directory We are finished Back to 0 at this level Change to parent Change to parent dirv Change to that dir Back one leveli Continue where we left offi Get name of directory Keep track of which dir at this level in next iteration Change to that dirs FileOpenList.Refresh Dropping through to LOOP statement, thus going through the loop againt No backup file presenti Illegal function call due to ASC(Null$) This file contains a line that is too long for Visual Basic to handle. Error" has occurred. Continue with next file? File Read Error" ProcessOneFile Enter with input file and output file open and pass file numbers in first two parameters. $INCLUDE file should not be open upon entry - just pass the name in the parameter list. Function returns Error number if an error occurred or MhFalse if not. This SUB process nested $INCLUDE files. Add lines or note First free number How we open the filer Only worry about indenting if adding lines Beginning of file markere Read a line If found marker Read input file until BOF/EOF marks are exhausted If this line has a $INCLUDE statement Beginning of file markerd finished End of file markerm For all files openedE No error occurred Abort file" processed successfully" did not require updating. Process Complete Clear selection Command1_Click Do you want to cancel this operation?" Cancel Operations" KickStart_Click Clear text"