16. januar 2004 - 23:31Der er
10 kommentarer og 1 løsning
Combo og ini
Jeg henter data ind fra en ini fil men hvis jeg vil tjekke om lykken = ini filen vil den ikke finde den rigtige
Dim StrTypeOps As String StrTypeOps = CallINI("Default", "Opstart", App.Path & "\install.ini") For i = 0 To Combo2.ListCount - 1 'MsgBox Combo2.list(i) 'MsgBox StrTypeOps If Combo2.list(i) = "StrTypeOps" Then Combo2.ListIndex = i Exit For End If Next Det er lige som om at StrTypeOps er for lang hvis jeg sætter en msgbox på kan jeg se at de data jeg skal bruge men hvis jeg sætter et tegn "1" & StrTypeOps & "1" kan jeg kun se det første "1" er der er der en god ide.
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
Det har jeg prøvet og jeg har fundet ud af hvad der er galt Trim(Replace(vis, Chr(0), "")) den har for mange tomme mellemrun til at kunde finde ud af det
Jeg mente selve ini filen du loader fra.. det der module har jeg allerede.. (eller et ligende).. Ved at se indholdet og strukturen af ini filen, kan man danne sig et overblik om, hvordan koden kan være..
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
