[Fork] TemenosVbTest | C# Online Compiler

[Fork] TemenosVbTest by eCardsuite Development Team

Imports System
Imports System.Collections.Generic
Imports System.Text.RegularExpressions
Imports Microsoft.VisualBasic
				
Public Module Module1
	
    Public Enum AccountFormat
        ''' <summary>
        ''' Legacy Byte Per Byte SavePLUS CASA account. Format: 065XXXXXXXXXXX
        ''' </summary>
        LegacySavePlus = 0

        ''' <summary>
        ''' Temenos T24 peso account. Format: 2XXXXXXXXX
        ''' </summary>
        Peso = 1

        ''' <summary>
        ''' Temenos T24 dollar account. Format: 3XXXXXXXXX
        ''' </summary>
        Dollar = 2

        ''' <summary>
        ''' Temenos T24 PESO EQB internal accounts. Format: PHPXXXXXXXXXXXXX
        ''' </summary>
        Internal = 3

        ''' <summary>
        ''' Unknown account number format.
        ''' </summary>
        Unknown = 4
    End Enum
	
    ''' <summary>
    ''' Check digit weights for account number for EQB Temenos Accounts.
    ''' </summary>
    Public ReadOnly TemenosAcctCheckDigitWgt As Integer() = New Integer() {3, 2, 7, 6, 5, 4, _
     3, 2, 7, 6, 5, 4, _
     3, 2}
	
	Public Sub Main()
		Dim name As String = "GREY TESTING"
		Console.WriteLine("Name Check [" & name & "]: " & checkName(name))
		
		Dim acctToCheck As String = "06500101000035" ' "06500103000032" ' "06500102286170" ' "06500100005041" ' "1000002000000108"
		Dim validTemenosAcct As String = ""
		Dim isTemenosAcct As Boolean = IsTemenosAcctValid(acctToCheck, validTemenosAcct)
		Console.WriteLine("Is Temenos Acct: " & isTemenosAcct.ToString())
		Console.WriteLine("Valid Temenos Acct: " & validTemenosAcct)
		Dim acctFormat As AccountFormat = GetAccountFormat(acctToCheck)
		Console.WriteLine("Account Format: " & acctFormat.ToString())
		
		If acctFormat = AccountFormat.LegacySavePlus Then
			Dim saveplusAcctNoPrefix As String = acctToCheck.Substring(acctToCheck.Length - 11)
			Console.WriteLine("SavePLUS Account (No Prefix): " & saveplusAcctNoPrefix)
			Console.WriteLine("SavePLUS Account (Pos 4 Len 2): " & saveplusAcctNoPrefix.Substring(3, 2))
			Console.WriteLine("SavePLUS Account (Pos 9 Len 2): " & saveplusAcctNoPrefix.Substring(8, 2))
			
			Console.WriteLine("To SavePLUS Account (Exclude Prefix): " & ToLegacySavePlusAccount(saveplusAcctNoPrefix, True))
			Console.WriteLine("To SavePLUS Account (Exclude Prefix): " & ToLegacySavePlusAccount(acctToCheck, True))
		End If
		
		Dim trxAmountStr As String = "350.00"
		Console.WriteLine(((Convert.ToDouble(trxAmountStr) * 100).ToString("F0")).PadLeft(12, "0"))
	End Sub
	
	Public Function IsTemenosAcctValid(ByVal accountNumber As String, ByRef validTemenosAcct As String) As Boolean
        Dim computedWeights As List(Of Integer) = New List(Of Integer)()
        Dim ecardsuiteBankAcctType As List(Of String) = getAllowedBankTypeList()

        accountNumber = accountNumber.Trim()
        Dim requiredLength As Integer = TemenosAcctCheckDigitWgt.Length

        validTemenosAcct = String.Empty

        Dim trimmedAcctNo As String = accountNumber

        If Not Regex.IsMatch(accountNumber, "^[0-9]+$") Then
            Return False
        ElseIf accountNumber.Length = 16 AndAlso ecardsuiteBankAcctType.Contains(accountNumber.Substring(0, 2)) Then
            ' AQM 20210203 - Handling for accounts with account type (10 for Savings or 20 for Current) and fixed sixteen (16) digit input.
            trimmedAcctNo = accountNumber.Substring(accountNumber.Length - 10)
        ElseIf accountNumber.Length - 1 > requiredLength Then
            Return False
        End If

        
        

        Dim tempAccountNumber As String = If(trimmedAcctNo.Length - 1 < requiredLength, trimmedAcctNo.PadLeft(requiredLength + 1, "0"c), trimmedAcctNo)
        ' 14 characters + 1 character (CheckDigit)
        Dim tempAccountNoWithCheckDigit As String = tempAccountNumber
        tempAccountNumber = tempAccountNumber.Substring(0, requiredLength)
        ' Exclude the CheckDigit (last character)
        Dim checkDigitSum As Integer = 0
        Dim checkDigitWeightCounter As Integer = 0
        For Each c As Char In tempAccountNumber
            If checkDigitWeightCounter = tempAccountNumber.Length - 1 Then
                Exit For
            End If

            Dim num As Integer = Integer.Parse(c.ToString())
            Dim computedVal As Integer = num * TemenosAcctCheckDigitWgt(checkDigitWeightCounter)
            computedWeights.Add(computedVal)
            checkDigitWeightCounter += 1
            checkDigitSum += computedVal
        Next

        Dim mod11 As Integer = checkDigitSum Mod 11
        Dim tempCheckDigit As Integer = 11 - mod11
        Dim checkDigit As Integer

        If tempCheckDigit > 9 Then
            checkDigit = tempCheckDigit - 3
        Else
            checkDigit = tempCheckDigit
        End If

        validTemenosAcct = String.Concat(trimmedAcctNo, checkDigit)
        Return tempAccountNoWithCheckDigit = String.Concat(tempAccountNumber, checkDigit)
    End Function
	
	''' <summary>
    ''' Checks the specified account number's format.
    ''' </summary>
    ''' <param name="accountNumber"></param>
    ''' <returns></returns>
    Public Function GetAccountFormat(ByVal accountNumber As String) As AccountFormat
        Dim validTemenosAcct As String = String.Empty
        Dim methodName As String = "GetAccountFormat()"
        Dim acctFormat As AccountFormat = AccountFormat.Unknown

        Console.WriteLine(methodName & " - Validating Account Number if legacy SavePLUS or Temenos Account...")

        If accountNumber Is Nothing Then
            Console.WriteLine(methodName & " -   - WARNING! Account number to check is null, setting account number to string.Empty...")
            accountNumber = String.Empty
        End If

        Console.WriteLine(methodName & " -   - Input Account Number: " & accountNumber)

        If String.IsNullOrEmpty(accountNumber) Then
            acctFormat = AccountFormat.Unknown
            Console.WriteLine(methodName & " -   - Account Number: " & acctFormat.ToString())
            Return acctFormat
        End If

        accountNumber = accountNumber.Trim()

        If accountNumber.StartsWith("065") And accountNumber.Length = 14 Then
            acctFormat = AccountFormat.LegacySavePlus
            Console.WriteLine(methodName & " -   - Account Number: " & acctFormat.ToString())
            Return acctFormat
        ElseIf accountNumber.StartsWith("PHP") And accountNumber.Length = 16 Then
            acctFormat = AccountFormat.Internal
            Console.WriteLine(methodName & " -   - Account Number: " & acctFormat.ToString())
            Return acctFormat
        End If

        Dim isTemenosAcct As Boolean = IsTemenosAcctValid(accountNumber, validTemenosAcct)

        If Not isTemenosAcct Then
            acctFormat = AccountFormat.Unknown
            Console.WriteLine(methodName & " -   - Account Number: " & acctFormat.ToString())
            Return acctFormat
        End If

        If validTemenosAcct.StartsWith("2") Then
            acctFormat = AccountFormat.Peso
            Console.WriteLine(methodName & " -   - Account Number: " & acctFormat.ToString())
            Return acctFormat
        ElseIf validTemenosAcct.StartsWith("3") Then
            acctFormat = AccountFormat.Dollar
            Console.WriteLine(methodName & " -   - Account Number: " & acctFormat.ToString())
            Return acctFormat
        Else
            acctFormat = AccountFormat.Unknown
            Console.WriteLine(methodName & " -   - Account Number: " & acctFormat.ToString())
            Return acctFormat
        End If
    End Function
	
	''' <summary>
    ''' Converts the input account number to a legacy SavePLUS account number format.
    ''' </summary>
    ''' <param name="accountNo"></param>
    ''' <param name="excludePrefix"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function ToLegacySavePlusAccount(ByVal accountNo As String, Optional ByVal excludePrefix As Boolean = False) As String
        ' Dim methodName As String = _appModule & " - ToLegacySavePlusAccount()"

        Dim acctToCheck As String = String.Empty

        If accountNo Is Nothing Then
            acctToCheck = String.Empty
        Else
            acctToCheck = accountNo.Trim()
        End If

        ' _lw.WriteLine(methodName & " - Converting input account number [" & acctToCheck & "] to legacy SavePLUS account number...")

        If acctToCheck = String.Empty Then
            ' _lw.WriteLine(methodName & " -   - Input account number is blank. Account Number [" & accountNo & "] is unknown!")
            Return String.Empty.PadLeft(14, "0")
        End If

        Dim acctLegacySavePlus As String = acctToCheck

        Dim acctSavePlusWithTypePrefix As New List(Of String)
        acctSavePlusWithTypePrefix.Add("00065")
        acctSavePlusWithTypePrefix.Add("10065")
        acctSavePlusWithTypePrefix.Add("20065")

        If acctLegacySavePlus.Length = 16 AndAlso acctSavePlusWithTypePrefix.Contains(acctLegacySavePlus.Substring(0, 5)) Then
            acctLegacySavePlus = acctLegacySavePlus.Substring(2)
        ElseIf acctLegacySavePlus.Length > 14 Then
            acctLegacySavePlus = acctLegacySavePlus.Substring(acctLegacySavePlus.Length - 14)
        ElseIf Not (acctLegacySavePlus.Length = 14 AndAlso acctLegacySavePlus.StartsWith("065")) Then
            acctLegacySavePlus = String.Concat("065", acctLegacySavePlus)
        End If

        If excludePrefix Then
            acctLegacySavePlus = acctLegacySavePlus.Substring(acctLegacySavePlus.Length - 11)
        End If

        Return acctLegacySavePlus
    End Function
	
	Private Function getAllowedBankTypeList() As List(Of String)
        Dim lst As New List(Of String)
        lst.Add("10")
        lst.Add("20")
        Return lst
    End Function
	
	Private Function checkName(ByVal Myname As String) As Boolean

        If Myname.Length > 0 Then
            Dim Data As Integer = 1
            Dim Data2 As String
            Dim DataSame As String = ""

			Do While Not Data > MyName.Length
                Data2 = Mid(Myname, Data, 1)
                Select Case Asc(Data2)
                    Case 48 To 57, 97 To 122, 65 To 90, 44 To 46, 39, 32
                        DataSame = Asc(Data2)
                        Data = Data + 1
                    Case Else
                        checkName = True
                        Exit Do
                End Select
                If Asc(Data2) = DataSame Then
                    checkName = False
                Else
                    checkName = True ' meaning error is found. invalid character in name
                    Exit Do
                End If

            Loop
        End If
    End Function
