Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win


ini files in vb6

Posted on 2003-11-13
Medium Priority
Last Modified: 2008-09-05
I am currently working on a visual frontend for pisg, a statistics generator for irc.
I would very much like to include multi language support for this so i have decided to use ini files for this.

So my question would be, are there built in functions in vb6 that allow reading and/or modification of ini files? Or is there a FREE activex control/library that allows me to do this ?

I would very much appreciate an answer very quickly.
Thankx very much in advance ;)
Question by:Professor
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
LVL 86

Accepted Solution

Mike Tomlinson earned 1000 total points
ID: 9744288
You could use the API's for reading/writing to INI files.  There is an example at the bottom of this page:



Expert Comment

ID: 9745729
Create a new class, name it cIniClass and paste this into the class.  If you wish, leave a note here and I'll email you the entire class and the compiled DLL.

Usage is as follows:

dim oIni as cIniAccess
dim sValue as String

set oIni = new cIniClass
with oIni
    .File = "my.ini"
    .Section = "General"
    'read value from the Ini file
    sValue = .ReadSection("SomeSetting", "Default Value for this Setting")

    'write value to the Ini file
    .WriteSection "New Value", "SomeSetting"
end with
set oIni = nothing

'******START HERE*********
Option Explicit

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private mstrFile As String
Private mstrSection As String
Private mstrEntry As String
Private mstrValue As String
Private mstrDefault As String

Public Property Get Default() As String
   Default = mstrDefault
End Property

Public Property Let Default(ByVal strValue As String)
   mstrDefault = strValue
End Property

Public Property Get Value() As String
   Value = mstrValue
End Property

Public Property Let Value(ByVal strValue As String)
   mstrValue = strValue
End Property

Public Property Get Entry() As String
   Entry = mstrEntry
End Property

Public Property Let Entry(ByVal strEntry As String)
   mstrEntry = strEntry
End Property

Public Property Get Section() As String
   Section = mstrSection
End Property

Public Property Let Section(ByVal strSection As String)
   mstrSection = strSection
End Property

Public Property Get File() As String
   File = mstrFile
End Property

Public Property Let File(ByVal strFile As String)
   mstrFile = strFile
End Property
Public Function ReadSection(Optional Entry As Variant, Optional Default As Variant, Optional Section As Variant, Optional File As Variant) As String
    Dim ReturnString As String
    Dim NullPointer As Integer
    If Not IsMissing(Entry) Then mstrEntry = Entry
    If Not IsMissing(Section) Then mstrSection = Section
    If Not IsMissing(File) Then mstrFile = File
    If Not IsMissing(Default) Then mstrDefault = Default
    ReturnString = String$(255, Chr$(0))
    GetPrivateProfileString mstrSection, mstrEntry, mstrDefault, ReturnString, Len(ReturnString) + 1, mstrFile
    'If left$(ReturnString, InStr(ReturnString, Chr(0)) - 1) = "NotFound" Then
    '    WritePrivateProfileString section$, "SpySample.FileEventSpy", "0", "VB.INI"
    'End If
    NullPointer = InStr(ReturnString, Chr$(0))
    If NullPointer <= 1 Then
        mstrValue = ""
        mstrValue = Left$(ReturnString, NullPointer - 1)
    End If
    ReadSection = mstrValue
End Function

Public Sub WriteSection(Optional Value As Variant, Optional Entry As Variant, Optional Section As Variant, Optional File As Variant)
    If Not IsMissing(Entry) Then mstrEntry = Entry
    If Not IsMissing(Section) Then mstrSection = Section
    If Not IsMissing(File) Then mstrFile = File
    If Not IsMissing(Value) Then mstrValue = Value

    WritePrivateProfileString mstrSection, mstrEntry, mstrValue, mstrFile
End Sub

Sub FlushIni()
    'forces the memory contents of the ini writing to actually be written to the disk
    WritePrivateProfileString "x", "x", "x", mstrFile
End Sub

Public Sub DeleteSection()
    'Dim retcode As Long
    'retcode = WritePrivateProfileString(Section, 0&, 0&, filename)
    WritePrivateProfileString mstrSection, 0&, 0&, mstrFile
End Sub
'********END HERE********

Expert Comment

ID: 9745834
Another thing you can do is add a reference to the Microsoft Scripting Runtime. Then use this kind of thing:

Dim fso as New FileSystemObject, mFile as file, stream as TextStream

Public Sub OpenFile(oFile as String, oReadWrite as IOMODE)
Set mFile = fso.GetFile(oFile)
Set stream = mFile.OpenAsTextStream(oReadWrite)
End Sub

Public Sub CloseFile()
End Sub

Public Sub ReadLinesFromFile() as Collection
Dim tmp as New Collection
if stream.AtEndOfStream Then Exit Sub
GoTo start
End Sub

Public Sub AddLineToFile(wText as String)
End Sub

Private Sub Form_Load()
Dim lines as New Collection  'Used as "variable-size" array here
OpenFile("C:\file.ini", ForReading)
Set lines = ReadLinesFromFile
'You get the idea...
End Sub

Hope it's useful,

Expert Comment

ID: 9747658
    These are very good references for forking with ini files.



Featured Post

Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction In a recent article (http://www.experts-exchange.com/A_7811-A-Better-Concatenate-Function.html) for the Excel community, I showed an improved version of the Excel Concatenate() function.  While writing that article I realized that no o…
If you have ever used Microsoft Word then you know that it has a good spell checker and it may have occurred to you that the ability to check spelling might be a nice piece of functionality to add to certain applications of yours. Well the code that…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…
Suggested Courses

618 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question