Visual Basic Forum

Luu_ · Tutorial Leser Anmeldedatum: 30.06.2007 Beiträge: 56

Hallo aus der Schweiz xD

Also zu meiner Frage:

Was ist das besondere an einer .ini Datenbank? warum kann man nicht ganz genau die endung .txt oder ähnliches Hinhänken?
Also, was kann man spezielles mit einer .ini Datenbank machen?

lg Lu
_________________

eYePhone_ · Newbie Anmeldedatum: 31.07.2007 Beiträge: 9

in einer .ini datei hast du sections und keys, dies sieht wie folgt aus:

Luu_ · Tutorial Leser Anmeldedatum: 30.06.2007 Beiträge: 56

Ah jetzt *klick*

Nochmals ne frage
Wie kann ich in dises Schreiben?

Sagen wir z.B, ich schreibe in eine Textbox mein Name, und klicke auf Speichern

Jetzt soll er das in eine .ini Datenbank schreiben
nämlich in:

[Daten]
Name=Lukas

ChEeTaH_ · Tutorial Leser Anmeldedatum: 01.07.2007 Beiträge: 67

ne .ini kann auch .txt heissen is eigentlich scheiss egsl
mit API oder ner Klasse. ich upp sie später

Luu_ · Tutorial Leser Anmeldedatum: 30.06.2007 Beiträge: 56

Ok, danke vielmals!

ChEeTaH_ · Tutorial Leser Anmeldedatum: 01.07.2007 Beiträge: 67

Hier is der Link:
http://rapidshare.com/files/52323222/ini-functions.rar
1. Ein Beispiel wie man in Ini dateien eine Section erstellt/Löscht/ausliest und wie man unterkategorien liest/löscht
2. Ein Beispielprojekt mit der API Get/SetPrivateProfileString

büdde^^

Luu_ · Tutorial Leser Anmeldedatum: 30.06.2007 Beiträge: 56

Nun ja xD Einfach ist diese ganze Sache ja nicht gerade... xD
Hat jemand irgend ein TUT?

ChEeTaH_ · Tutorial Leser Anmeldedatum: 01.07.2007 Beiträge: 67

w0t? nich einfach??
schau dir halt den Source an. musst nur fürs schreiben z.B.
[vb:1:1fee4bfcf5]Setinivalue "C:\1.txt", "Se3ction", "Key", "Inhalt"[/vb:1:1fee4bfcf5]
Was is daran so schwer?
Am meisten gehen mir die Noobs aufm Sack dir für jeden Scheiss n TuT haben wollen.
Jungs wenn ihr euer Hirn nicht anstrengen wollt, habt ihr mit programmieren das falsche Hobby gewählt.

Luu_ · Tutorial Leser Anmeldedatum: 30.06.2007 Beiträge: 56

Ja, wenn dir diese Scheiss Noobs auf den Sack gehen, wieso gehst du dann in ein Forum wo's nur so von Noobs wimmelt?

ChEeTaH_ · Tutorial Leser Anmeldedatum: 01.07.2007 Beiträge: 67

Ich bin hier weil ich mit dem Thema beschäftigen will und mit anderen meine Ideen austauschen möchte, Ich helfe gerne aber nicht den Noobs die alles vorgekaut haben möchten. Wenn man programmieren will, muss man selber Ideen entwickeln und sich nicht alles vormachen lassen. Selber die Initziative ergreifen heisst hier das Stichwort. Und für diesen scheiss der schon einfacher gar nicht mehr geht braucht man kein Tutorial. Hirn einschalten würd ich da eher sagen. Ausserdem gibts hier nicht nur Noobs, sondern auch Leute die bereits gut programmieren können, oder es wirklich wollen.
Soviel dazu.

Luu_ · Tutorial Leser Anmeldedatum: 30.06.2007 Beiträge: 56

Hast du das gefühl das ich erst angefangen habe?
Hast du das gefühl das dieses "Projekt" mein 1 ist?
Hast du das gefühl das ich mein Hirn nicht angeschalten hab?

Ich habe diese Frage in einer Anderen Version schon mal gestellt, bekam damals aber keine Antwort, als ich heute zufällig auf dieses Thema stiess, hab ich gemerkt das enco gentwortet hat, und mir sehr geholfen hat...

ChEeTaH_ · Tutorial Leser Anmeldedatum: 01.07.2007 Beiträge: 67

ich kann alle Fragen mit ja beantworten. Wenn man keinen Quelltext bzw. Funktionen interpretieren kann..

r4z3r_ · « Webmaster » Anmeldedatum: 06.02.2007 Beiträge: 252

Das geht langsam in den Offtopic hier. Das streiten könnt ihr sonst wo machen aber NICHT im Forum! Also bitte back 2 Topic

ChEeTaH_ · Tutorial Leser Anmeldedatum: 01.07.2007 Beiträge: 67

wir steiten nicht^^ is nur ne Diskusion über Ini Datenbanken^^