End Module

​x
 
Imports System
Imports System.Collections.Generic
Imports System.Text.RegularExpressions
Imports Microsoft.VisualBasic
                
Public Module Module1
    
    Public Enum AccountFormat
        ''' <summary>
        ''' Legacy Byte Per Byte SavePLUS CASA account. Format: 065XXXXXXXXXXX
        ''' </summary>
        LegacySavePlus = 0
​
        ''' <summary>
        ''' Temenos T24 peso account. Format: 2XXXXXXXXX
        ''' </summary>
        Peso = 1
​
        ''' <summary>
        ''' Temenos T24 dollar account. Format: 3XXXXXXXXX
        ''' </summary>
        Dollar = 2
​
        ''' <summary>
        ''' Temenos T24 PESO EQB internal accounts. Format: PHPXXXXXXXXXXXXX
        ''' </summary>
        Internal = 3
​
        ''' <summary>
        ''' Unknown account number format.
        ''' </summary>
        Unknown = 4
    End Enum
    
    ''' <summary>
    ''' Check digit weights for account number for EQB Temenos Accounts.
    ''' </summary>
    Public ReadOnly TemenosAcctCheckDigitWgt As Integer() = New Integer() {3, 2, 7, 6, 5, 4, _
     3, 2, 7, 6, 5, 4, _
     3, 2}
    
    Public Sub Main()
        Dim name As String = "GREY TESTING"
        Console.WriteLine("Name Check [" & name & "]: " & checkName(name))
        
        Dim acctToCheck As String = "06500101000035" ' "06500103000032" ' "06500102286170" ' "06500100005041" ' "1000002000000108"
        Dim validTemenosAcct As String = ""
        Dim isTemenosAcct As Boolean = IsTemenosAcctValid(acctToCheck, validTemenosAcct)
        Console.WriteLine("Is Temenos Acct: " & isTemenosAcct.ToString())
        Console.WriteLine("Valid Temenos Acct: " & validTemenosAcct)
        Dim acctFormat As AccountFormat = GetAccountFormat(acctToCheck)
        Console.WriteLine("Account Format: " & acctFormat.ToString())
        
        If acctFormat = AccountFormat.LegacySavePlus Then
            Dim saveplusAcctNoPrefix As String = acctToCheck.Substring(acctToCheck.Length - 11)
            Console.WriteLine("SavePLUS Account (No Prefix): " & saveplusAcctNoPrefix)
            Console.WriteLine("SavePLUS Account (Pos 4 Len 2): " & saveplusAcctNoPrefix.Substring(3, 2))
            Console.WriteLine("SavePLUS Account (Pos 9 Len 2): " & saveplusAcctNoPrefix.Substring(8, 2))
            
            Console.WriteLine("To SavePLUS Account (Exclude Prefix): " & ToLegacySavePlusAccount(saveplusAcctNoPrefix, True))
            Console.WriteLine("To SavePLUS Account (Exclude Prefix): " & ToLegacySavePlusAccount(acctToCheck, True))
        End If
        
        Dim trxAmountStr As String = "350.00"
        Console.WriteLine(((Convert.ToDouble(trxAmountStr) * 100).ToString("F0")).PadLeft(12, "0"))
    End Sub
    
    Public Function IsTemenosAcctValid(ByVal accountNumber As String, ByRef validTemenosAcct As String) As Boolean
        Dim computedWeights As List(Of Integer) = New List(Of Integer)()
        Dim ecardsuiteBankAcctType As List(Of String) = getAllowedBankTypeList()
