CodeXchange: Most Downloaded Snippets http://www.codexchange.org Summary of the most downloaded snippets published on CodeXchange en-us Copyright © CodeXchange, 2004-2006 CodeXchange RSS Feed Generator v1.0 webmaster@codexchange.org Tue, 18 Jun 2013 16:36:19 GMT 20 en-us Copyright © CodeXchange, 2004-2006 6/18/2013 4:36:19 PM CodeXchange RSS Feed Generator v1.0 /PreviewSnippet.aspx?SnippetID=aea6cbda-32c4-4abc-b30b-313b2e747383 Formating a file size and adding the B, KB, MB and GB extension appropriately with string.Format /PreviewSnippet.aspx?SnippetID=aea6cbda-32c4-4abc-b30b-313b2e747383 Formating a file size and adding the B, KB, MB and GB extension appropriately with string.Format [C#] J.Marc Piulachs Thu, 12 May 2005 19:03:39 GMT /PreviewSnippet.aspx?SnippetID=aea6cbda-32c4-4abc-b30b-313b2e747383#comments 427a3023-1009-4fad-8108-77d5eea21bd1 Formating a file size and adding the B, KB, MB and GB extension appropriately with string.Format 5/12/2005 7:03:39 PM J.Marc Piulachs private string FormatSize (double fileSize) { if (fileSize < 1024) return String.Format("{0:N0} B", fileSize); else if (fileSize < 1024*1024) return String.Format("{0:N2} KB", fileSize/1024); else return String.Format("{0:N2} MB", fileSize/(1024*1024)); }]]> 204 5 C# /PreviewSnippet.aspx?SnippetID=15e5dde4-2f16-4dee-8760-5a9325835ebf INI File Access /PreviewSnippet.aspx?SnippetID=15e5dde4-2f16-4dee-8760-5a9325835ebf INI File Access [VB.NET] Renan Feria Fri, 13 May 2005 01:03:59 GMT /PreviewSnippet.aspx?SnippetID=15e5dde4-2f16-4dee-8760-5a9325835ebf#comments 03af4393-69f0-4f95-8d4c-60efe508c790 INI File Access 5/13/2005 1:03:59 AM Renan Feria 'SAMPLE USAGE 'clsFileAccess_INI.vb 'Dim sFilename As String 'Dim sTemp As String 'sFilename = g_strINFile 'Dim cReadINI As New clsFileAccess_INI(sFilename) ' If Len(Dir(sFilename)) <> 0 Then ' cReadINI.Filename = sFilename ' g_CONNECTION.SERVER_NAME = cReadINI.ReadString(CONNECT, "SERVER", "(local)") ' g_CONNECTION.DATABASE = cReadINI.ReadString(CONNECT, "DATABASE") ' g_CONNECTION.USERNAME = cReadINI.ReadString(CONNECT, "USERNAME", "sa") ' g_CONNECTION.PASSWORD = cReadINI.ReadString(CONNECT, "PASSWORD", "sa") ' g_CONNECTION.SECURITY = cReadINI.ReadString(CONNECT, "SECURITY", "0") ' REPORT_PATH = cReadINI.ReadString("REPORTS", "ReportPath", Application.StartupPath & IIf(Right(Application.StartupPath, 2) = "\", "", "\")) ' REPORT_EXPORT = cReadINI.ReadString("REPORTS", "ExportPath", Application.StartupPath & IIf(Right(Application.StartupPath, 2) = "\", "", "\")) ' sTemp &= "" ' sTemp &= "Data Source=" & g_CONNECTION.SERVER_NAME & ";" ' sTemp &= "Initial Catalog=" & g_CONNECTION.DATABASE & ";" ' sTemp &= "User ID=" & g_CONNECTION.USERNAME & ";" ' sTemp &= "password=" & g_CONNECTION.PASSWORD & ";" ' End If Imports System Imports System.Runtime.InteropServices Imports System.Text Imports System.Collections Imports Microsoft.VisualBasic Public Class clsFileAccess_INI ' _ Private Shared Function GetPrivateProfileInt(ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer End Function _ Private Shared Function WritePrivateProfileString(ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer End Function _ Private Shared Function GetPrivateProfileString(ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As StringBuilder, ByVal nSize As Integer, ByVal lpFileName As String) As Integer End Function _ Private Shared Function WritePrivateProfileStruct(ByVal lpszSection As String, ByVal lpszKey As String, ByVal lpStruct() As Byte, ByVal uSizeStruct As Integer, ByVal szFile As String) As Integer End Function _ Private Shared Function GetPrivateProfileStruct(ByVal lpszSection As String, ByVal lpszKey As String, ByVal lpStruct() As Byte, ByVal uSizeStruct As Integer, ByVal szFile As String) As Integer End Function _ Private Shared Function GetPrivateProfileSectionNames(ByVal lpszReturnBuffer() As Byte, ByVal nSize As Integer, ByVal lpFileName As String) As Integer End Function _ Private Shared Function WritePrivateProfileSection(ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer End Function ' '/// Constructs a new INIReader object. '/// Specifies the INI file to use. Public Sub New(ByVal File As String) Filename = File End Sub '/// Specifies the INI file to use. '/// A String representing the full path of the INI file. Public Property Filename() As String Get Return m_Filename End Get Set(ByVal Value As String) m_Filename = Value End Set End Property '/// Specifies the section you're working in. (aka 'the active section') '/// A String representing the section you're working in. Public Property Section() As String Get Return m_Section End Get Set(ByVal Value As String) m_Section = Value End Set End Property '/// Reads an Integer from the specified key of the specified section. '/// Specifies the section to search in. '/// Specifies the key from which to return the value. '/// Specifies the value to return if the specified key isn't found. '/// Returns the value of the specified Section/Key pair, or returns the default value if the specified Section/Key pair isn't found in the INI file. Public Overloads Function ReadInteger(ByVal Section As String, ByVal Key As String, ByVal DefVal As Integer) As Integer Try Return GetPrivateProfileInt(Section, Key, DefVal, Filename) Catch Return DefVal End Try End Function '/// Reads an Integer from the specified key of the specified section. '/// Specifies the section to search in. '/// Specifies the key from which to return the value. '/// Returns the value of the specified Section/Key pair, or returns 0 if the specified Section/Key pair isn't found in the INI file. Public Overloads Function ReadInteger(ByVal Section As String, ByVal Key As String) As Integer Return ReadInteger(Section, Key, 0) End Function '/// Reads an Integer from the specified key of the active section. '/// Specifies the key from which to return the value. '/// Specifies the section to search in. '/// Returns the value of the specified Key, or returns the default value if the specified Key isn't found in the active section of the INI file. Public Overloads Function ReadInteger(ByVal Key As String, ByVal DefVal As Integer) As Integer Return ReadInteger(Section, Key, DefVal) End Function '/// Reads an Integer from the specified key of the active section. '/// Specifies the key from which to return the value. '/// Returns the value of the specified Key, or returns 0 if the specified Key isn't found in the active section of the INI file. Public Overloads Function ReadInteger(ByVal Key As String) As Integer Return ReadInteger(Key, 0) End Function '/// Reads a String from the specified key of the specified section. '/// Specifies the section to search in. '/// Specifies the key from which to return the value. '/// Specifies the value to return if the specified key isn't found. '/// Returns the value of the specified Section/Key pair, or returns the default value if the specified Section/Key pair isn't found in the INI file. Public Overloads Function ReadString(ByVal Section As String, ByVal Key As String, ByVal DefVal As String) As String Try Dim sb As New StringBuilder(MAX_ENTRY) Dim Ret As Integer = GetPrivateProfileString(Section, Key, DefVal, sb, MAX_ENTRY, Filename) Return sb.ToString Catch Return DefVal End Try End Function '/// Reads a String from the specified key of the specified section. '/// Specifies the section to search in. '/// Specifies the key from which to return the value. '/// Returns the value of the specified Section/Key pair, or returns an empty String if the specified Section/Key pair isn't found in the INI file. Public Overloads Function ReadString(ByVal Section As String, ByVal Key As String) As String Return ReadString(Section, Key, "") End Function '/// Reads a String from the specified key of the active section. '/// Specifies the key from which to return the value. '/// Returns the value of the specified Key, or returns an empty String if the specified Key isn't found in the active section of the INI file. Public Overloads Function ReadString(ByVal Key As String) As String Return ReadString(Section, Key) End Function '/// Reads a Long from the specified key of the specified section. '/// Specifies the section to search in. '/// Specifies the key from which to return the value. '/// Specifies the value to return if the specified key isn't found. '/// Returns the value of the specified Section/Key pair, or returns the default value if the specified Section/Key pair isn't found in the INI file. Public Overloads Function ReadLong(ByVal Section As String, ByVal Key As String, ByVal DefVal As Long) As Long Return Long.Parse(ReadString(Section, Key, DefVal.ToString)) End Function '/// Reads a Long from the specified key of the specified section. '/// Specifies the section to search in. '/// Specifies the key from which to return the value. '/// Returns the value of the specified Section/Key pair, or returns 0 if the specified Section/Key pair isn't found in the INI file. Public Overloads Function ReadLong(ByVal Section As String, ByVal Key As String) As Long Return ReadLong(Section, Key, 0) End Function '/// Reads a Long from the specified key of the active section. '/// Specifies the key from which to return the value. '/// Specifies the section to search in. '/// Returns the value of the specified Key, or returns the default value if the specified Key isn't found in the active section of the INI file. Public Overloads Function ReadLong(ByVal Key As String, ByVal DefVal As Long) As Long Return ReadLong(Section, Key, DefVal) End Function '/// Reads a Long from the specified key of the active section. '/// Specifies the key from which to return the value. '/// Returns the value of the specified Key, or returns 0 if the specified Key isn't found in the active section of the INI file. Public Overloads Function ReadLong(ByVal Key As String) As Long Return ReadLong(Key, 0) End Function '/// Reads a Byte array from the specified key of the specified section. '/// Specifies the section to search in. '/// Specifies the key from which to return the value. '/// Specifies the value to return if the specified key isn't found. '/// Returns the value of the specified Section/Key pair, or returns Nothing (Null in C#, C++.NET) if the specified Section/Key pair isn't found in the INI file. Public Function ReadByteArray(ByVal Section As String, ByVal Key As String, ByVal Length As Integer) As Byte() If Length > 0 Then Try Dim Buffer(Length - 1) As Byte If GetPrivateProfileStruct(Section, Key, Buffer, Buffer.Length, Filename) = 0 Then Return Nothing Else Return Buffer End If Catch Return Nothing End Try End If End Function '/// Reads a Byte array from the specified key of the active section. '/// Specifies the key from which to return the value. '/// Specifies the value to return if the specified key isn't found. '/// Returns the value of the specified Key, or returns Nothing (Null in C#, C++.NET) if the specified Key pair isn't found in the active section of the INI file. Public Function ReadByteArray(ByVal Key As String, ByVal Length As Integer) As Byte() Return ReadByteArray(Section, Key, Length) End Function '/// Reads a Boolean from the specified key of the specified section. '/// Specifies the section to search in. '/// Specifies the key from which to return the value. '/// Specifies the value to return if the specified key isn't found. '/// Returns the value of the specified Section/Key pair, or returns the default value if the specified Section/Key pair isn't found in the INI file. Public Overloads Function ReadBoolean(ByVal Section As String, ByVal Key As String, ByVal DefVal As Boolean) As Boolean Return Boolean.Parse(ReadString(Section, Key, DefVal.ToString)) End Function '/// Reads a Boolean from the specified key of the specified section. '/// Specifies the section to search in. '/// Specifies the key from which to return the value. '/// Returns the value of the specified Section/Key pair, or returns False if the specified Section/Key pair isn't found in the INI file. Public Overloads Function ReadBoolean(ByVal Section As String, ByVal Key As String) As Boolean Return ReadBoolean(Section, Key, False) End Function '/// Reads a Boolean from the specified key of the specified section. '/// Specifies the key from which to return the value. '/// Specifies the value to return if the specified key isn't found. '/// Returns the value of the specified Key pair, or returns the default value if the specified Key isn't found in the active section of the INI file. Public Overloads Function ReadBoolean(ByVal Key As String, ByVal DefVal As Boolean) As Boolean Return ReadBoolean(Section, Key, DefVal) End Function '/// Reads a Boolean from the specified key of the specified section. '/// Specifies the key from which to return the value. '/// Returns the value of the specified Key, or returns False if the specified Key isn't found in the active section of the INI file. Public Overloads Function ReadBoolean(ByVal Key As String) As Boolean Return ReadBoolean(Section, Key) End Function '/// Writes an Integer to the specified key in the specified section. '/// Specifies the section to write in. '/// Specifies the key to write to. '/// Specifies the value to write. '/// Returns True if the function succeeds, False otherwise. Public Overloads Function Write(ByVal Section As String, ByVal Key As String, ByVal Value As Integer) As Boolean Try Return (WritePrivateProfileString(Section, Key, Value.ToString, Filename) <> 0) Catch Return False End Try End Function '/// Writes an Integer to the specified key in the active section. '/// Specifies the key to write to. '/// Specifies the value to write. '/// Returns True if the function succeeds, False otherwise. Public Overloads Function Write(ByVal Key As String, ByVal Value As Integer) As Boolean Return Write(Section, Key, Value) End Function '/// Writes a String to the specified key in the specified section. '/// Specifies the section to write in. '/// Specifies the key to write to. '/// Specifies the value to write. '/// Returns True if the function succeeds, False otherwise. Public Overloads Function Write(ByVal Section As String, ByVal Key As String, ByVal Value As String) As Boolean Try Return (WritePrivateProfileString(Section, Key, Value, Filename) <> 0) Catch Return False End Try End Function '/// Writes a String to the specified key in the active section. '/// Specifies the key to write to. '/// Specifies the value to write. '/// Returns True if the function succeeds, False otherwise. Public Overloads Function Write(ByVal Key As String, ByVal Value As String) As Boolean Return Write(Section, Key, Value) End Function '/// Writes a Long to the specified key in the specified section. '/// Specifies the section to write in. '/// Specifies the key to write to. '/// Specifies the value to write. '/// Returns True if the function succeeds, False otherwise. Public Overloads Function Write(ByVal Section As String, ByVal Key As String, ByVal Value As Long) As Boolean Return Write(Section, Key, Value.ToString) End Function '/// Writes a Long to the specified key in the active section. '/// Specifies the key to write to. '/// Specifies the value to write. '/// Returns True if the function succeeds, False otherwise. Public Overloads Function Write(ByVal Key As String, ByVal Value As Long) As Boolean Return Write(Section, Key, Value) End Function '/// Writes a Byte array to the specified key in the specified section. '/// Specifies the section to write in. '/// Specifies the key to write to. '/// Specifies the value to write. '/// Returns True if the function succeeds, False otherwise. Public Overloads Function Write(ByVal Section As String, ByVal Key As String, ByVal Value() As Byte) As Boolean Try Return (WritePrivateProfileStruct(Section, Key, Value, Value.Length, Filename) <> 0) Catch Return False End Try End Function '/// Writes a Byte array to the specified key in the active section. '/// Specifies the key to write to. '/// Specifies the value to write. '/// Returns True if the function succeeds, False otherwise. Public Overloads Function Write(ByVal Key As String, ByVal Value() As Byte) As Boolean Return Write(Section, Key, Value) End Function '/// Writes a Boolean to the specified key in the specified section. '/// Specifies the section to write in. '/// Specifies the key to write to. '/// Specifies the value to write. '/// Returns True if the function succeeds, False otherwise. Public Overloads Function Write(ByVal Section As String, ByVal Key As String, ByVal Value As Boolean) As Boolean Return Write(Section, Key, Value.ToString) End Function '/// Writes a Boolean to the specified key in the active section. '/// Specifies the key to write to. '/// Specifies the value to write. '/// Returns True if the function succeeds, False otherwise. Public Overloads Function Write(ByVal Key As String, ByVal Value As Boolean) As Boolean Return Write(Section, Key, Value) End Function '/// Deletes a key from the specified section. '/// Specifies the section to delete from. '/// Specifies the key to delete. '/// Returns True if the function succeeds, False otherwise. Public Function DeleteKey(ByVal Section As String, ByVal Key As String) As Boolean Try Return (WritePrivateProfileString(Section, Key, Nothing, Filename) <> 0) Catch Return False End Try End Function '/// Deletes a key from the active section. '/// Specifies the key to delete. '/// Returns True if the function succeeds, False otherwise. Public Function DeleteKey(ByVal Key As String) As Boolean Try Return (WritePrivateProfileString(Section, Key, Nothing, Filename) <> 0) Catch Return False End Try End Function '/// Deletes a section from an INI file. '/// Specifies the section to delete. '/// Returns True if the function succeeds, False otherwise. Public Function DeleteSection(ByVal Section As String) As Boolean Try Return WritePrivateProfileSection(Section, Nothing, Filename) <> 0 Catch Return False End Try End Function '/// Retrieves a list of all available sections in the INI file. '/// Returns an ArrayList with all available sections. Public Function GetSectionNames() As ArrayList GetSectionNames = New ArrayList Dim Buffer(MAX_ENTRY) As Byte Dim BuffStr As String Dim PrevPos As Integer = 0 Dim Length As Integer Try Length = GetPrivateProfileSectionNames(Buffer, MAX_ENTRY, Filename) Catch Exit Function End Try Dim ASCII As New ASCIIEncoding If Length > 0 Then BuffStr = ASCII.GetString(Buffer) Length = 0 PrevPos = -1 Do Length = BuffStr.IndexOf(ControlChars.NullChar, PrevPos + 1) If Length - PrevPos = 1 OrElse Length = -1 Then Exit Do Try GetSectionNames.Add(BuffStr.Substring(PrevPos + 1, Length - PrevPos)) Catch End Try PrevPos = Length Loop End If End Function 'Private variables and constants Private m_Filename As String Private m_Section As String Private Const MAX_ENTRY As Integer = 32768 End Class ]]> 166 3 VB.NET /PreviewSnippet.aspx?SnippetID=67f1e57f-619e-4e8c-91b8-602ff5dd77d2 Read XML from string into DataSet /PreviewSnippet.aspx?SnippetID=67f1e57f-619e-4e8c-91b8-602ff5dd77d2 Read XML from string into DataSet [C#] Martin Chundela Fri, 13 May 2005 06:57:30 GMT /PreviewSnippet.aspx?SnippetID=67f1e57f-619e-4e8c-91b8-602ff5dd77d2#comments e5dc5661-427e-4d33-8be6-187bd2783223 Read XML from string into DataSet 5/13/2005 6:57:30 AM Martin Chundela DataSet ds = new DataSet("DataSetName"); System.IO.StringReader sr = new System.IO.StringReader(XMLString); ds.ReadXml(sr);]]> 156 3 C# /PreviewSnippet.aspx?SnippetID=b2f8954a-7639-46c6-908a-f3afe6907079 Create Manifest File for your Application /PreviewSnippet.aspx?SnippetID=b2f8954a-7639-46c6-908a-f3afe6907079 Create Manifest File for your Application [VB.NET] Renan Feria Fri, 13 May 2005 00:51:59 GMT /PreviewSnippet.aspx?SnippetID=b2f8954a-7639-46c6-908a-f3afe6907079#comments 03af4393-69f0-4f95-8d4c-60efe508c790 Create Manifest File for your Application 5/13/2005 12:51:59 AM Renan Feria '//************************************** ' // ' // Name: A Function To Create Manifest F ' // iles At Runtime ' // Description:No More Creating Manifest ' // Files. Just Put This Code In Your Projec ' // t And it Will AutoMaticly Make 1 If Ther ' // e isnt 1 there. ' // By: Christopher Hemple ' // ' // Inputs:None ;o. ' // ' // Returns:Xp Look! ' // ' // Assumes:Just Run This Function On For ' // m Load, Thats It :D. ' // ' // Side Effects:None :P. ' // ' //This code is copyrighted and has // limited warranties.Please see http:// ' // www.Planet-Source-Code.com/vb/scripts/Sh ' // owCode.asp?txtCodeId=515&lngWId=10 //for details. //************************************** ' // Function Manifest() 'If File.Exists(Application.StartupPath & "\" & Application.ProductName & ".exe.manifest") = True Then ' Exit Function 'Else 'Generate File Content Dim Content As String Dim bl As String = vbCrLf Content = "" & bl Content &= "" & bl Content &= "]]> 123 2 VB.NET /PreviewSnippet.aspx?SnippetID=9710a3d4-2021-4e50-b0b3-caa15848405a Round function to avoid banker's rounding /PreviewSnippet.aspx?SnippetID=9710a3d4-2021-4e50-b0b3-caa15848405a Round function to avoid banker's rounding [VB.NET] Toby Knott Mon, 16 May 2005 16:44:34 GMT /PreviewSnippet.aspx?SnippetID=9710a3d4-2021-4e50-b0b3-caa15848405a#comments 701a2ecc-98c3-467f-95c7-3274cc59e2f4 Round function to avoid banker's rounding 5/16/2005 4:44:34 PM Toby Knott ' all the framework rounding methods use banker's rounding ' if a number is exactly halfway between two numbers, it will round to the nearest even ' i.e. - 3.5 will round to 4, but 2.5 will round to 2 Function Round(ByVal dVal As Decimal, ByVal lScale As Int32) As Decimal Dim lMltply As Int32 Dim dAdd As Decimal ' find half of the least significant digit dAdd = CType(Math.Pow(0.1, lScale) * 0.5, Decimal) If dVal < 0 Then dAdd *= -1 ' initialize multiplier lMltply = CType(Math.Pow(10, lScale), Int32) ' add half of the least significant digit, times the multiplier, truncate, ' and divide by the multiplier Return Decimal.Truncate((dVal + dAdd) * lMltply) / lMltply End Function]]> 81 3 VB.NET