Atlanta Custom Software Development 

 
   Search        Code/Page
 

User Login
Email

Password

 

Forgot the Password?
Services
» Web Development
» Maintenance
» Data Integration/BI
» Information Management
Programming
VB VB (1648)
VB.net VB.net (736)
C# C# (15)
ASP.net ASP.net (779)
ASP ASP (41)
VC++ VC++ (25)
PHP PHP (0)
JAVA JAVA (4)
JScript JScript (5)
  Database
» SQL Server (708)
» ORACLE (5)
» MySQL (0)
» DB2 (0)
Automation
» C/C++/ASM (11)
» Microcontroller (1)
» Circuit Design (0)
OS/Networking
» Networking (5)
» Unix/Linux (1)
» WinNT/2k/2003 (8)
Graphics
» Flash (0)
» Maya (0)
» 3D max (0)
» Photoshop (0)
Links
» ASP.net (2)
» PC Interfacing (1)
» Networking (4)
» SQL Server (4)
» VB (23)
» VB.net (4)
» VC (3)
» HTML/CSS/JavaScript (10)
Tools
» Regular Expr Tester
» Free Tools

(Page 16 of 133) 3985 Result(s) found 

 

IsNullString - Check whether a string contains white-spaces
Total Hit (1384) «Code LangId=1» ' Return True is a string is made only of spaces, tabs, and Null characters. ' This function is especially useful to test whether fixed-length strings ' are initialized. Function IsNullString(Text As String) As Boolean Dim i As Long For i = 1 To Len(Text) Se ....Read More
Rating
IsStringLower - Determine whether a string contains only lowercase chars
Total Hit (1075) «Code LangId=1» Private Declare Function IsCharLower Lib "user32" Alias "IsCharLowerA" (ByVal _ cChar As Byte) As Boolean ' Check is the specified string is composed only by lower case characters (no ' digits and no special chars) ' Example: ' MsgBox "Is lower case? " & IsStringLower ....Read More
Rating
IsStringUpper - Determine whether a string contains only uppercase chars
Total Hit (1374) «Code LangId=1»Private Declare Function IsCharUpper Lib "user32" Alias "IsCharUpperA" (ByVal _ cChar As Byte) As Boolean ' Check is the specified string is composed only by upper case characters (no ' digits and no special chars) ' Example: ' MsgBox "Is upper case? " & IsStringUpper(" ....Read More
Rating
IsValidCreditCardNumber - Check whether a credit card number is valid
Total Hit (1210) «Code LangId=1»' Validate a credit card numbers ' Returns True if valid, False if invalid ' ' Example: ' If IsValidCreditCardNumber(Value:="1234-123456-12345", IsRequired:=True) Function IsValidCreditCardNumber(Value As Variant, Optional ByVal IsRequired As _ Boolean = True) As Boolean ....Read More
Rating
IsValidPhoneField - Check whether a phone number is valid
Total Hit (1184) «Code LangId=1»' Validate attributes of Phone data ' Returns True if valid, False if invalid ' ' Also returns the phone in formatted fashion (USA format). ' Will convert alphabetics to numeric ' 'Example: ' If IsValidPhoneField(Value:="3034414444", ReformattedPhone:=strNewPhone, ' ' ....Read More
Rating
Join - A replacement for VB6's Join function under VB4 and VB5
Total Hit (1103) «Code LangId=1» ' A replacement for the Join function under VB4 and VB5 Function Join(arr() As String, ByVal Delimiter As String) As String Dim index As Long For index = LBound(arr) To UBound(arr) - 1 Join = Join & arr(index) & Delimiter Next Join = Join & arr(UBound ....Read More
Rating
JoinQuote2 - A Join variant that works with 2-dimensional arrays and quoted strings
Total Hit (978) «Code LangId=1»' Join variant that works with ' bi-dimensional arrays of any type ' and that encloses string values between quotes ' ' ARR is the 2-dimensional array whose element must be joined ' ROWSEPARATOR is the separator for rows (default is CRLF) ' COLSEPARATOR is the separator fol colu ....Read More
Rating
JoinQuoted - A Join variant that encloses string values in quotes
Total Hit (1121) «Code LangId=1»' Join variant that works with arrays of any type ' and that encloses string values between quotes ' ' ARR is the array whose element must be joined ' SEPARATOR is the separator char (default is comma) ' QUOTED is the character used to quote string values ' use a two-char st ....Read More
Rating
NumberToWords - Convert a number into its string representation
Total Hit (1324) «Code LangId=1» ' Convert a number into its textual equivalent. ' ' Pass True in the second argument if you want a null string when ' zero is passed. ' This is a recursive routine that is probably the most concise ' routines that solves the problem Function NumberToWords(ByVal Number As L ....Read More
Rating
PermuteString - Generating all possible combinations out of a string
Total Hit (1289) «Code LangId=1»' Generates all combination possibilities out of a string Public Function PermuteString(ByVal Ztring As String, Optional Base As String = _ "") As String Dim TmpStrArray() As String, I As Long ' If there's only 1 element then If InStr(1, Ztring, " ", vbTextC ....Read More
Rating
PhoneNumberFromString - Convert a phone string into a number
Total Hit (1095) «Code LangId=1»' convert a telephone string into a phone number Function PhoneNumberFromString(ByVal PhoneString As String) As String Dim i As Integer Dim acode As Integer Const PhoneDigits = "22233344455566677778889999" ' prepare result in uppercase PhoneNum ....Read More
Rating
PrintF - Transforming template strings
Total Hit (1135) «Code LangId=1»' This VB6 function returns a string with a set of parameters replaced with ' variables, similar to the C function printf(). Public Function PrintF(strMask As String, ParamArray Values()) As String On Error Resume Next ' pass in a mask with variables in the order of \0 ....Read More
Rating
RandomString - Generate a random string using a mask
Total Hit (1577) «Code LangId=1»' generate a random string ' ' the mask can contain the following special chars ' ? : any ASCII character (1-127) ' # : a digit ' A : an alphabetic char ' N : an alphanumeric char ' H : an hex char ' all other chars are taken literally ' Example: a random-ge ....Read More
Rating
ReplaceArgs - Replace numbered placeholders in a string
Total Hit (1098) «Code LangId=1»' Replace placeholders in the form @@1, @@2, etc. ' with arguments passed after the first one. ' For example, calling this function with ' res = ReplaceArgs("File @@1 not found on drive @@2", "README.TXT", "C:") ' it returns the string ' "File README.TXT not found in drive ....Read More
Rating
ReplaceChar - A faster version of VB6's Replace function, for single-char replacements
Total Hit (1618) «Code LangId=1»Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As _ Any, pSrc As Any, ByVal ByteLen As Long) ' This is a replacement for the "Replace" function provided by VB6, ' though for single character replacements only. The speed difference varies, ' depe ....Read More
Rating
ReplaceLast - Replace the last occurrence of a substring
Total Hit (1575) «Code LangId=1»' Replace the last occurrence of a string Function ReplaceLast(Expression As String, Find As String, ReplaceStr As String, _ Optional Compare As VbCompareMethod) As String Dim i As Long i = InStrRev(Expression, Find, , Compare) If i Then ' the search s ....Read More
Rating
ReplaceMulti - Multiple string replacements
Total Hit (1306) «Code LangId=1»' Perform multiple substitutions in a string ' The first argument is the string to be searched ' The second argument is vbBinaryCompare or vbTextCompare ' and tells whether the search is case sensitive or not ' The following arguments are pairs of (find, replace) strings ' ....Read More
Rating
ReplaceWord - Replace whole words
Total Hit (1192) «Code LangId=1»' Replace a whole word Function ReplaceWord(Source As String, Find As String, ReplaceStr As String, _ Optional ByVal Start As Long = 1, Optional Count As Long = -1, _ Optional Compare As VbCompareMethod = vbBinaryCompare) As String Dim findLen As Long Dim rep ....Read More
Rating
ReplaceWordEx - Replace whole words, with your choice of delimiters
Total Hit (1229) «Code LangId=1» Option Explicit '------------------------------------------------------------------------ ' This enum is used by both InstrWordEx and ReplaceWordEx ' ' It uses a binary value to determine what separator characters are allowed ' bit 0 = allow spaces ' bit 1 = allow symbols ....Read More
Rating
ReplicateString - Replicate a string a given number of times
Total Hit (1669) «Code LangId=1»' Replicate a string a given number of times Function ReplicateString(Source As String, Times As Long) As String Dim length As Long, index As Long ' Create the result buffer length = Len(Source) ReplicateString = Space$(length * Times) ' do the multiple co ....Read More
Rating
ReverseFullName - Convert a full name into the "LastName, FirstName" format
Total Hit (968) «Code LangId=1»' reverse a full name ' ' for example: ReverseFullName("John A. Smith") ==> "Smith, John A." Function ReverseFullName(ByVal FullName As String) As String Dim i As Long ' search for the last space FullName = Trim$(FullName) i = InStrRev(FullName, " ") ....Read More
Rating
Soundex - Determine the phonetic code of a word
Total Hit (1294) «Code LangId=1» ' The Soundex code of an alphabetical string ' ' you can use Soundex code for phonetic searches ' Beware: this isn't bullet-proof! ' ' UPDATE: this version corrects a bug in the original routine ' thanks to Edward Wittke for spotting the mistake Function Soundex(By ....Read More
Rating
Split - A replacement for VB6's Split function under VB5
Total Hit (1222) «Code LangId=1» ' A replacement for the Split function under VB4 and VB5 ' ' Note that the return value is a Variant that contains ' an array of strings Function Split(ByVal Text As String, Optional ByVal Delimiter As String = " ", _ Optional ByVal Limit As Long = -1, Optional CompareMe ....Read More
Rating
Split2 - A Split variant that parses multiple lines of text
Total Hit (1241) «Code LangId=1» ' A Split variant that parses a string that contains ' row and column separators, and returns a 2-dimensional array ' ' the result String array has a number of columns equal ' to the highest number of fields in individual text lines Function Split2(ByVal Text As String, Opti ....Read More
Rating
SplitMultiSeparators - Split variation that works with multiple separators
Total Hit (1396) «Code LangId=1»' a variation of the Split function that works with more than one separators ' note that separators can consists of 2 or more chars ' Example: ' Dim res() As String ' res() = SplitMultiSeparators("one,two(three four)five", " ", ",", "(", ")") Function SplitMultiSeparator ....Read More
Rating
SplitQuoted - A split variant that deals correctly with quoted elements
Total Hit (1274) «Code LangId=1» ' split a string, dealing correctly with quoted items ' ' TEXT is the string to be split ' SEPARATOR is the separator char (default is comma) ' QUOTES is the character used to quote strings (default is """", ' the double quote) ' you can also use a character pair (eg "{}" ....Read More
Rating
SplitTbl - Split a string with multiple delimiters
Total Hit (1278) «Code LangId=1»' A variant of the Split function, that offers the following improvements ' You can pass a list of valid delimiters to the second argument ' (however, only single-char delimiters are accepted) ' Differently from the regular Split function, consecutive occurrences ' of del ....Read More
Rating
SplitWithQualifiers - An improved version of the Split function
Total Hit (1541) «Code LangId=1»' A variant of the Split function, that offers the following improvements ' You can pass text qualifier as the third argument and optionally specify ' to treat consecutive occurrences of delimiters as one ' For example, the following source text contains comma inside one of ....Read More
Rating
StripControlChars - Delete control characters in a string
Total Hit (1212) «Code LangId=1» ' Strip all control characters (ASCII code < 32) ' ' If the second argument is True or omitted, ' CR-LF pairs are preserved Function StripControlChars(source As String, Optional KeepCRLF As Boolean = _ True) As String Dim index As Long Dim bytes() As Byte ....Read More
Rating
StripExtendedASCII - Delete extended ASCII characters in a string
Total Hit (1830) «Code LangId=1» ' Strip all extended ASCII characters ' (that is, all characters whose ASCII code is > 127) ' Function StripExtendedASCII(source As String) As String Dim index As Long Dim bytes() As Byte ' the fastest way to process this string ' is copy it into an arr ....Read More
Rating


(Page 16 of 133) 3985 Result(s) found  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 ...

Recommanded Links

 

Home   |  Comment   |  Contact Us   |  Privacy Policy   |  Terms & Conditions   |  BlogsZappySys

© 2008 BinaryWorld LLC. All rights reserved.