''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' EV script 006 - Import, rename and overwrite a line ' Example Echoview COM script downloaded from www.echoview.com ' For support, contact the Echoview support team '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Strict syntax checking Option Explicit 'Set up Echoview and an EV file Dim vEvApp: Set vEvApp = CreateObject("EchoviewCom.EvApplication") Dim vEvFile: Set vEvFile = vEvApp.OpenFile("\\lungfish\Briony\Briony's test files\jian.EV") 'Import a line vEvFile.Import("\\lungfish\Briony\Briony's test files\Test imports\bottom line.evl") 'Identify the last variable in the EV file (which is the line just imported) Dim vEvVariablesCollection: Set vEvVariablesCollection = vEvFile.Variables Dim iVariableCount: iVariableCount = vEvVariablesCollection.Count Dim vEvVariable: Set vEvVariable = vEvVariablesCollection(iVariableCount - 1) 'Optional: Report the name of the last variable (line) imported, then rename, then comfirm. MsgBox vEvVariable.Name vEvVariable.ShortName = "NewLineName" MsgBox vEvVariable.Name 'Optional: Overwrite an existing line Dim vEvLinesCollection: Set vEvLinesCollection = vEvFile.Lines Dim vEvLine: Set vEvLine = vEvLinesCollection.FindByName("NewLineName") Dim vEvLineEdit: Set vEvLineEdit = vEvLine.AsLineEditable Dim vEvLineToReplace: Set vEvLineToReplace = vEvLinesCollection.FindByName("Line1") vEvLineEdit.OverwriteWith (vEvLineToReplace) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''