IBM® SPSS® Amos™ 28

Imports System
Imports Microsoft.VisualBasic
Imports Amos
<System.ComponentModel.Composition.Export(GetType(IPlugin))>
Public Class CustomCode
    Implements IPlugin
 
    Public Function Mainsub() As Integer Implements IPlugin.Mainsub
        Dim dbformat As PXMLPersist.CDataTable.cDatabaseFormat
        Dim FileName As String
        Dim TableName As String
        Dim GroupingVariable As String
        Dim GroupingValue As Object
        Dim igroup As Integer
        Dim message As String
        For igroup = 1 To pd.ngroups
            pd.GetDataFile(igroup, dbformat, FileName, TableName, GroupingVariable, GroupingValue)
            message &= vbcrlf & "The data file for group " & igroup & " is " & FileName
            message &= vbcrlf & "The table name Is " & TableName & ""
        Next
        MsgBox(message,, "GetDataFile Example")
    End Function
 
    Public Function Name() As String Implements IPlugin.Name
    End Function
 
    Public Function Description() As String Implements IPlugin.Description
    End Function
End Class