GetPrivateProfileString
05.02.2004 09:38:38
eo-hivo
ich habe ein altes Word 6.0 Dokument mit Makros, als ich mit O2K aufgemacht hab sind die Makros auch schön konvertiert worden:
~begin~
Sub main()
Dim Autonum$
Dim Nummer
Autonum$ = WordBasic.[getprivateprofilestring$]("Einkauf", "Bestellnummer", "N:\Nummern.ini")
msgbox Autonum$
End Sub
~end~
so allerdings is das ja immer noch nicht so ganz VBA bzw. mir gefällt das mit Wordbasic nicht, deswegen hab ich mich umgesehen und hab auch was passendes "neueres" gefunden:
~begin~
Declare
Function GetPrivateProfileString Lib _
"kernel32" Alias "GetPrivateProfileStringA" _
(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
Sub test()
Dim puffer
puffer = Space$(128)
res = GetPrivateProfileString("Einkauf", "Bestellnummer", vbNullString, puffer, Len(puffer), "N:\nummern.ini")
MsgBox Left$(puffer, res)
End Sub
~end~
so, das obige, also das mit wordbasic funktioniert, aber das untere funktioniert nicht, wer weiß wieso, ich glaube ja das es an der Deklaration, aber ich weiß nicht wo.
für Hilfe wäre ich dankbar
eo-hivo