Attribute VB_Name = "modUtils"
Option Explicit

Global Client As Object
Global MyClsMDR As Object
Global MyMDRField(1 To 27) As String


Global ThisModule As New clsThisClass
Global msysMain As Object
Global Msys As Object

Global SOAPInitialized As Boolean

    
Public Function GetSuffix(ByRef Name As String) As String
 
    GetSuffix = ""
    Name = Trim(Name)
    Dim SufLoc As Integer
    
    SufLoc = InStr(Name, " JR")
    If SufLoc > 0 Then
        GetSuffix = "JR"
    Else
        SufLoc = InStr(Name, " SR")
        If SufLoc > 0 Then
            GetSuffix = "SR"
        Else
            SufLoc = InStr(Name, " III")
            If SufLoc > 0 Then
                GetSuffix = "III"
            Else
                SufLoc = InStr(Name, " II")
                If SufLoc > 0 Then
                    GetSuffix = "II"
                End If
            End If
        End If
    End If
    
    If GetSuffix <> "" Then
        Name = Mid(Name, 1, SufLoc - 1)
    End If
         
End Function

' GetWord - pass a string containing a group of word separated by comma, returns the first word.
' The first word is removed from the group of words in the passed parameter w/c is returned to
' the calling procedure.
Public Function GetWord(WordGroup As String, Separator As String) As String

Dim SepPos As Integer

    SepPos = InStr(WordGroup, Separator)
    If SepPos > 0 Then
        GetWord = Mid(WordGroup, 1, SepPos - 1)
        WordGroup = Mid(WordGroup, SepPos + Len(Separator))
    Else
        GetWord = WordGroup
        WordGroup = ""
    End If
    
End Function

Public Sub Addlog(STR As String)
    frmLog.txtOutput.Text = STR & vbCrLf & frmLog.txtOutput.Text
    If frmLog.Visible = False Then
        frmLog.Visible = True
    End If
End Sub

Public Sub ReplaceString(SourceStr As String, ReplaceWhat As String, ReplaceWith As String)

    Dim SPos As Integer
    Do While InStr(1, UCase(SourceStr), UCase(ReplaceWhat)) > 0
        SPos = InStr(1, UCase(SourceStr), UCase(ReplaceWhat))
        SourceStr = Mid(SourceStr, 1, SPos - 1) & ReplaceWith & Mid(SourceStr, SPos + Len(ReplaceWhat))
    Loop
    
End Sub
            
Public Function GetXMLValue(Header As String, ByVal SourseStr As String, VarName) As String

    Dim EqualPos As Integer
    Dim ReadVarName As String
    Dim ReadVarValue As String
    Dim ValueFound As Boolean

    SourseStr = Mid(SourseStr, InStr(1, SourseStr, Header) + Len(Header))
    ' Get the variable name and value
    EqualPos = InStr(1, SourseStr, VarName)
    If EqualPos > 0 Then
        SourseStr = Mid(SourseStr, EqualPos)
        ReadVarName = Trim(Mid(SourseStr, 1, InStr(SourseStr, "=") - 1))
        SourseStr = Mid(SourseStr, InStr(SourseStr, """") + 1)
        ReadVarValue = Mid(SourseStr, 1, InStr(SourseStr, """") - 1)
    Else
    End If
    GetXMLValue = ReadVarValue

End Function