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 15 of 133) 3985 Result(s) found 

 

InstrWordEx - Find a whole word, with your choice of delimiters
Total Hit (1022) «Code LangId=1» '------------------------------------------------------------------------ ' 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 ' bit 2 = allow cont ....Read More
Rating
IsCharType - Check whether a character is alphabetic, a digit, a space, etc.
Total Hit (1191) «Code LangId=1» ' Return True if a character belongs to a given catagory ' ' CHARTYPE can be the sum of one or more of the following values ' 1 = Uppercase alpha char [A-Z] ' 2 = Lowercase alpha char [a-z] ' 3 = Alpha char [A-Z,a-z] ' 4 = decimal digit [0-9] ' 7 = alphanu ....Read More
Rating
RotateLeftI - Rotate an Integer to the left
Total Hit (1042) «Code LangId=1»' Rotate an Integer to the left the specified number of times ' ' NOTE: requires Power2() Function RotateLeftI(ByVal value As Integer, ByVal times As Long) As Integer Dim i As Long, signBits As Integer ' no need to rotate more times than required times = time ....Read More
Rating
RotateRight - Rotate a Long to the right
Total Hit (1128) «Code LangId=1»' Rotate a Long to the right the specified number of times ' ' NOTE: requires Power2() Function RotateRight(ByVal value As Long, ByVal times As Long) As Long Dim i As Long, signBits As Long ' no need to rotate more times than required times = times Mod 32 ....Read More
Rating
RotateRightI - Rotate an Integer to the right
Total Hit (940) «Code LangId=1»' Rotate an Integer to the right the specified number of times ' ' NOTE: requires Power2() Function RotateRightI(ByVal value As Integer, ByVal times As Long) As Integer Dim i As Long, signBits As Integer ' no need to rotate more times than required times = ti ....Read More
Rating
ShiftLeft - Shift a Long to the left
Total Hit (815) «Code LangId=1»' Shift to the left of the specified number of times ' ' NOTE: requires Power2() Function ShiftLeft(ByVal value As Long, ByVal times As Long) As Long ' we need to create a mask of 1's corresponding to the ' times in VALUE that will be retained in the result Dim mas ....Read More
Rating
ShiftRight - Shift a Long to the right
Total Hit (1120) «Code LangId=1»' Shift to the right of the specified number of times ' ' NOTE: requires Power2() Function ShiftRight(ByVal value As Long, ByVal times As Long) As Long ' we need to create a mask of 1's corresponding to the ' digits in VALUE that will be retained in the result Dim ....Read More
Rating
SinH, CosH, TanH, CotH, SecH, CscH - Hyperbolic trig functions
Total Hit (1215) «Code LangId=1» ' hyperbolic sine Function SinH(value As Double) As Double Dim temp As Double temp = Exp(value) SinH = (temp - 1 / temp) / 2 End Function ' hyperbolic cosine Function CosH(value As Double) As Double Dim temp As Double temp = Exp(value) CosH = ....Read More
Rating
TriangleArea - Evaluate the area of any triangle given its sides
Total Hit (879) «Code LangId=1»' evaluate the area of a triangle ' given its three sides Function TriangleArea(side1 As Double, side2 As Double, _ side3 As Double) As Double ' this function uses the Heron formula Dim halfP As Double ' evaluate half of the perimeter halfP = (side1 + side ....Read More
Rating
CheckUSState - Validate a US state initial
Total Hit (1350) «Code LangId=1»Public Function CheckUSState(ByVal State As String) As Boolean If Len(State) = 2 And InStr(",AL,AK,AZ,AR,CA,CO,CT,DE,DC,FL,GA,HI,ID,IL,IN,I" _ & "A,KS,KY,LA,ME,MD,MA,MI,MN,MS,MO,MT,NE,NV,NH,NJ,NM,NY,NC,ND,OH,OK,OR,P" _ & "A,RI,SC,SD,TN,TX,UT,VT,VA,WA,WV,WI,WY,", ....Read More
Rating
ConvertCamelCase - Convert from a string in camel case
Total Hit (1859) «Code LangId=1»' change a sentence in CamelCase to a sentence with spaces ' for example ConvertCamelCase("FileExchange") => "File Exchange" Public Function ConvertCamelCase(ByVal Value As String) As String Dim i As Long For i = 1 To Len(Trim$(Value)) ' If the character is up ....Read More
Rating
ConvertReverseFullName - Convert a reverse name to the "FirstName LastName" format
Total Hit (1318) «Code LangId=1» ' convert a reversed full name back to the "FirstName LastName" format ' ' for example, ConvertReverseFullName("Smith, John A.") ==> "John A. Smith" Function ConvertReverseFullName(ByVal ReverseFullName As String) As String Dim i As Long ReverseFullName = Trim$( ....Read More
Rating
EncryptString - Encode and decode a string
Total Hit (1881) «Code LangId=1» Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As _ Any, source As Any, ByVal bytes As Long) ' encrypt a string using a password ' ' you must reapply the same function (and same password) on ' the encrypted string to obtain the original, non-enc ....Read More
Rating
ExplodeString - Add a filling char between a string's chars
Total Hit (1375) «Code LangId=1»' "Explode" a string by inserting a given filling character ' between consecutive characters in the original string ' ' The source string cannot contain Chr$(0) characters Function ExplodeString(Source As String, Optional fillChar As String = " ") As _ String ExplodeSt ....Read More
Rating
FilterString - Remove invalid characters from a string
Total Hit (1765) «Code LangId=1»' Filter out all invalid characters in a string. Function FilterString(text As String, ValidChars As String) As String Dim i As Long, result As String For i = 1 To Len(text) If InStr(ValidChars, Mid$(text, i, 1)) Then result = result & Mid$(text, i, ....Read More
Rating
FormatCreditCard - Format a credit card number
Total Hit (2621) «Code LangId=1»' Format a credit card number Function FormatCreditCard(ByVal text As String) As String Dim i As Long ' ignore empty strings If Len(text) = 0 Then Exit Function ' get rid of dashes, spaces and invalid chars For i = Len(text) To 1 Step -1 ....Read More
Rating
FormatFullName - Create a full name in the format "LastName, FirstName"
Total Hit (1347) «Code LangId=1»' Takes a first and last name and converts it to the format LastName, FirstName Function FormatFullName(ByVal FirstName As String, ByVal LastName As String) As _ String FirstName = Trim$(FirstName) LastName = Trim$(LastName) If FirstName = "" Then ....Read More
Rating
FormatPhoneNumber - Format a phone number
Total Hit (1534) «Code LangId=1»' Modify a phone-number to the format "XXX-XXXX" or "(XXX) XXX-XXXX". Function FormatPhoneNumber(ByVal text As String) As String Dim i As Long ' ignore empty strings If Len(text) = 0 Then Exit Function ' get rid of dashes and invalid chars For i ....Read More
Rating
GetDelimitedText - Extract the text between open and close delimiters
Total Hit (1550) «Code LangId=1»' get the text enclosed between two Delimiters ' ' it advances Index after the close delimiter ' Returns "" and Index = 0 if not found ' search is case insensitive Function GetDelimitedText(Text As String, OpenDelimiter As String, _ CloseDelimiter As String, index As Long) ....Read More
Rating
GetStringBetweenTags - Returns a string between 2 delimiters
Total Hit (1771) «Code LangId=1»' Returns a string between 2 delimiters ' Parameters: ' sSearchIn: String to search ' sFrom: First keyword ' sUntil: Second keywords ' nPosAfter: Gets the position after ' ' Example: ' Debug.Print GetStringBetweenTags("<html>This is a sample of title</html>", ' ....Read More
Rating
GetWordOccurrences - Number of occurrences of each word in a string
Total Hit (2341) «Code LangId=1»' Analyze a source string and return a bidimensional array that contains ' all the words the string contains and the number of occurrences of each ' ' Example of usage: ' Dim arr() as Variant ' arr = GetWordsOccurrences(txtSource.Text) ' For i = 1 To UBound(arr, 2) ....Read More
Rating
InStrAfter - An InStr variant that returns the index after the matching string
Total Hit (1509) «Code LangId=1»' search for a string starting at a given index ' and return the index of the character that follows ' the searched string (case insensitive search) Function InstrAfter(Source As String, Search As String, _ ByVal index As Long) As Long InstrAfter = InStr(index, Source, ....Read More
Rating
InstrLast - Find the last occurrence of a substring
Total Hit (1473) «Code LangId=1» ' returns the last occurrence of a substring ' The syntax is similar to InStr Function InstrLast(ByVal Start As Long, Source As String, search As String, _ Optional CompareMethod As VbCompareMethod = vbBinaryCompare) As Long Do ' search the next occurrence ....Read More
Rating
InStrRev - A replacement for VB6's InStrRev under VB4 and VB5
Total Hit (1119) «Code LangId=1»' A replacement for the InStrRev function under VB4 and VB5 ' ' NOTE: uses the StrReverse function Function InStrRev(ByVal Text As String, Search As String, _ Optional ByVal Start As Long = -1, Optional ByVal CompareMethod As _ VbCompareMethod = vbBinaryCompare) As Long ....Read More
Rating
InstrRev - Backward Instr for VB4 and VB5
Total Hit (1022) «Code LangId=1»' A clone of VB6's InstrRev function (including its quirks) ' that works under VB4 and VB5 Function InstrRev(StringCheck As String, StringMatch As String, _ Optional Start As Long = -1, Optional Compare As VbCompareMethod = _ vbBinaryCompare) As Long Dim index As ....Read More
Rating
InstrTbl - Search a string for any character in a table
Total Hit (1013) «Code LangId=1» ' If INCLUDE is True or is omitted, return the first occurrence of a character ' in a group ' or zero if SOURCE doesn't contain any character among those listed in TABLE. ' If INCLUDE is False, return the first occurrence of the character in SOURCE ' that does not appear in TAB ....Read More
Rating
InstrTblRev - The last occurrence of a char in a table
Total Hit (1224) «Code LangId=1»' If INCLUDE is True or is omitted, return the last occurrence of a character ' in a group ' or zero if SOURCE doesn't contain any character among those listed in TABLE. ' If INCLUDE is False, return the last occurrence of the character in SOURCE ' that does not appear in TABLE. ....Read More
Rating
InstrWord - Search a whole word
Total Hit (949) «Code LangId=1»' Return the next occurrence of a whole word Function InstrWord(start, Text, search, compareMethod) As Long Dim index As Long Dim charcode As Integer ' assume the search fails InstrWord = 0 index = start - 1 Do ' search the next ....Read More
Rating
Rnd2 - A random value in a range
Total Hit (876) «Code LangId=1» ' A random number in the range (low, high) Function Rnd2(low As Single, high As Single) As Single Rnd2 = Rnd * (high - low) + low End Function «/Code»
Rating
RotateLeft - Rotate a Long to the left
Total Hit (947) «Code LangId=1»' Rotate a Long to the left the specified number of times ' ' NOTE: requires Power2() Function RotateLeft(ByVal value As Long, ByVal times As Long) As Long Dim i As Long, signBits As Long ' no need to rotate more times than required times = times Mod 32 ....Read More
Rating


(Page 15 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.