/ Snippet Library - View Code

Snippet details

ID: 340

Viewed: 1382

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

here is how you can store and retrieve info (in this case scores) from an ini file. Just create a new standard code module and put this code into it:

Now in your sub main or form load call ReadScores and in your form unload call SaveScores. The resulting ini file will look like:

[HighScore]
Score.0=150
Score.1=149
Score.2=148
Score.3=147
Score.4=146
Score.5=145
Score.6=144
Score.7=143
Score.8=142
Score.9=141

Have fun

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight AllOption Explicit ' Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As Any, ByVal lpFileName As String) As Long ' ' <<< Public Declarations >>> ' Public g_tbl_Scores() As String 'table to hold scores ' ' <<< Local Constants >>> ' Const m_int_SCORES As Integer = 9 'number of scores to track ' ' ' <<< Public Functions >>> ' Public Function ReadINI(Section, KeyName, FileName As String) As String Dim sRet As String sRet = String(255, Chr(0)) ReadINI = Left(sRet, GetPrivateProfileString(Section, ByVal KeyName, "", sRet, Len(sRet), FileName)) End Function ' Public Function writeini(sSection As String, sKeyName As String, sNewString As String, sFileName) As Integer Dim variable 'doesn't seem to matter variable = WritePrivateProfileString(sSection, sKeyName, sNewString, sFileName) End Function ' Public Function NormPath(sPath As String, Optional sSeperator As String = "") As String If Right(sPath, Len(sSeperator)) = sSeperator Then NormPath = sPath Else NormPath = sPath & sSeperator End If End Function
Code
Highlight AllPublic Sub ReadScores() 'this sub will load the scores from an ini file into 'an array Dim sFile As String Dim iControl As Integer sFile = NormPath(App.Path) & "HighScores.ini" ' ReDim g_tbl_Scores(m_int_SCORES) 'resize array ' For iControl = 0 To m_int_SCORES g_tbl_Scores(iControl) = ReadINI("HighScore", _ "Score." & iControl, sFile) Next iControl End Sub ' Public Sub SaveScores() 'this sub will save scores from an array Dim sFile As String Dim iControl As Integer sFile = NormPath(App.Path) & "HighScores.ini" ' For iControl = 0 To m_int_SCORES writeini "HighScore", "Score." & iControl, _ g_tbl_Scores(iControl), sFile Next iControl End Sub

No Reviews to show