.ini File auslesen

    • VB6

      .ini File auslesen

      'SO SIEHT DAS .ini FILE AUS und heißt Kart.ini:
      '[PFADE]
      'Datenbankpfad = ODBC-Eintrag
      'User = tom
      'Passwort = test1

      '[ÜBERTRAGUNGSGESCHWINDIGKEIT]
      '45
      '56
      '89
      '59
      '23
      '58

      Visual Basic-Quellcode

      1. Public DBpfad, User, Passwd, Geschw As String
      2. Public sSQL As String ' Variable für SQL-String
      4. ' Function um die Sectionen aus dem .ini File zu lesen --> Windowsfunction
      5. Private Declare Function GetPrivateProfileSection Lib _
      6. "kernel32" Alias "GetPrivateProfileSectionA" _
      7. (ByVal lpAppName As String, ByVal lpReturnedString _
      8. As String, ByVal nSize As Long, ByVal lpFileName _
      9. As String) As Long
      10. Dim File$, Field() As String
      11. Dim X%, xArray$()
      13. ' Function um die Variablen die mit = enden aus dem .ini File zu lesen / Beispiel:Datenbankpfad=
      14. Private Declare Function GetPrivateProfileString Lib _
      15. "kernel32" Alias "GetPrivateProfileStringA" _
      16. (ByVal lpApplicationName As String, ByVal _
      17. lpKeyName As Any, ByVal lpDefault As String, _
      18. ByVal lpReturnedString As String, ByVal nSize _
      19. As Long, ByVal lpFileName As String) As Long
      22. Private Function INIGetValue(ByVal Path$, ByVal Sect$, ByVal Key$) As String
      23. Dim Result&, Buffer$
      24. 'Wert lesen und in den Speicher laden
      25. Buffer = Space$(60)
      26. Result = GetPrivateProfileString(Sect, Key, vbNullString, Buffer, Len(Buffer), Path)
      27. INIGetValue = Left$(Buffer, Result)
      28. End Function
      30. Private Sub INIGetArray(ByVal Path$, ByVal Sect$, xArray() As String) ' Werte aus der Section lesen
      31. Dim Result&, Buffer$
      32. Dim l%, p%, z%
      33. 'String lesen
      34. Buffer = Space(32767)
      35. Result = GetPrivateProfileSection(Sect, Buffer, Len(Buffer), Path)
      37. Buffer = Left$(Buffer, Result)
      39. If Buffer <> "" Then
      40. 'String mit Trennzeichen Chr$(0) in ein Feld umwandeln
      41. l = 1
      42. ReDim xArray(0)
      43. Do While l < Result
      44. p = InStr(l, Buffer, Chr$(0))
      45. If p = 0 Then Exit Do
      46. xArray(z) = Mid$(Buffer, l, p - l)
      47. z = z + 1
      48. ReDim Preserve xArray(0 To z)
      49. l = p + 1
      50. Loop
      51. End If
      53. End Sub
      55. Public Sub Vari()
      56. 'Variablen aus dem .ini File
      57. DBpfad = INIGetValue(App.Path + "\Kart.ini", "PFADE", "Datenbankpfad")
      58. User = INIGetValue(App.Path + "\Kart.ini", "PFADE", "User")
      60. Passwd = INIGetValue(App.Path + "\Kart.ini", "PFADE", "Passwort")
      62. End Sub
      64. Public Sub Übertr() 'Sequenz lesen
      65. ReDim xArray(0)
      66. Call INIGetArray(App.Path + "\Kart.ini", "ÜBERTRAGUNGSGESCHWINDIGKEIT", xArray)
      67. If UBound(xArray) > 0 Then
      68. For X = 0 To UBound(xArray) - 1
      69. 'Feld ausgeben
      70. If Left(xArray(X), 1) = "#" Then
      71. Else
      72. Geschw = xArray(X)
      73. End If
      74. Next X
      75. End If
      76. End Sub


      Edit by Agent: VB-Tag eingefügt

      Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „FlashTek“ ()