Search Tools Links Login

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:

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: 865 times

Categories

Tip

Windows

Visual Basic 6

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.