Visual Basic 6.0

Απ: Απ:Προσπέλαση και εγγραφή αρχείων ini με VB6

gioklis — Wed, 16 Oct 2019 05:13:16 GMT

Ένα παράδειγμα που να δουλεύει ;

Απ:Προσπέλαση και εγγραφή αρχείων ini με VB6

Michelle — Fri, 22 Jul 2005 19:56:47 GMT

Καταπληκτικό φαίνεται!
Μόλις βρώ λίγο χρόνο θα το προσθέσω στο project μου (δεν είμαι εξοικειωμένη με libraries στη VB) και θα σου πώ αποτελέσματα!!!

Απ:Προσπέλαση και εγγραφή αρχείων ini με VB6

Aris — Fri, 22 Jul 2005 19:52:09 GMT

Επεξηγήσεις υλοποίησης:

Θα φτάξεις ένα καινούργιο VB project (π.χ. MyLib)
Θα ορίσεις ότι θα βγάζει DLL (MyLib.DLL)
Από το συννημένο, θα προσθέσεις τα δύο αρχεία που περιέχει
Compile

Εάν χτυπήσει λάθος, πες μου
Εάν όλα πάνε καλά, θα έχεις ένα library που θα το προσθέσεις στο project που το χρειάζεσαι
Εάν ΔΕΝ θέλεις να το κάνεις library, απλά πρόσθεσε στο project σου αυτά τα αρχεία

Οδηγίες χρήσης:

Τα Windows έχουν (από την εποχή των Windows 3.0 - ίσως και από πιό παλιά) ένα αρχείο ρυθμίσεων συστήματος, το win.ini (και ένα ακόμα, To system.ini). Αυτά ΔΕΝ ΣΕ ΑΦΟΡΟΥΝ
Για δικά σου αρχεία ini, χρησιμοποιείς τις sl_GetPrivProfileStr (=διάβασμα) & sl_WritePrivProfileStr (=γράψιμο), όπου
- strSection = η εννότητα
- strEntry = η εγγραφή
- strDefault = η τιμή που θα επιστραφεί εάν δεν βρεθεί η εγγραφή strEntry στην εννότητα strSection
- strValue = η τιμή που θα γραφεί στην εγγραφή strEntry της εννότητας strSection
- strINI = το πλήρες path του αρχείου INI

Παράδειγμα:

[Settings]

XPOS=100

YPOS=200

Εδώ έχεις μία εννότητα (strSection="Settings", το δίνεις χωρίς τις τετράγωνες αγκύλες) με δύο εγγραφές, τις "XPOS" & "YPOS". Έστω ότι το αρχείο είναι το C:\MyProgram\MySettings.ini

Διαβάζεις το XPOS με την

strReturn = sl_GetPrivProfileStr("Settings", "XPOS", "DenToVrika", "C:\MyProgran\MySettings.ini") - ΜΗΝ ΞΕΧΝΑΣ ΟΤΙ ΕΠΙΣΤΡΕΦΕΙ string

και το γράφεις με την

sl_WritePrivProfileStr(("Settings", "XPOS", CStr(200), "C:\MyProgran\MySettings.ini") - μην ασχολείσαι με την τιμή που επιστρέφεται

Ελπίζω να είναι καταννοητά

Άρης

Απ:Προσπέλαση και εγγραφή αρχείων ini με VB6

Michelle — Fri, 22 Jul 2005 17:19:04 GMT

Αρη μπερδεύτηκα εντελώς

Απ:Προσπέλαση και εγγραφή αρχείων ini με VB6

Aris — Fri, 22 Jul 2005 00:34:46 GMT

Δεδομένου ότι δεν έχω πλέον VB6 εγκατεστημένη, θα πρέπει να φτιάξεις ένα project (που να βγάζει dll).

Αναλυτικά:

Φτιάξε το Project
Μπορεί να θέλει reference στο stdole2.tlb
Πρόσθεσε ένα .bas με το ακόλουθο περιεχόμενο

Public Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long

Public Declare Function WriteProfileString Lib "kernel32" Alias "WriteProfileStringA" (ByVal lpszSection As String, ByVal lpszKeyName As String, ByVal lpszString As String) As Long

Public 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

Public 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

Πρόσθεσε ένα .cls με το ακόλουθο περιεχόμενο (το class πρέπει να είναι global, να μην χρειάζεται new)

Public Function sl_GetProfileStr(ByVal strSection As String, ByVal strEntry As String, ByVal strDefault As String) As String
    Dim strTmp As String, lngDummy As Long

    strTmp = String(512, 0)
    lngDummy = GetProfileString(strSection, strEntry, strDefault, strTmp, 1024)
    sl_GetProfileStr = Left(strTmp, InStr(1, strTmp, Chr(0)) - 1)

End Function

Public Function sl_GetPrivProfileStr(ByVal strSection As String, ByVal strEntry As String, ByVal strDefault As String, ByVal strINI As String) As String
    Dim strTmp As String, lngDummy As Long

    strTmp = String(512, 0)
    lngDummy = GetPrivateProfileString(strSection, strEntry, strDefault, strTmp, 1024, strINI)
    sl_GetPrivProfileStr = Left(strTmp, InStr(1, strTmp, Chr(0)) - 1)

End Function

Public Function sl_WritePrivProfileString(ByVal strSection As String, ByVal strEntry As String, ByVal strValue As String, ByVal strINI As String) As Long

sl_WritePrivProfileString = WritePrivateProfileString(strSection, strEntry, strValue, strINI)

End Function

Public Function sl_WriteProfileString(ByVal strSection As String, ByVal strEntry As String, ByVal strValue As String) As Long

sl_WriteProfileString = WriteProfileString(strSection, strEntry, strValue)

End Function

Compile and use

Σημειώσεις:

Εάν χτυπήσει, πες μου. Μπορεί να έχω ξεχάσει κάτι
To πρόθεμα "sl_" είναι ένα πρόθεμα που χρησιμοποιούσα στις βιβλιοθήκες μου. Το κρατάς ή το αλλάζεις
Οι functions με το "Priv" βλέπου το .INI που τους περνάς. Οι άλλες το WIN.INI. Δηλαδή έχουμε απλό wrapping των API functions

Άρης

Απ:Προσπέλαση και εγγραφή αρχείων ini με VB6

raPhaeL — Thu, 21 Jul 2005 20:26:25 GMT

Για δες αυτό : http://www.freevbcode.com/code/ReadWriteIni.zip

Προσπέλαση και εγγραφή αρχείων ini με VB6

Michelle — Thu, 21 Jul 2005 17:02:46 GMT

Μού έχει χρειαστεί πολλές φορές να κρατάω ρυθμίσεις κάποιου προγράμματος που φτιάχνω σε αρχεία ini αλλά η VB δεν έχει κάποια built in λειτουργία για να αυτό. Είχα βάλει παλιά ενα plugin αλλά ήταν shareware και έληξε και που λεφτά για να το αγοράσω (ήδη το vBulletin στο φόρουμ μου μου κόστισε καμποσο).
Μήπως έχετε υπόψιν κάποιο free και ευχρηστο plugin ή ActiveX control ή οτιδήποτε για αυτή τη λειτουργία?
Να κάτσω να το κάνω μόνη μου δεν το θεωρώ χρήσιμο καθώς δεν είναι πια και τόσες οι ρυθμίσεις που θέλω να κρατήσω για να αξίζει τον κόπο!
Ευχαριστώ εκ των προτέρων!