LotusScript for Visual Basic Programmers - IBM Redbooks

If you move your code to Win32 (Windows 95 or Windows NT) the API call
no longer works. A new API call GetProfileStringA has been created to
handle the UNICODE requirements of strings under the 32-bit platform.
New Visual Basic Statements
In its most recent release, Visual Basic now supports GetSetting,
SaveSetting and DeleteSetting commands that provide access to the registry
on a 32-bit platform (in order to save parameters) and to standard INI files
on 16-bit platforms.
Wrapper Examples
Lotus provides LotusScript wrappers around a number of common APIs,
such as the Win16 WriteProfileString, in an .LSS file called LTSSL30.LSS. If
you desire to use the WriteProfileString, GetProfileInt, GetProfileString API
calls directly in Visual Basic, you will need to provide wrapper functions
similar to those provided in the Lotus LTSSL30.LSS file.
'——————————————————————————————
' GetProfString
' This function returns a profile string from the specified
' ini file. If the filename passed is "", then the string
will
' be searched for in the WIN.INI file
'——————————————————————————————
Public Function GetProfString(Section as String, Entry as
String, Filename as String, DString as String) as String
Dim retstr as String*256
Dim retval as Integer
If filename = "" then
Else
retval = GetProfileString(Section, Entry, DString,
retstr, 256)
retval = GetPrivateProfileString(Section, Entry, DString,
End If
retstr, 256,Filename)
GetProfString = Left$(retstr, retval)
End Function
16 LotusScript for Visual Basic Programmers