​
        accountNumber = accountNumber.Trim()
        Dim requiredLength As Integer = TemenosAcctCheckDigitWgt.Length
​
        validTemenosAcct = String.Empty
​
        Dim trimmedAcctNo As String = accountNumber
​
        If Not Regex.IsMatch(accountNumber, "^[0-9]+$") Then
            Return False
        ElseIf accountNumber.Length = 16 AndAlso ecardsuiteBankAcctType.Contains(accountNumber.Substring(0, 2)) Then
            ' AQM 20210203 - Handling for accounts with account type (10 for Savings or 20 for Current) and fixed sixteen (16) digit input.
            trimmedAcctNo = accountNumber.Substring(accountNumber.Length - 10)
        ElseIf accountNumber.Length - 1 > requiredLength Then
            Return False
        End If
​
        
        
​
        Dim tempAccountNumber As String = If(trimmedAcctNo.Length - 1 < requiredLength, trimmedAcctNo.PadLeft(requiredLength + 1, "0"c), trimmedAcctNo)
        ' 14 characters + 1 character (CheckDigit)
        Dim tempAccountNoWithCheckDigit As String = tempAccountNumber
        tempAccountNumber = tempAccountNumber.Substring(0, requiredLength)
        ' Exclude the CheckDigit (last character)
        Dim checkDigitSum As Integer = 0
        Dim checkDigitWeightCounter As Integer = 0
        For Each c As Char In tempAccountNumber
            If checkDigitWeightCounter = tempAccountNumber.Length - 1 Then
                Exit For
            End If
