Πώς να Διαβάστε & Write INI αρχεία σε Visual Basic 9

. Ένα αρχείο INI είναι ένα δομημένο αρχείο κειμένου που αποθηκεύει τις ρυθμίσεις για τον χρήστη λειτουργίες του προγράμματος . Για παράδειγμα , ένα αρχείο INI είναι ένας μηχανισμός για να θυμηθούμε ότι ένας χρήστης θέλει να εμφανιστεί το κείμενο σε γλώσσα εκτός της αγγλικής . Η αρχική εφαρμογή των Windows Programmer Interface ( API ) λειτουργίες που διευκολύνουν την ανάγνωση και εγγραφή αρχείων INI υποστηρίζονται. Η Microsoft έχει αποδοκιμαστεί αρχεία INI υπέρ του μητρώου των Windows και νεότερα που βασίζονται σε XML μορφές αρχείων . Οι λειτουργίες των Windows API , ενώ δεν υποστηρίζεται άμεσα , παραμένουν στη διάθεση της Visual Basic 9 προγραμματιστές που υποστηρίζουν το λογισμικό κληρονομιά . Οδηγίες
Η 1

Προσθέστε μια πρόταση Declare στην κορυφή της μονάδας σας για να ενεργοποιήσετε την κλήση της συνάρτησης API των Windows για τη γραφή αρχεία ini : .

Private Declare Ansi WritePrivateProfileString Λειτουργία _

Lib " kernel32.dll " Alias ​​" WritePrivateProfileStringA " _

( ByVal lpApplicationName As String , _

ByVal lpKeyName As String , ByVal lpString As String , _

ByVal lpFileName As String ) As Integer 2

Προσθέστε μια συνάρτηση Declare στην κορυφή της μονάδας σας για να ενεργοποιήσετε την κλήση της συνάρτησης API των Windows για την ανάγνωση ini της τιμής του αρχείου : .

Private Declare Ansi λειτουργία GetPrivateProfileString _

Lib " kernel32.dll " Alias ​​" GetPrivateProfileStringA " _

( ByVal lpApplicationName As String , _

ByVal lpKeyName As String , ByVal lpDefault As String , _

ByVal lpReturnedString Όπως String , _

ByVal nSize As Integer , ByVal lpFileName Όπως String ) _

As Integer
εικόνων 3

Δημιουργία ή να επεξεργαστείτε ένα αρχείο INI καλώντας τη λειτουργία WritePrivateProfileString , παρέχοντας τιμές για τα βασικά , την εφαρμογή και το όνομα αρχείου . Κατά συνθήκη , τα αρχεία INI χρησιμοποιήστε το . Ini επέκταση . Η παράμετρος εφαρμογής αντιστοιχεί σε ένα τμήμα στο αρχείο ini . Εάν οποιαδήποτε από τις καθορισμένες παραμέτρους δεν υπάρχουν, θα πρέπει να δημιουργηθεί. Αυτό περιλαμβάνει το ίδιο το αρχείο όσο υπάρχει ήδη καθορισμένο κατάλογο. Η λειτουργία WritePrivateProfile String θα υπερ- γράψει προηγουμένως υπάρχουσες τιμές.

WritePrivateProfileString ( " ενότητα " , " κλειδί " , "τιμή ", " . /Data.ini " )
Η 4

εκκαθάριση της μνήμης cache , όταν έχετε ολοκληρώσει INI τροποποιήσεις του αρχείου , μειώνοντας τον κίνδυνο απώλειας δεδομένων σε περίπτωση φυσιολογικό τερματισμό του προγράμματος . Περάστε μηδενικές τιμές στη λειτουργία WritePrivateProfileString για όλες τις παραμέτρους εκτός από το όνομα του αρχείου INI . Η εντολή αυτή των Windows για να γράψετε τις αλλαγές στον δίσκο :

WritePrivateProfileString ( 0 , 0 , 0 , " /data.ini . " )
5

Διαθέστε ένα ρυθμιστικό επαρκές για να κρατήσει το μέγιστο μέγεθος του τιμή που είναι αποθηκευμένη στο αρχείο INI . Ένα ρυθμιστικό διάλυμα 256 χαρακτήρες είναι συνήθως επαρκής . Δημιουργήστε έναν ακέραιο για να λαμβάνετε το πραγματικό μέγεθος της αξίας που ανακτώνται από το αρχείο INI . Χρησιμοποιήστε Dim να δηλώσει τις μεταβλητές και τη λειτουργία Space για την εκχώρηση μνήμης για τη σειρά :

Dim strValue Όπως String Dim

intLen As Integer

strValue = Διάστημα ( 256 )

6

Ανάκτηση τιμές που είναι αποθηκευμένες στο αρχείο INI καλώντας GetPrivateProfileString χρησιμοποιώντας τις μεταβλητές μαζί με το κλειδί , το τμήμα , και τις αξίες όνομα του αρχείου που χρησιμοποιείται κατά την εγγραφή του αρχείου INI . Καθορίστε το μέγεθος του buffer που παρέχουν και μια τιμή που θα επιστραφεί όταν η καθορισμένη τιμή δεν έχει βρεθεί :

intLen = GetPrivateProfileString ( " ενότητα " , " κλειδί " , " δεν βρέθηκε" , strValue , 256 , " όνομα αρχείου " )
Η
εικόνων