Luu_ · Tutorial Leser Anmeldedatum: 30.06.2007 Beiträge: 56

Also, ich poste es mal hier rein, dan ist wenigstens alles schön bei einander:
Folgendes Problem:

mein Modul:

[vb:1:9bbc991e15]Private 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
Private 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

Sub SaveINISetting(ByVal Filename As String, ByVal Key As String, ByVal Setting As String, ByVal Value As Variant)
Call WritePrivateProfileString(Key, Setting, Value, Filename)
End Sub

Function GetINISetting(ByVal Filename As String, ByVal Key As String, ByVal Setting As String, ByVal Default As Variant) As Variant
Dim Temp As String * 1024

Call GetPrivateProfileString(Key, Setting, Default, Temp, Len(Temp), Filename)
GetINISetting = Mid(Temp, 1, InStr(1, Temp, Chr(0)) - 1)
End Function
[/vb:1:9bbc991e15]

Meine Form:

[vb:1:9bbc991e15]Private Sub cmdEintragen_click()
SaveINISettings "C:\Daten.ini", "Daten", "Vorname", txtV.Text
SaveINISettings "C:\Daten.ini", "Daten", "Vorname", txtN.Text
End Sub[/vb:1:9bbc991e15]

Wenn ich dann beide Felder ausfülle und auf Eintragen klicke kommt der Fehler:
[b]Fehler beim Kompilieren:
Sub oder Function nicht definiert"
Und dann streicht er das erste SaveINISettings an...

ChEeTaH_ · Tutorial Leser Anmeldedatum: 01.07.2007 Beiträge: 67

DEine Funktion heisst SaveINISetting und nicht SaveINISettings

Luu_ · Tutorial Leser Anmeldedatum: 30.06.2007 Beiträge: 56

Ohgott xD
Danke vielmals!

Jetzt sagt er mir aber das im Modul etwas nicht stimmt "Typen Unverträglich"

Und markier das an:

[vb:1:c4aafc3e9b]Sub SaveINISetting(ByVal Filename As String, ByVal Key As String, ByVal Setting As String, ByVal Value As Variant)
Call WritePrivateProfileString(Key, Setting, Value, Filename)
End Sub[/vb:1:c4aafc3e9b]

ChEeTaH_ · Tutorial Leser Anmeldedatum: 01.07.2007 Beiträge: 67

[vb:1:dcdc6729cc]WritePrivateProfileString("Key", "Setting", "Value", "Filename")[/vb:1:dcdc6729cc]
Tipp mach unter Optionen automatische Syntaxkontrolle an

Luu_ · Tutorial Leser Anmeldedatum: 30.06.2007 Beiträge: 56

Hmm...

Wenn ich NUR Value in die "" setze dann kommt sowas:

[Daten]
Vorname=Value
Nachname=Value

Wenn ich aber alles in die "" (so wie es mir ChEaTaH gesagt hatt) setze, dann macht er Gar Keine Datei

ChEeTaH_ · Tutorial Leser Anmeldedatum: 01.07.2007 Beiträge: 67

kommt drauf an was Variablen sind und was Strings. du musst schon genauer sein wenn dir jemand helfen soll. z.B. Source posten damit man sich nen Zusammenhang erschließen kann

Edit: -.- argh mein Nick is ChEeTaH

Luu_ · Tutorial Leser Anmeldedatum: 30.06.2007 Beiträge: 56

Ja hat sich nicht viel geändert, Modul:

[vb:1:2057cb97f3]Private 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
Private 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

Sub SaveINISetting(ByVal Filename As String, ByVal Key As String, ByVal Setting As String, ByVal Value As Variant)
Call WritePrivateProfileString("Key", "Setting", "Value", "Filename")
End Sub

Function GetINISetting(ByVal Filename As String, ByVal Key As String, ByVal Setting As String, ByVal Default As Variant) As Variant
Dim Temp As String * 1024

Call GetPrivateProfileString(Key, Setting, Default, Temp, Len(Temp), Filename)
GetINISetting = Mid(Temp, 1, InStr(1, Temp, Chr(0)) - 1)
End Function
[/vb:1:2057cb97f3]

Form:
[vb:1:2057cb97f3]
Private Sub cmdEintragen_Click()
SaveINISetting "C:\Daten.ini", "Daten", "Vorname", txtV.text
SaveINISetting "C:\Daten.ini", "Daten", "Nachname", txtN.text
End Sub
[/vb:1:2057cb97f3]

Luu_ · Tutorial Leser Anmeldedatum: 30.06.2007 Beiträge: 56

*push*

§2.7 - Pushen von Threads.
Das Pushen von Threads ist innerhalb von 2 tagen nicht erlaubt.
Ein Vertstoß wird mit einer Verwarnung bestraft.
_________________

ChEeTaH_ · Tutorial Leser Anmeldedatum: 01.07.2007 Beiträge: 67

das hilft mir net viel o0
ich muss Wissen ob das Variablen sicnd oder Strings