[Xaero_0]

Huhu!

Ich versuche seit 3 Tagen ein einfaches Tutorial nachzubauen. Aber es will einfach nicht funktionieren und ich komme einfach nicht weiter.

Public Class Form1

    Public Const SaveFile As String = "C:\test.ini" 'Pfad + Dateiname
    Public Const Section As String = "Meine Daten" 'Überschrift in INI [xxxx]

#Region "API"

    Private Declare Ansi Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, ByVal lpFileName As String) As Int32
    Private Declare Ansi Function WritePrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Int32


    Public Shared Function INI_ReadValueFromFile(ByVal strSection As String, ByVal strKey As String, ByVal strDefault As String, ByVal strFile As String) As String
        Dim strTemp As String = Space(1024), lLength As Integer
        lLength = GetPrivateProfileString(strSection, strKey, strDefault, strTemp, strTemp.Length, strFile)
        Return strTemp.Substring(0, lLength)
    End Function

    Public Shared Function INI_WriteValueToFile(ByVal strSection As String, ByVal strKey As String, ByVal strValue As String, ByVal strFile As String) As Boolean
        Return Not (WritePrivateProfileString(strSection, strKey, strValue, strFile) = 0)
    End Function
#End Region


    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        INI_WriteValueToFile(Section, "erster Wert", TextBox1.Text, SaveFile)

    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = INI_ReadValueFromFile(Section, "erster Wert", "", SaveFile)

    End Sub
End Class

VB zeigt keine Fehler an, aber es wird einfach keine Datei erstellt.
Woran kann das liegen?

[RalphS]

Mh. Die Funktionen stimmen - Daten werden gelesen und geschrieben.

Sieht also so aus, als würde das Eventhandling nicht funktionieren.

Schau mal nach, ob Du mit MsgBox oder sowas eine Box auf den Bildschirm bekommst, wenn Du auf den (einen der) Knöpfe drückst.

[Xaero_0]

Danke für die Hilfe!

Hat leider nicht funktioniert.
Ich habe die Buttons einzeln getestet und auch noch mal eine neue textbox probiert.

Hat noch jemand eine Idee?

[Gispelmob]

Um etwas in eine Datei zu schreiben oder aus ihr zu lesen, musst du diese erstmal initialisieren und öffnen. Nur ein Verweis auf einen Pfad funktioniert nicht.

classIni

Spoiler

'von https://stackoverflow.com/questions/31402503/read-ini-file-vb-net

Public Class classIni
    ' API functions
    Private Declare Ansi Function GetPrivateProfileString _
  Lib "kernel32.dll" Alias "GetPrivateProfileStringA" _
  (ByVal lpApplicationName As String,
  ByVal lpKeyName As String, ByVal lpDefault As String,
  ByVal lpReturnedString As System.Text.StringBuilder,
  ByVal nSize As Integer, ByVal lpFileName As String) _
  As Integer
    Private Declare Ansi Function WritePrivateProfileString _
  Lib "kernel32.dll" Alias "WritePrivateProfileStringA" _
  (ByVal lpApplicationName As String,
  ByVal lpKeyName As String, ByVal lpString As String,
  ByVal lpFileName As String) As Integer
    Private Declare Ansi Function GetPrivateProfileInt _
  Lib "kernel32.dll" Alias "GetPrivateProfileIntA" _
  (ByVal lpApplicationName As String,
  ByVal lpKeyName As String, ByVal nDefault As Integer,
  ByVal lpFileName As String) As Integer
    Private Declare Ansi Function FlushPrivateProfileString _
  Lib "kernel32.dll" Alias "WritePrivateProfileStringA" _
  (ByVal lpApplicationName As Integer,
  ByVal lpKeyName As Integer, ByVal lpString As Integer,
  ByVal lpFileName As String) As Integer
    Dim strFilename As String

    ' Constructor, accepting a filename
    Public Sub New(ByVal Filename As String)
        strFilename = Filename
    End Sub

    ' Read-only filename property
    ReadOnly Property FileName() As String
        Get
            Return strFilename
        End Get
    End Property

    Public Function GetString(ByVal Section As String,
  ByVal Key As String, ByVal [Default] As String) As String
        ' Returns a string from your INI file
        Dim intCharCount As Integer
        Dim objResult As New System.Text.StringBuilder(256)
        intCharCount = GetPrivateProfileString(Section, Key, [Default], objResult, objResult.Capacity, strFilename)
        If intCharCount > 0 Then
            GetString = Left(objResult.ToString, intCharCount)
        Else
            GetString = ""
        End If

    End Function

    Public Function GetInteger(ByVal Section As String,
  ByVal Key As String, ByVal [Default] As Integer) As Integer
        ' Returns an integer from your INI file
        Return GetPrivateProfileInt(Section, Key,
       [Default], strFilename)
    End Function

    Public Function GetBoolean(ByVal Section As String,
  ByVal Key As String, ByVal [Default] As Boolean) As Boolean
        ' Returns a boolean from your INI file
        Return (GetPrivateProfileInt(Section, Key,
       CInt([Default]), strFilename) = 1)
    End Function

    Public Sub WriteString(ByVal Section As String,
  ByVal Key As String, ByVal Value As String)
        ' Writes a string to your INI file
        WritePrivateProfileString(Section, Key, Value, strFilename)
        Flush()
    End Sub

    Public Sub WriteInteger(ByVal Section As String,
  ByVal Key As String, ByVal Value As Integer)
        ' Writes an integer to your INI file
        WriteString(Section, Key, CStr(Value))
        Flush()
    End Sub

    Public Sub WriteBoolean(ByVal Section As String,
  ByVal Key As String, ByVal Value As Boolean)
        ' Writes a boolean to your INI file
        WriteString(Section, Key, CStr(CInt(Value)))
        Flush()
    End Sub

    Private Sub Flush()
        ' Stores all the cached changes to your INI file
        FlushPrivateProfileString(0, 0, 0, strFilename)
    End Sub
