WCM - Das österreichische Computer Magazin Forenübersicht
 

Zurück   WCM Forum > Rat & Tat > Programmierung

Programmierung Rat & Tat für Programmierer

Microsoft KARRIERECAMPUS

Antwort
 
Themen-Optionen Ansicht
Alt 27.04.2001, 11:05   #1
little21
Jr. Member
 
Registriert seit: 03.11.2000
Beiträge: 73


little21 eine Nachricht über ICQ schicken
Frage

hy!

ich will eine eigene ini-datei erstellen und in dieser werte für das programm speichern! programmiert mir VB!
mit welchen befehlen kann ich auf die eigene ini-datei aus VB heraus zugreifen und werte auslesen bzw. neu deffinieren!

ich weiß das man werte in die registry schreiben und auslesen kann! möchte aber DIESE WERTE nicht in diese schreiben!

mfg
little

little21 ist offline   Mit Zitat antworten
Alt 27.04.2001, 22:38   #2
reemrev
Inventar
 
Registriert seit: 31.01.2000
Beiträge: 1.706

Mein Computer

Standard

Zwei APIs:
Declare Function WritePrivateProfileString% Lib "Kernel" (...)
Declare Function GetPrivateProfileString% Lib "Kernel" (...)
erstere legt eine eigene INI Datei an,letztere liest Einträge aus dieser. Die Datei liegt im Windows Verzeichnis.
Beispiel:
a%= WritePr..... ("Abschnitt1","Eintrag", "0815","test.ini)
... erzeugt eine INI Datei mit folgendem Inhalt:
[Abschnitt1]
Eintrag =0815



reemrev ist offline   Mit Zitat antworten
Alt 27.04.2001, 23:43   #3
eichi18
Newbie
 
Registriert seit: 27.04.2001
Beiträge: 11


Ausrufezeichen Musterprojekt - INI.Datei

Hier findest Du ein Musterpojekt zu deinem Problem:

http://www.eichinger.co.at/VB/default.asp

mfg
Michael
eichi18 ist offline   Mit Zitat antworten
Alt 27.04.2001, 23:59   #4
little21
Jr. Member
 
Registriert seit: 03.11.2000
Beiträge: 73


little21 eine Nachricht über ICQ schicken
Standard

hy!

DANKE FÜR DIE HILFE!

hatte bereits selbst die antwort gefunden. funktionierte bei mir mit folgenden code!


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 Sub Form_Click()

Dim Result&, Buffer$

'Wert lesen
Buffer = Space$(32)
Result = GetPrivateProfileString("neu", "datei", "", _
Buffer, Len(Buffer), "c:\v.ini")
a = Left$(Buffer, Result)
MsgBox (a)
End Sub

@reemrev
hatte bereits deine zeile gehabt hat aber nicht mit dem kernel32 funktioniert und die datei kernel.dll hab ich nicht gehabt!

nochmals danke für die tipps!

mfg
little
little21 ist offline   Mit Zitat antworten
Antwort


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)
 

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge hochzuladen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.

Gehe zu


Alle Zeitangaben in WEZ +2. Es ist jetzt 06:25 Uhr.


Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Forum SEO by Zoints
© 2009 FSL Verlag