VB6/VBA Programming

To use in a VB6 project or Microsoft Office VBA application, include the file basFirmaSAT.bas in your project and call the functions provided therein. There are wrapper functions to handle the messy pre-dimensioning stuff. For example

Public Function satMakePipeStringFromXml(strXmlFile As String) As String
    Dim nc As Long
    Dim strOut As String
    nc = SAT_MakePipeStringFromXml("", 0, strXmlFile, 0)
    If nc <= 0 Then Exit Function
    strOut = String(nc, " ")
    nc = SAT_MakePipeStringFromXml(strOut, nc, strXmlFile, 0)
    If nc > 0 Then
        satMakePipeStringFromXml = strOut
    End If
End Function

Here is a simple VB6 program for testing.

Public Sub ShowVersion()
   Dim nRet As Long
   nRet = SAT_Version()
   Debug.Print "Version=" & nRet
End Sub

[Contents] [Index]