shell og ini fil hjælp

Den har været oppe mange gange her på E.

http://www.eksperten.dk/kat/5?searchtype=txt&words=ini+filer&method=and&sort=score&catid=5

Jeg har et godt eksempel der hjemme, men jeg er ikke hjemme lige nu, så du må vente til i morgen, så skal jeg paste koden til dig...

//>Rune

Hej.

I spørgsmål http://www.eksperten.dk/spm/325685
har jeg anvist en måde at indlæse værdier fra en ini-fil.

M.v.h. Jørn

OK, så er jeg hjemme...

Start med et lat lav en modul fil som indeholder flg.:


Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal sSection As String, ByVal sKey As String, ByVal sDefault As String, ByVal sReturn As String, ByVal lReturnSize As Long, ByVal sFilename As String) As Long
Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal sSection As String, ByVal sKey As String, ByVal sSetting As String, ByVal sFilename As String) As Long

Public Function CallINI(txtSection As String, txtKey As String, txtPath As String) As String
  ' Funktionen henter værdier fra inifil.
  Dim sValue As String
  Dim lSize As Long
  Dim lTemp As Long
  Dim sDefault As String
  sValue = String(256, " ")
  lSize = Len(sValue)
  lTemp = GetPrivateProfileString(txtSection, txtKey, sDefault, sValue, lSize, txtPath)
  If lTemp <> 0 Then
    CallINI = sValue
  Else
    CallINI = sDefault
  End If
End Function

Public Function WriteINI(txtSection As String, txtKey As String, sSetting As String, txtPath As String) As String
  ' Funktionen indsætter værdier fra Indstillinger.
  Dim sValue As String
  Dim lSize As Long
  Dim lTemp As Long
  sValue = String(256, " ")
  lSize = Len(sValue)
  lTemp = WritePrivateProfileString(txtSection, txtKey, " " & sSetting, txtPath)
  If lTemp <> 0 Then
    WriteINI = sValue
  Else
    WriteINI = sDefault
  End If
End Function


Nå så du vil kalde din INI fil, skriver du flg.
CallINI("LastOrdre", "OrdreNo", App.Path & "\FilNavn.ini")

Sådan her ser min INI fil ud:

[LastOrdre]
OrdreNo = 5035

//>Rune

hej medions, jeg kan ikke få din kode til at virke når jeg copy og paste den
jeg har lavet en knap i en form, og når jeg skriver kodeen under knappen, bliver den rød med det samme, og når der trykkes på knappen skriver vb syntax error. her er koden
Private Sub Command1_Click()
CallINI("Gruppe", "type", App.Path & "\setup.ini")''denne er rød
Label1.Caption = ini
End Sub

Har du husket at tilføje et modul?

//>Rune

ja her er det

Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal sSection As String, ByVal sKey As String, ByVal sDefault As String, ByVal sReturn As String, ByVal lReturnSize As Long, ByVal sFilename As String) As Long
Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal sSection As String, ByVal sKey As String, ByVal sSetting As String, ByVal sFilename As String) As Long

Public Function CallINI(txtSection As String, txtKey As String, txtPath As String) As String
  ' Funktionen henter værdier fra inifil.
  Dim sValue As String
  Dim lSize As Long
  Dim lTemp As Long
  Dim sDefault As String
  sValue = String(256, " ")
  lSize = Len(sValue)
  lTemp = GetPrivateProfileString(txtSection, txtKey, sDefault, sValue, lSize, txtPath)
  If lTemp <> 0 Then
    CallINI = sValue
  Else
    CallINI = sDefault
  End If
End Function

Public Function WriteINI(txtSection As String, txtKey As String, sSetting As String, txtPath As String) As String
  ' Funktionen indsætter værdier fra Indstillinger.
  Dim sValue As String
  Dim lSize As Long
  Dim lTemp As Long
  sValue = String(256, " ")
  lSize = Len(sValue)
  lTemp = WritePrivateProfileString(txtSection, txtKey, " " & sSetting, txtPath)
  If lTemp <> 0 Then
    WriteINI = sValue
  Else
    WriteINI = sDefault
  End If
End Function

Hmm det skulle altså gerne virke...!
Forsøg dig lidt mere med det.. Det er underligt det ikke virker!

//>Rune

jeg tror jeg har fået det til at virke,
CallINI("Gruppe", "type", App.Path & "\setup.ini")''denne er rød
skal det ikke være: call CallINI("Gruppe", "type", App.Path & "\setup.ini")'' så bliver den da ikke rød. men hvis jeg gerne vil vide hvad der står i type5, hvordan gør jeg det

call CallINI("Gruppe", "type5", App.Path & "\setup.ini")

//>Rune

jo, men hvis jeg gerne vil have type5 vist i et label1 eller i en variablen.
ja jeg er ked af det er lidt sort snak for mig, så bær over med mig

strType = call CallINI("Gruppe", "type5", App.Path & "\setup.ini")
Label1.caption = strType

//>Rune

ja det trode og prøvede jeg også. men så kommer vb med
compile error:
expected:expression
og hige ligter call

ups, jeg skulle bare slette call, så virker det
TAK TAK det virker

Anytime ;o)
-syntes du ik' oxo spm'et skal afsluttes? :-)

//>Rune

øh jo men hvordan, har prøvet at kikke på siden

? Står der ikke Accepter svar nogen steder?

//>Rune

?

jo tak for hjælpen

*G* Anytime :o)
Thx 4 Poinz

//>Rune