-
I Am Making A Program For The Virtual Places Chat Client,
I Don't Know If Any Of You Are Familiar With It Or Not.
But What I Need Help From Is Getting Some Text Out Of A .INI
File.
I Am Trying To Get The Users Nickname.
This File is located by default in the directory:
C:\Program Files\VPlaces\vplaces.INI
the users nickname would be listed as so
NickName=Insane_Killa
this .INI file has alot a bit of text in it not just the nickname
so I need it to search for the Nickname can anyone help????
Also Can Anyone Also Tell Me How To Put Information In A Certain
Field For Example The Hobbies Field which would could appear
in the file like so:
Hobbies=Programming
Also If Anyone Has Built A Program For Virtual Places Before
And They Would Be Happy To Help Further Then Please Email Me
At: [email protected]
-
Heres a multistep example of the INI thingy u want... hope this helps :)
Also I put Load & Save, Just in case :)
Declare Function WritePrivateProfileString _
Lib "kernel32" Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationname As String, ByVal _
lpKeyName As Any, ByVal lsString As Any, _
ByVal lplFilename As String) As Long
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
'After adding that code make a command
'button, with the caption "save"
'Then add this code to it
Dim lngResult As Long
Dim strFileName
strFileName = "c:\test.ini"
lngResult = WritePrivateProfileString(txtHeading, _
txtKey.Text, txtValue.Text, strFileName)
If lngResult = 0 Then
'An error has occurred
Call MsgBox("An error has occurred", _
vbExclamation)
End If
'Now create another command button with the
'caption "Load". Heres the code for this...
Dim lngResult As Long
Dim strFileName
Dim strResult As String * 50
strFileName = "c:\test.ini"
lngResult = GetPrivateProfileString(txtHeading, _
txtKey, strFileName, strResult, Len(strResult), _
strFileName)
If lngResult = 0 Then
'An error has occurred
Call MsgBox("An error has occurred", _
vbExclamation)
Else
txtValue.Text = Trim(strResult)
End If
Hope this helps!
-Justin =]
