ini-Datei wert verändern!

M

maho15

Erfahrenes Mitglied
Hi,

weiß jemand wie ich von einer ini datei einen Wert verändern kann?
möglichst ohne api funktion oder so!
 
Ohne API wird das wohl wirklich schwerlich gehen, aber ich hab hier eine leicht zu bedienende Funktion:

Code: 
Function SetIni(Section As String, ByVal ValName As String, _
         ByVal wert As String, IniName As String) As Long
   SetIni = WritePrivateProfileString(Section, ValName, wert, _
         IniName)
End Function

Beispiel:

test.ini(muss im selben Verzeichnis wie deine Datei liegen) sieht so aus:
Code: 
[User]
vorname=

Code:
Code: 
'API Funktion deklarieren
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

'INI-Funktion
Function SetIni(Section As String, ByVal ValName As String, _
         ByVal wert As String, IniName As String) As Long
   SetIni = WritePrivateProfileString(Section, ValName, wert, _
         IniName)
End Function

Private Sub Form_load
'Rückgabewertsvariable deklarieren
dim temp as boolean

'Funktion benutzen

'Funktion einleiten, Sektion angeben(hier "User")
temp = SetIni("User", _ 
'Schlüssel angeben
"vorname", _
'Wert angeben
"Marianne", _
'Verzeichnis angeben, wo die INI-Datei liegt
App.path & "\test.ini")

Das Ergebnis müßte so aussehen:
Code: 
[User]
vorname=Marianne



Es ist also im Prinzip ziemlich einfach, wenn man es sich mit den entsprechenden Funktionen einfach macht ;D
 
GetPrivateProfileString()

hej,

kann wer noch ein Beispiel für:

GetPrivateProfileString()

geben


Danke schonmal,

tYrEaL
 
@maho15

Nein eigentlich nicht.
Nur habe ich halt das Forum durchsucht und nichts anderes gefunden außer diesen Beitrag. Außerdem passt meine Frage zum Beitrag, im Gegensatz zur deiner antwort.

tus,
tYrEaL
 
@maho15
Der 'Muell' hat dir vor 18 Monaten noch sehr geholfen.
Abgesehen davon habe ich mitgekriegt, dass die User hier ziemlich mit 'erst suchen, dann fragen'-Admins massakriert werden, vor 18 Monaten war das noch nicht so schlimm ;)

@tyreal
Das einzige was ich auf die schnelle gefunden hab ist
http://www.vbarchiv.net/vbapi/GetPrivateProfileString.php
, sehr viel mehr werd ich dir auch nicht sagen koennen, da ich mich von VB auch schon vor laengerer Zeit verabschiedet habe.
Hoffe das hilft dir :)


Viele Gruesse, MiniMe
 
Um antworten zu können musst du eingeloggt sein.

Neue Beiträge

Zurück