| The execution of the StringX functions is made very simple by the fact that they are held in a Type Library DLL. This means by simply doing one small change in your 'Project', 'References' to indicate the use of this Type Library, you can easily execute functions as demonstrated in the sample lines of code below: |
||
| Dim SX As New StringX | 'Initialises StringX | |
| Debug.Print SX.Dec2Bin(232342) | 'Returns "111000101110010110" | |
| Debug.Print SX.EbcdicToAscii("ãÈÉâ@Éâ@Á@ãÅâã@ñòó") | 'Returns "THIS IS A TEST 123" | |
| Debug.Print SX.GetDelimited("THIS;IS;A", 2, ";") | 'Gets 2nd string delimted by ";" , Returns "IS" | |
| Debug.Print SX.ProperCase("mr aNd mrs mcdonald (uK)") | 'Returns "Mr and Mrs McDonald (UK)" | |
| Debug.Print SX.ProperCase("dr j smith-jones o'leary ibm") | 'Returns "Dr J Smith-Jones O'Leary IBM" | |
| Debug.Print SX.GetSysDir | 'Returns "C:\WINDOWS\System32" | |
| Debug.Print SX.PICtoStringDecimal(0, 4, SX.Hex2String("1533")) | 'Returns "1533" | |
| Debug.Print SX.IsLeapYear("1999")) | 'Returns "False" | |
| Debug.Print SX.Pluck("[ABSDAE]24343", "[", "]") | 'Returns "ABSDAE" | |
| Debug.Print SX.GetRandomAlphaNumerics(5) | 'Returns "L3AG2" | |
| Debug.Print SX.IsAlphaNumeric("123AAD21") | 'Returns "True" | |
| Debug.Print SX.PackedDecimalToString("4L") | 'Returns "3344" (4L is Pack Decimal +3344) | |
| Debug.Print SX.PackedDecimalToString(SX.Hex2String("03344C")) | 'Returns "3344" | |
| Debug.Print SX.InstrWord(1,"This is a test","is") | 'Returns "6" | |
| Debug.Print SX.InstrNotInList(1, "this is a test", "isth") | 'Returns "5" | |
| Debug.Print SX.PadAlignString("Test", 10, vbRightJustify, "*") | 'Returns "******Test" | |
| Debug.Print SX.Hex2String("46524544") | 'Returns "FRED" | |
| SX.StringExecuteVB6 ("debug.print 2 + 2") | 'Returns 4 | |
|
There
are MANY other useful and powerful functions and conversions available.
Download this library and take a look. The Type Library (a single DLL
file) can be distributed with your applications in the normal way. Full
instructions are included with the download on the download
page of this website. Feel free to
download and try these functions in your VB6 projects. |
||
| StringX version 4 | © All Multi Systems |