ini-Datei wert verändern!

[maho15]

Hi,

weiß jemand wie ich von einer ini datei einen Wert verändern kann?
möglichst ohne api funktion oder so!

 

[Daniel Toplak]

möglichst ohne api funktion oder so!

Also ohne API-ist mir da nichts bekannt. Ich glaube da gibt es nix in VB. Mit API solltest du dir mal die Funktionen:
GetPrivateProfileString()
WritePrivateProfileString()
anschauen.

Gruss Homer

 

[MIniMe_]

Ohne API wird das wohl wirklich schwerlich gehen, aber ich hab hier eine leicht zu bedienende 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

Beispiel:

test.ini(muss im selben Verzeichnis wie deine Datei liegen) sieht so aus:

[User]
vorname=

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:

[User]
vorname=Marianne

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

 

[maho15]

@MIniMe_

wow, thankz!!!!

 

[tYrEaL]

GetPrivateProfileString()

hej,

kann wer noch ein Beispiel für:

GetPrivateProfileString()

geben


Danke schonmal,

tYrEaL

 

[maho15]

Gräbst du immer den Müll von 18 Monate aus?

 

[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

 

[MIniMe_]

@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

 

[tYrEaL]

danke

@MiniME_

Danke.Genau das habe ich vergebens gesucht.

Gruß,

tYrEaL