By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
459,978 Members | 1,831 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 459,978 IT Pros & Developers. It's quick & easy.

Reading from a ini-file and run a program

P: n/a
Hi

I know that what I am asking for is very simple, but as a newbie in VB.NET i
have following 2 questions:

Eigentlich ist das ja etwas ganz einfaches, aber für mich als VB.NET-Neuling
doch etwas komplizierter.

1. How can I read and write value from / into a ini-file?

2. How can I run a file (exe, doc, etc.)

Thanks for every help

Nijazi Halimaji
Nov 21 '05 #1
Share this Question
Share on Google+
3 Replies


P: n/a
Here is code for Writing ini files
Public Class IniFile
' API functions
Private Declare Ansi Function GetPrivateProfileString _
Lib "kernel32.dll" Alias "GetPrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpDefault As String, _
ByVal lpReturnedString As System.Text.StringBuilder, _
ByVal nSize As Integer, ByVal lpFileName As String) _
As Integer
Private Declare Ansi Function WritePrivateProfileString _
Lib "kernel32.dll" Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpString As String, _
ByVal lpFileName As String) As Integer
Private Declare Ansi Function GetPrivateProfileInt _
Lib "kernel32.dll" Alias "GetPrivateProfileIntA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal nDefault As Integer, _
ByVal lpFileName As String) As Integer
Private Declare Ansi Function FlushPrivateProfileString _
Lib "kernel32.dll" Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationName As Integer, _
ByVal lpKeyName As Integer, ByVal lpString As Integer, _
ByVal lpFileName As String) As Integer
Dim strFilename As String

' Constructor, accepting a filename
Public Sub New(ByVal Filename As String)
strFilename = Filename
End Sub

' Read-only filename property
ReadOnly Property FileName() As String
Get
Return strFilename
End Get
End Property

Public Function GetString(ByVal Section As String, _
ByVal Key As String, ByVal [Default] As String) As
String
' Returns a string from your INI file
Dim intCharCount As Integer
Dim objResult As New System.Text.StringBuilder(256)
intCharCount = GetPrivateProfileString(Section, Key, _
[Default], objResult, objResult.Capacity,
strFilename)
If intCharCount > 0 Then GetString = _
Left(objResult.ToString, intCharCount)
End Function

Public Function GetInteger(ByVal Section As String, _
ByVal Key As String, ByVal [Default] As Integer) As
Integer
' Returns an integer from your INI file
Return GetPrivateProfileInt(Section, Key, _
[Default], strFilename)
End Function

Public Function GetBoolean(ByVal Section As String, _
ByVal Key As String, ByVal [Default] As Boolean) As
Boolean
' Returns a boolean from your INI file
Return (GetPrivateProfileInt(Section, Key, _
CInt([Default]), strFilename) = 1)
End Function

Public Sub WriteString(ByVal Section As String, _
ByVal Key As String, ByVal Value As String)
' Writes a string to your INI file
WritePrivateProfileString(Section, Key, Value,
strFilename)
Flush()
End Sub

Public Sub WriteInteger(ByVal Section As String, _
ByVal Key As String, ByVal Value As Integer)
' Writes an integer to your INI file
WriteString(Section, Key, CStr(Value))
Flush()
End Sub

Public Sub WriteBoolean(ByVal Section As String, _
ByVal Key As String, ByVal Value As Boolean)
' Writes a boolean to your INI file
WriteString(Section, Key, CStr(CInt(Value)))
Flush()
End Sub

Private Sub Flush()
' Stores all the cached changes to your INI file
FlushPrivateProfileString(0, 0, 0, strFilename)
End Sub

End Class

writing the following code to use it
Dim objIniFile As New IniFile("c:\data.ini")
objIniFile.WriteString("Settings", "ClockTime", "12:59")
Dim strData As String = _
objIniFile.GetString("Settings", "ClockTime", "(none)")

To run an application from .NET using the following code
Process.Start("NotePad.exe")
-----Original Message-----
Hi

I know that what I am asking for is very simple, but as a newbie in VB.NET i have following 2 questions:

Eigentlich ist das ja etwas ganz einfaches, aber für mich als VB.NET-Neulingdoch etwas komplizierter.

1. How can I read and write value from / into a ini-file?

2. How can I run a file (exe, doc, etc.)

Thanks for every help

Nijazi Halimaji
.

Nov 21 '05 #2

P: n/a
"Nijazi Halimaji" <sp***@gmx.net> schrieb:
Eigentlich ist das ja etwas ganz einfaches, aber für mich als
VB.NET-Neuling
doch etwas komplizierter.

1. How can I read and write value from / into a ini-file?
Storing and loading user preferences
<URL:http://dotnet.mvps.org/dotnet/faqs/?id=userpreferences&lang=en>
2. How can I run a file (exe, doc, etc.)


Opening files, applications, Web documents, and the mail client
<URL:http://dotnet.mvps.org/dotnet/faqs/?id=openfileappwebpage&lang=en>

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

Nov 21 '05 #3

P: n/a
Herfried,
"Nijazi Halimaji" <sp***@gmx.net> schrieb:
Eigentlich ist das ja etwas ganz einfaches, aber für mich als
VB.NET-Neuling
doch etwas komplizierter.

I saw it, in German do they know that this is your most favorite question

:-)

Cor
Nov 21 '05 #4

This discussion thread is closed

Replies have been disabled for this discussion.