INI-File:
[pfadvorname]
vorname=peter
rtfpath=c:\temp\
[day]
Report1=Alphabetische Artikelliste
Report2=Artikel nach Kategorie
[week]
Report1=Rechnung
Report2=Zusammenfassung der Quartalsumsätze
Report3=gugus
ausgelesen über API-Funktion: „GetPrivateProfileStringByKeyName“
Modul:
sub test_ini
Dim txt_resultfromini As String
Dim obj_readini As cls_filefun
Set obj_readini = New cls_filefun
txt_resultfromini = obj_readini.ReadFromFile(„day“, „Report1“, App.Path & „“ & „xxx.ini“)
Debug.Print „******************“
Debug.Print txt_resultfromini
Set obj_readini = Nothing
Dim txt_savetrtfpath As String
Dim obj_filefun As cls_filefun
Set obj_filefun = New cls_filefun
txt_savetrtfpath = obj_filefun.ReadFromFile(„pfadvorname“, „vorname“, App.Path & „xxx.ini“)
Debug.Print „******************“
Debug.Print txt_savetrtfpath
Set obj_filefun = Nothing
end sub
Resultat:
txt_resultfromini =Alphabetische Artikelliste
txt_savetrtfpath = „“
Warum erhalte ich beim zweiten Lesevorgang einen leeren String zurück? Danke im voraus für tips und hinweise
Grüsse Peter