​
            Dim num As Integer = Integer.Parse(c.ToString())
            Dim computedVal As Integer = num * TemenosAcctCheckDigitWgt(checkDigitWeightCounter)
            computedWeights.Add(computedVal)
            checkDigitWeightCounter += 1
            checkDigitSum += computedVal
        Next
​
        Dim mod11 As Integer = checkDigitSum Mod 11
        Dim tempCheckDigit As Integer = 11 - mod11
        Dim checkDigit As Integer
​
        If tempCheckDigit > 9 Then
            checkDigit = tempCheckDigit - 3
        Else
            checkDigit = tempCheckDigit
        End If
​
        validTemenosAcct = String.Concat(trimmedAcctNo, checkDigit)
        Return tempAccountNoWithCheckDigit = String.Concat(tempAccountNumber, checkDigit)
    End Function
    
    ''' <summary>
    ''' Checks the specified account number's format.
    ''' </summary>
    ''' <param name="accountNumber"></param>
    ''' <returns></returns>
    Public Function GetAccountFormat(ByVal accountNumber As String) As AccountFormat
        Dim validTemenosAcct As String = String.Empty
        Dim methodName As String = "GetAccountFormat()"
        Dim acctFormat As AccountFormat = AccountFormat.Unknown
​
        Console.WriteLine(methodName & " - Validating Account Number if legacy SavePLUS or Temenos Account...")
​
        If accountNumber Is Nothing Then
            Console.WriteLine(methodName & " -   - WARNING! Account number to check is null, setting account number to string.Empty...")
            accountNumber = String.Empty
        End If
​
        Console.WriteLine(methodName & " -   - Input Account Number: " & accountNumber)
​
        If String.IsNullOrEmpty(accountNumber) Then
            acctFormat = AccountFormat.Unknown
            Console.WriteLine(methodName & " -   - Account Number: " & acctFormat.ToString())
            Return acctFormat
        End If
​
        accountNumber = accountNumber.Trim()
​
        If accountNumber.StartsWith("065") And accountNumber.Length = 14 Then
            acctFormat = AccountFormat.LegacySavePlus
            Console.WriteLine(methodName & " -   - Account Number: " & acctFormat.ToString())
            Return acctFormat
        ElseIf accountNumber.StartsWith("PHP") And accountNumber.Length = 16 Then
            acctFormat = AccountFormat.Internal
            Console.WriteLine(methodName & " -   - Account Number: " & acctFormat.ToString())
            Return acctFormat
        End If
​
        Dim isTemenosAcct As Boolean = IsTemenosAcctValid(accountNumber, validTemenosAcct)
​
        If Not isTemenosAcct Then
            acctFormat = AccountFormat.Unknown
            Console.WriteLine(methodName & " -   - Account Number: " & acctFormat.ToString())
            Return acctFormat
        End If
​
        If validTemenosAcct.StartsWith("2") Then
            acctFormat = AccountFormat.Peso
            Console.WriteLine(methodName & " -   - Account Number: " & acctFormat.ToString())
            Return acctFormat
        ElseIf validTemenosAcct.StartsWith("3") Then
            acctFormat = AccountFormat.Dollar
            Console.WriteLine(methodName & " -   - Account Number: " & acctFormat.ToString())
            Return acctFormat
        Else
            acctFormat = AccountFormat.Unknown
            Console.WriteLine(methodName & " -   - Account Number: " & acctFormat.ToString())
            Return acctFormat
        End If
    End Function
    
    ''' <summary>
    ''' Converts the input account number to a legacy SavePLUS account number format.
    ''' </summary>
    ''' <param name="accountNo"></param>
    ''' <param name="excludePrefix"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function ToLegacySavePlusAccount(ByVal accountNo As String, Optional ByVal excludePrefix As Boolean = False) As String
        ' Dim methodName As String = _appModule & " - ToLegacySavePlusAccount()"