End Class

Initialisieren mit

Spoiler

   Public iniFileName As String = Application.StartupPath & "\" & My.Application.Info.AssemblyName & ".ini"
    Public meineIni As New classIni(iniFileName)

lesen der Einträge

Spoiler

    Public Function LeseIni()

        If System.IO.File.Exists(iniFileName) Then

            string1 = meineIni.GetString("Key", "String1", "")
            string2 = meineIni.GetString("Key", "String2", "")

        Else

            MessageBox.Show("Die Datei " & iniFileName & " existiert nicht.")

        End If

    End Function

schreiben der Einträge

Spoiler

    Public Function schreibeIni()

        meineIni.WriteString("Key", "String1", string1)
        meineIni.WriteString("Key", "String2", string2)

    End Function

Soviel ich weis, darf der Hauptkey und der Subkey in der Ini keine Leerzeichen enthalten. Der Übersichtshalber schreibe ich den Hauptkey auch immer groß. Sieht dann etwa so aus:

[SQLSERVER]
Address=localhost
Port=3306
Charset=utf8

[USER]
Name=user
Passwd=password

Dieser Beitrag wurde von Gispelmob bearbeitet: 12. März 2019 - 19:12

[RalphS]

Wie, "hat nicht funktioniert"? Heißt das, der Click-Handler ist angesprungen, oder heißt das, schon das hat nicht funktioniert?


Weil, ich hab Deinen Code von oben hergenommen, die Handler auskommentiert und das Ganze mit einer Main() Routine und Standardwerten ausführen lassen. Das hat ohne weitere Änderungen funktioniert.

Was ich nicht testen konnte war die Form selber, weil Du die nicht gepostet hast. Aber ich würde vorsichtig behaupten wollen, daß WENN die Click-Handler anspringen UND Du sicherstellen kannst, daß die richtigen Werte aus den Steuerelementen eingesammelt werden (und an die Ini*-Routinen übergeben werden können) daß es dann hinhauen MÜßTE.


VB ist natürlich immer bissel doof, vielleicht ist C# angenehmer. Nicht daß VB irgendwelche Ausnahmen untern Tisch kehrt von wegen "konnt nicht schreiben wegen E_ACCESSDENIED - na und".

MÖGLICHERWEISE schießt bei Dir der INI-Pfad quer. Änder den mal nach %TEMP% oder nach %USERPROFILE%, wo Du auf jeden Fall schreiben können solltest.

Ansonsten... fällt mir grad nichts anderes ein.

- Getestet hab ich mit Windows' eigenem VB.NET Compiler (C:\Windows\Microsoft.NET\Framework\v4.0.30319\vbc.exe).

[Xaero_0]

Sry, hab dich wohl missverstanden. Kenne VB nur aus Tutorials und lernen durch probieren.

Zitat

MÖGLICHERWEISE schießt bei Dir der INI-Pfad quer.

Genau daran lag es.

Mit "eigenem" Ordner als Speicherpfad hat es geklappt.

[RalphS]

Dann nur noch als Verbesserungsvorschlag: Schau Dich mal um, wie es mit Unicode-Alternativen aussieht. Du verwendest bisher ANSI-APIs (*A in der Win32-API). Unicode hat *W statt des *A. Funktionssignatur *müßte* dieselbe sein.

Dann hast Du nicht das Problem, daß Dir irgendwelche Sonderzeichen um die Ohren fliegen, weil Du außer Ö auch noch Sigma, Yen und Karacho reinschreiben wolltest.

Wenn Du erstmal den Datenbestand in ANSI hast, dann wird Ändern umständlicher und fehleranfälliger. Daher am besten gleich von anfang an.

[der dom]

Ich gebe mal vorsichtig meinen Senf dazu - warum eine INI? Als Settings werden heute bei Windows Programmen fast nur noch XML Files genommen. Alles andere ist aus der Historie heraus geblieben.

Erklärung

Und sofern du nicht vor hast einen Treiber zu entwickeln der INF Files (ähnlicher Aufbau wie die INI) nutzt, dann würde ich dir persönlich raten den Fokus auf XML zu setzen. INI lesen und schreiben zu können ist ok, aber nicht mehr Up-To-Date (für die heutige Programmierzeit).