AW: Textbausteine
06.04.2020 14:23:55
Stefan
Hi,
also hier mal der Code. Irgendwie steh ich da total auf dem Schlauch. Bisher steht nur der Key in der Listbox was ja schon mal ein Anfang ist. Ich möchte aber die Sections der TXT drin haben, damit ich später beim speichern meiner Texte auswählen kann in welchem Bereich der Text gespeichert werden soll.
Option Explicit
'#If Win64 Then
Private Declare PtrSafe Function WritePrivateProfileStringA Lib "kernel32.dll" ( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpString As Any, _
ByVal lpFilename As String) As Long
Private Declare PtrSafe Function GetPrivateProfileStringA Lib "kernel32.dll" ( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long, _
ByVal lpFilename As String) As Long
Private Sub UserForm_Initialize()
Dim strPfad As String
Dim strWertGelesen As String
Dim strSection As String
Dim strKey As String
Dim lngResult As Long
Dim strBuffer As String
strPfad = "H:\Eigene Dokumente\Selbstst?ndig\Test.txt" 'Beispiel Anpassen!
strSection = "Beispiel" 'Beispiel Anpassen!
strKey = "Daten" 'Beispiel Anpassen!
'Wert lesen
strBuffer = Space$(255) 'R?ckgabewert wird mit ausreichend Leerzeichen gef?llt
lngResult = GetPrivateProfileStringA(strSection, strKey, vbNullString, strBuffer, Len( _
strBuffer), strPfad)
strWertGelesen = Left$(strBuffer, lngResult)
' lngResult = GetPrivateProfileStringA(strSection, strKey, vbNullString, strBuffer, Len( _
strBuffer), strPfad)
ComboBox1.Value = strWertGelesen
ComboBox1.ListIndex = 0
End Sub
Danke schon mal.