EDI.MAIS

Pessoal, não sou programador mas preciso de uma ajuda urgente: Tenho que criar uma Lógica em VBscript no AS00 que consiga analisar o problema abaixo: 1º Reconhecer a "/" que separa o SOBRENOME do NOME 2º Comparar o 1º SOBRENOME com o 2º SOBRENOME, analisando os 7 últimos digitos. No exemplo abaixo VILLELA=VILLELA 3º Comparar o 1º NOME com o 2º NOME, analisando os 7 últimos digitos. No exemplo abaixo ANDRE=ANDRE 4º Se os itens 2º e 3º acima forem Verdadeiros, inserir "Y" no campo "3. Same Person": SOBRENOME NOME 1.POMPEO DE CAMARGO VILLELA/ANDRE 3.Same Person N/Y 2.POMPEO DE CAMARGO VILLELA/ANDRE ....................1234567/1234567 [PCOMM SCRIPT HEADER] LANGUAGE=VBSCRIPT DESCRIPTION=alteração ou inserção de cartão de crédito [PCOMM SCRIPT SOURCE] OPTION EXPLICIT autECLSession.SetConnectionByName(ThisSessionName) REM This line calls the macro subroutine subSub1_ sub subSub1_() Dim sTextoLinha,NumXE,CTInvalido,ProcCartao,ApagaNumCT Dim iNum For iNum = 1 to 23 sTextoLinha = trim(autECLSession.autECLPS.GetText(inum,1,80)) if sTextoLinha = "/" Then autECLSession.autECLPS.SendKeys "md" autECLSession.autECLPS.SendKeys "[enter]" autECLSession.autECLPS.Wait(1500) autECLSession.autECLOIA.WaitForAppAvailable iNum = 1 elseif sTextoLinha = ">" Then exit for end if autECLSession.autECLOIA.WaitForAppAvailable autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[PF4]" autECLSession.autECLOIA.WaitForAppAvailable autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[RESET]" autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[PF19]" autECLSession.autECLOIA.WaitForAppAvailable autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "[ENTER]" autECLSession.autECLOIA.WaitForAppAvailable autECLSession.autECLOIA.Wai