at gemme et vb program

Er enig med AC/F2, det er mest praktisk at skrive til en fil.

Du kan skrive til en ini fil på denne måde.

Put følgende kode ind i et modul eller i toppen af din form:

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 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

Private Sub WriteSetting(File As String, Section As String, KeyName As String, Value As String)
     WritePrivateProfileString Section, KeyName, Value, File
End Sub
Private Function ReadSetting(File As String, Section As String, KeyName As String)
     Dim Ret As String, NC As Long
     Ret = String(255, 0)
     NC = GetPrivateProfileString(Section, KeyName, "Default", Ret, 255, File)
     If NC <> 0 Then Ret = Left$(Ret, NC)
        If Ret = "Default" Then
           Ret = ""
        End If
        ReadSetting = Ret
        
End Function

Du kan læse fra .ini filen med denne command:

ReadSetting(filnavn, sektion, keyname)

og skrive med denne:

WriteSetting filnavn, sektion, keyname, keyvalue

Håber du ka bruge det.

gl & hf

[Redigeret d. 06/02-04 22:01:42 af Mikkel Schmidt]

Jaja, men så kan jeg vel indtrodukcere den anden måde som AC/F2 nævner...

Ved at skrive sin egen åben og luk kommado kan du specifere præcis hvad du vil. Jeg skriver mest dette svar fordi jeg er lidt imod API-kald

Public Sub GemIndstillinger(Data As String)
Dim DataArray() as String
Dim FilNummer As Integer
Dim FilNavn As String
Dim I as Byte

DataArray = Split(Data, "§")
FilNummer = FreeFile
FilNavn = App.Path & "/Schedule.dta" 'Her indsætter du filnavn efter eget valg

Open FilNavn For Output As #FilNummer
  For I = 0 to UBound(DataArray)
    Write #FilNummer, DataArray(I)
  Next I
Close #FilNummer
End Sub

Public Function HentIndstillinger() As String
Dim FilNummer As Integer
Dim FilNavn As String
Dim Linje As String

FilNummer = FreeFile
FilNavn = App.Path & "/Schedule.dta" 'Her indsætter du filnavn efter eget valg

Open FilNavn For Input As #FilNummer
  Do
    Line Input #FilNummer, Linje
    HentIndstillinger = HentIndstillinger & Linje & "§"
  Loop Until EOF(FilNummer)
Close #FilNummer
End Function

Jeg har ikke testet koden, men er rimelig sikker på at den virker...

Den måde du så kalder mine funktioner på er:

Hent Indstillingerne
Hvis du gerne vil have data'erne ud til dine lblTime1, lblTime2, lblTime3, lblTime4, lblTime5 kan du gøre sådan her:

Dim DataArray() As String
Dim Data As String

Data = HentIndstillinger()
DataArray = Split(Data, "§")

lblTime1 = DataArray(0)
lblTime2 = DataArray(1)
lblTime3 = DataArray(2)
lblTime4 = DataArray(3)
lblTime5 = DataArray(4)

Gem Indstillingerne
Hvis du ligeledes har en lblTime1, lblTime2, lblTime3, lblTime4, lblTime5 kan du gøre sådan her:

Dim Data As String

Data = lblTime1 & "§" & lblTime2 & "§" & lblTime3 & "§" & lblTime4 & "§" & lblTime5

Call GemIndstillinger(Data)

// Great programs often follow great brains!

Gem det til en fil (eller registreringsdatabasen).
For at læse og skrive fra og til en fil skal du bruge Open og Close og de tilhørende funktioner.



/AC

Og til at skrive til registreringsdatabasen er den letteste måde at du bruge kommadoerne: 'SaveSetting' & 'GetSetting'... Dette er nok klart den letteste måde da vb klarer alt for dig!

// Great programs often follow great brains!

Njah, men det er en grim måde, hvis man fx skal have programmet og settings over på en anden computer.. Og desuden er det bedre jo mindre rod der er i registreringsdatabasen. Derfor vil jeg klart foretrække at skrive til en fil.



/AC