792 Phillips Road || Arroyo Grande, CA 93420-5019 || Phone: (805) 489-5309
Email: bkandler@verisof.com
| SERVICES | FREEBIES | TIPS and TRICKS | ARTICLES | LINKS | HOME |
Classes
BMP
Crypto
CSVStrings
DataLogger
Dates
DebugRecorder
FileNameSet
FileSenderRDOConnectMasterReportAidsShellerStringSetWEBUtilitiesModules
DAOLibGlobalsRegistryPrograms
BatcherHTMLGenKillTimeTimedMessage|
Globals: This collection of 63 useful functions and subroutines
forms the heart of many of our applications. You'll find the same true for you. Below are listed the functions included so you can see for yourself what you are getting: |
|
|
Sub Abort(S) 'Abort the current process with a Message Box displaying the string provided in S Function AddPath(S) 'Add path value to S if not already specified Function BooleanString(i) 'returns "True" or "False" based on the value of I Function ChangeChar(S, C1, C2) 'Change all occurances of C1 with C2 in the string S. Function ConCat(S1, Sep, S2) 'returns S1+Sep+S2 if S2 <> "", otherwise returns S1; if S1 = "" returns S2 Function ConCatAll(S1,Sep, S2) 'returns S1+Sep+S2 regardless of the content of S2; if S1 = "" returns S2 Function ConcatDistinct(S1, Sep, S2) 'uses ConCat to form S1+Sep+S2 only if S2 not already in S1 Function ConditionPath(S) 'Guarantees trailing \ on path value S Function Confirm(S) 'get user confirmation on the action indicated by S Function dbEncloseString(S) 'enclose S in "" or '' as appropriate Sub Dec(A, B) 'returns A - B Function DeleteChar(S, c) 'Delete all occurances of C in string S Sub EndOnPrevInstance() Function Exists(FileName) 'Determine if FileName exists. Answer <> 0 (True) if it does. Function ExpandTab(S) 'Replaces each occurance of Tab (#09) character in S with blanks} Function Extract(txt, Pattern) Function FindWindowLike(hWndArray(), hWndStart, WindowText, Classname, ID) 'Finds the window handles of all windows matching the specified parameters Sub FlashCaption(hWnd, Count, Interval As Single) Sub FSplit(str, FilePath, FileName, Ext) Sub FSplitLong(str, FilePath, FileNameShort, FileNameLong, Ext) Function GetCommand(Arg, Default) Function GetErrorString(ErCode) Function GetLocalProfileInt(SectionName, ItemName, Default) Function GetLocalProfileText(SectionName, ItemName, Default) Function GetOption(Arg, Default) Function GetOSVersion() 'Returns 3 if Win3.1 or Win3.11; Returns 95 if Win95/98/2000 Function GetProfileInt(PName, ItemName, Default) Function GetProfileSingle(PName, ItemName, Default) As Single Function GetProfileText(PName, ItemName, Default) Function GetSeqNum(SeqFileName, Base, Limit) Function GetStringArg(Arg, Def) Function IdleTimeExpired() Sub Inc(A, B) 'Increment A by B Function Function InsertString(S1, S2, L) 'Insert S2 into S1 after character L Sub LogResourceStatus(s) 'Log system resouces Function LongFileName(ShortFileName) Function LPad(S, l) 'prefix S with blanks to desired length Function LPadChar(S, l, c) 'prefix S with c to desired length Function Max(A, B) Function Min(A, B) Function Pad(S, l) 'postfix S with blanks to desired length Function Padch(S, l, C) 'postfix S with string C to desired length Sub ParsePath(S, p, F) 'Pick path and filename from string S Sub ProcessParm(l, Match, Result) Sub PutLocalProfileText(SectionName, ItemName, txt) Sub PutProfileText(Sect, Item, V) 'Write string 'V' to the .ini file in section 'Sect' with the name 'Item' Function RandomName() 'Create random 8 character name Function RemoveThePath(s) Sub RenameFile(OldName, NewName) 'rename file; delete new file first in case of collision Function ReverseString(S) 'Reproduce string S in reverse order Function Round(N, DecPlaces%) 'Round N to decplaces; if decplaces=0, an integer results Function Rplc(S, p) 'Replace the first occurrance of ! in S with P Sub SelectTextBox(txt As TextBox) 'select contents of the textbox txt Sub SetAppPath(ProgName, IniName) 'Set ProgramName & path to app, help, ini files Function Shell32Bit(JobToDo, wMode) 'Shell to program and wait for completion Sub ShellDoc(strFile) 'opens strFile using its associated program Sub TagAddParm(Text, Parm, value) Function TagDelParm(Text, Parm) Function TagGetParm(Text, Parm) Sub UsePrevInstance() 'Show window and set focus to previous instance of current application, if running. Function WindowsProgram(S) '=True if file S is a Windows program Function ZeroLeftField(fld, FldLen) 'Left pad Fld with zeros as needed to achieve a lenth of FldLen Sub GetProfile_Globals() 'Load private .INI file info Sub PutProfile_Globals() ' Save private .INI file info |
|