Type a page name and press Enter. You'll jump to the page if it exists, or you can create it if it doesn't.
To create a page in a module other than kernel32, prefix the name with the module name and a period.
In using this function, I discovered that the subsequent call to Marshal.PtrToStringAnsi(lpReturnedString) would only return the first Name=Value pair. I used the following wrapper around this function to convert lpReturnedString into a string[]
public static bool GetPrivateProfileSection(string appName, string fileName, out string[] section)
{
section = null;
if (!System.IO.File.Exists(fileName))
return false;
System.Text.StringBuilder returnedString = new System.Text.StringBuilder((int)bytesReturned);
//bytesReturned -1 to remove trailing \0
for (int i = 0; i < bytesReturned-1; i++)
returnedString.Append((char)Marshal.ReadByte(new IntPtr((uint)pReturnedString + (uint)i)));
<DllImport("kernel32.dll", SetLastError:=True)> _
Private Shared Function GetPrivateProfileSection(ByVal lpAppName As String, _
ByVal lpReturnedString As IntPtr, _
ByVal nSize As Integer, _
ByVal lpFileName As String) As Byte
End Function
User-Defined Types:
None.
Notes:
Based on the C# version above - returns the section as a System.Collections.Specialized.NameValueCollection or Nothing if theres an error.
Tips & Tricks:
Public Shared Function ReadSection(ByVal filename As String, ByVal section As String) As System.Collections.Specialized.NameValueCollection
Dim pBuffer As IntPtr
Dim bytesRead As Byte
Dim sectionData As New System.Text.StringBuilder(MaxIniBuffer)
Dim values As New System.Collections.Specialized.NameValueCollection
Dim pos As Integer ' seperator position
Dim name, value As String
If (Not System.IO.File.Exists(filename)) Then
Return Nothing
End If
' get a pointer to the unmanaged memory
pBuffer = Marshal.AllocHGlobal(MaxIniBuffer)
For i As Integer = 0 To bytesRead - 1
sectionData.Append(Convert.ToChar(Marshal.ReadByte(pBuffer, i)))
Next
sectionData.Remove(sectionData.Length - 1, 1)
For Each line As String In sectionData.ToString().Split(Convert.ToChar(0))
' locate the seperator
pos = line.IndexOf("=")
If (pos > -1) Then
' get values
name = line.Substring(0, pos)
value = line.Substring(pos + 1)
' add to collection
values.Add(name, value)
End If
Next
Else
values = Nothing
End If
' release the unmanaged memory
Marshal.FreeHGlobal(pBuffer)
' return collection or Nothing if we weren't able to get anything
Return values
End Function
Retrieves all the keys and values for the specified section of an initialization file.
5/8/2018 12:33:59 PM - Dan Konigsbach-32.97.110.59
Please edit this page!
Do you have...
helpful tips or sample code to share for using this API in managed code?
corrections to the existing content?
variations of the signature you want to share?
additional languages you want to include?
Select "Edit This Page" on the right hand toolbar and edit it! Or add new pages containing supporting types needed for this API (structures, delegates, and more).