​
        Dim acctToCheck As String = String.Empty
​
        If accountNo Is Nothing Then
            acctToCheck = String.Empty
        Else
            acctToCheck = accountNo.Trim()
        End If
​
        ' _lw.WriteLine(methodName & " - Converting input account number [" & acctToCheck & "] to legacy SavePLUS account number...")
​
        If acctToCheck = String.Empty Then
            ' _lw.WriteLine(methodName & " -   - Input account number is blank. Account Number [" & accountNo & "] is unknown!")
            Return String.Empty.PadLeft(14, "0")
        End If
​
        Dim acctLegacySavePlus As String = acctToCheck
​
        Dim acctSavePlusWithTypePrefix As New List(Of String)
        acctSavePlusWithTypePrefix.Add("00065")
        acctSavePlusWithTypePrefix.Add("10065")
        acctSavePlusWithTypePrefix.Add("20065")
​
        If acctLegacySavePlus.Length = 16 AndAlso acctSavePlusWithTypePrefix.Contains(acctLegacySavePlus.Substring(0, 5)) Then
            acctLegacySavePlus = acctLegacySavePlus.Substring(2)
        ElseIf acctLegacySavePlus.Length > 14 Then
            acctLegacySavePlus = acctLegacySavePlus.Substring(acctLegacySavePlus.Length - 14)
        ElseIf Not (acctLegacySavePlus.Length = 14 AndAlso acctLegacySavePlus.StartsWith("065")) Then
            acctLegacySavePlus = String.Concat("065", acctLegacySavePlus)
        End If
