String Functions Module
I've put together a few string handling functions in a module that I've found useful over of the years, and thought I would share them here so that others might find them useful.
Attached to this post is a zip file containing the module, which you simple have to extract and attach to your VB6 project. Below is a description of each function in the module.
I'll be putting together some other modules for sharing here as well, with focus' such as:
- Networking
- File Handling
- Active Directory
- Database
- (more) string handling
Do you have a function or method that you have found useful? Why not share it with the world?
Found a bug in one of these? Have a way to improve it? Share that as well!
DOW
Purpose
Determines Day Of Week, given Gregorian Date
Returns
Day of Week as string:
0 = Sunday
1 = Monday
2 = Tuesday
3 = Wednesday
4 = Thursday
5 = Friday
6 = Saturday
Syntax
strMyString = DOW("8/31/2006")
Post
Purpose
Makes a multi-line textbox into a scrolling textbox, chat-style.
Syntax
Post txtTextBox, "Text to Post"
ParameterCount
Purpose
Counts the number of fields in a delimited string, given the the delimiter and the string
Returns
Number of fields in the string
Syntax
ret = ParameterCount(",",txtString)
ParameterValue
Purpose
Returns a field value from a delimited string, given the delimiter, string, and which field to pick
Returns
string value of field in the string
Syntax
outstring = ParameterValue(",",instring,3)
GetExtension
Purpose
Given a fully qualified path, returns just the filename extension
Returns
string value containing the extension
Syntax
strFileName = GetExtension("C:\MyDirectory\MyFileName.Txt")
IsValidIPAddress
Purpose
Given a string value, determines if the string is a valid IP address
Returns
Boolean true/false
Syntax
blnIsValid = IsValidIPAddress("127.0.0.1")
IncrementIPAddress
Purpose
Given an IP address, increments the IP address by the optional value Amt
Returns
incremented IP address in string format
Syntax
strNewIPAddress = IncrementIPAddress("127.0.0.1",1)
NumToString
Purpose
Converts a number to an english word format
Returns
text representation of a number
Syntax
strNewString = NumToString("1234")
DollarToString
Purpose
Uses NumToString, adds text representation of currency
Returns
text representation of a currency
Syntax
strNewString = NumToString("1234.56")
InstrCount
Purpose
Counts the occurences of character or substring inside another string
Returns
long integer containing the number of occurences
Syntax
lngNumberOfOccurences = InstrCount(strStringToSearch,strStringToFind)
FlipCase
Purpose
changes the case of a given string
Returns
string containing the flipped case value
Syntax
strFlipped = FlipCase("String to case flip")
Hex2ASCII
Purpose
Converts a hex value to ASCII
Returns
string with the ASCII representation of the given hex value
Syntax
strASCII = Hex2ASCII("ed0972ba628b29f0ec")
GetWordCount
Purpose
Returns the number of words present in a textbox
Returns
long integer of word count
Syntax
lngNumWords = GetWordCount(MyTextBox)
IsAlphaBetical
Purpose
determines of all the characters in a given string are alphabetical
Returns
boolean true or false
Syntax
blnAlpha = IsAlphaBetical(strMyString)
IsAlphaNumeric
Purpose
determines of all the characters in a given string are alphabetical *OR* numeric. For stripping out special characters.
Returns
boolean true or false
Syntax
blnAlphaNumeric = IsAlphaNumeric(strMyString)
IsNumericOnly
Purpose
determines of all the characters in a given string are numeric.
Returns
boolean true or false
Syntax
blnNumeric = IsNumericOnly(strMyString)
About this post
Posted: 2017-10-21
By: vb6boy
Viewed: 883 times
Categories
Attachments
modStrings.zip
Posted: 10/21/2017 8:42:52 AM
Size: 3,981 bytes
Special Instructions
Unzip the zip file, which contains the module (.mod). Include the module in your VB6 project.
See comments in code for usage, or refer to the above list.
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.