​
        If excludePrefix Then
            acctLegacySavePlus = acctLegacySavePlus.Substring(acctLegacySavePlus.Length - 11)
        End If
​
        Return acctLegacySavePlus
    End Function
    
    Private Function getAllowedBankTypeList() As List(Of String)
        Dim lst As New List(Of String)
        lst.Add("10")
        lst.Add("20")
        Return lst
    End Function
    
    Private Function checkName(ByVal Myname As String) As Boolean
​
        If Myname.Length > 0 Then
            Dim Data As Integer = 1
            Dim Data2 As String
            Dim DataSame As String = ""
​
            Do While Not Data > MyName.Length
                Data2 = Mid(Myname, Data, 1)
                Select Case Asc(Data2)
                    Case 48 To 57, 97 To 122, 65 To 90, 44 To 46, 39, 32
                        DataSame = Asc(Data2)
                        Data = Data + 1
                    Case Else
                        checkName = True
                        Exit Do
                End Select
                If Asc(Data2) = DataSame Then
                    checkName = False
                Else
                    checkName = True ' meaning error is found. invalid character in name
                    Exit Do
                End If
​
            Loop
        End If
    End Function
End Module

Введіть дробове число

Cached Result
Last Run:	8:12:42 am
Compile:	0.11s
Execute:	0s
Memory:	40kb
CPU:	0.016s

View IL Code