Replacing Text in an Edit Control

While testing edit controls, you can use specific properties and methods of the corresponding program object to perform certain actions and obtain data stored in controls. You can call these methods and properties from your keyword tests, as well as from scripts. This topic describes how to work with the needed properties and methods from your scripts. However, when testing a control from your keyword test, you can use the same methods and properties calling them from keyword test operations. For more information, see Keyword Tests Basic Operations.

When you work with an edit control, you may need to replace part of the text with other text. To perform this operation you must select the part of the text to be replaced (see Selecting Text Within an Edit Control) and then replace it by any of the following methods:

• Typing new text. For more information about entering text, see the Entering Text into an Edit Control topic. The sample code example below illustrates how to replace text by entering new text:

  JavaScript, JScript

  Python

  VBScript

  DelphiScript

  C++Script, C#Script

  JavaScript, JScript

  function Main()
  {
    // Run Notepad
    WshShell.Run("notepad.exe", SW_SHOWNORMAL);
  
    // Obtain the edit object and fill it with text
    var p = Sys.Process("NOTEPAD");
    var Edit = p.Window("Notepad").Window("Edit");
    Edit.Keys("A smile without a cat");
  
    // Select a portion of text and replace it
    Edit.Keys("[Home][Right][Right]![Right]![Right]![Right]![Right]![Right]");
    Edit.Keys("grin");
  }

  Python

  def Main():
    # Run Notepad 
    WshShell.Run("notepad.exe", SW_SHOWNORMAL)
  
    # Obtain the edit object and fill it with text
    p = Sys.Process("NOTEPAD")
    Edit = p.Window("Notepad").Window("Edit")
    Edit.Keys("A smile without a cat")
  
    # Select a portion of text and replace it
    Edit.Keys("[Home][Right][Right]![Right]![Right]![Right]![Right]![Right]")
    Edit.Keys("grin")

  VBScript

  Sub Main
    Dim p, Edit
    ' Run Notepad
    Call WshShell.Run("notepad.exe", SW_SHOWNORMAL)
  
    ' Obtain the edit object and fill it with text
    Set p = Sys.Process("NOTEPAD")
    Set Edit = p.Window("Notepad").Window("Edit")
    Edit.Keys "A smile without a cat"
  
    ' Select a portion of text and replace it
    Edit.Keys "[Home][Right][Right]![Right]![Right]![Right]![Right]![Right]"
    Edit.Keys "grin"
  End Sub

  DelphiScript

  procedure Main;
  var p, Edit;
  begin
    // Run Notepad
    WshShell.Run('notepad.exe', SW_SHOWNORMAL);
  
    // Obtain the edit object and fill it with text
    p := Sys.Process('NOTEPAD');
    Edit := p.Window('Notepad').Window('Edit');
    Edit.Keys('A smile without a cat');
  
    // Select a portion of text and replace it
    Edit.Keys('[Home][Right][Right]![Right]![Right]![Right]![Right]![Right]');
    Edit.Keys('grin');
  end;

  C++Script, C#Script

  function Main()
  {
    // Run Notepad
    WshShell["Run"]("notepad.exe", SW_SHOWNORMAL);
  
    // Obtain the edit object and fill it with text
    var p = Sys["Process"]("NOTEPAD");
    var Edit = p["Window"]("Notepad").Window("Edit");
    Edit["Keys"]("A smile without a cat");
  
    // Select a portion of text and replace it
    Edit["Keys"]("[Home][Right][Right]![Right]![Right]![Right]![Right]![Right]");
    Edit["Keys"]("grin");
  }

• Pasting new text from the clipboard. The approaches used to paste text are described in the Copying and Pasting Text in an Edit Control topic. The sample code example below illustrates how to replace text via pasting:

  JavaScript, JScript

  Python

  VBScript

  DelphiScript

  C++Script, C#Script

  JavaScript, JScript

  function Main()
  {
    // Run Notepad
    WshShell.Run("notepad.exe", SW_SHOWNORMAL);
  
    // Obtain the edit object and fill it with text
    var p = Sys.Process("NOTEPAD");
    var Edit = p.Window("Notepad").Window("Edit");
    Edit.Keys("A smile without a cat");
    Sys.Clipboard = "grin";
  
    // Select a portion of the text and replace it
    Edit.Keys("[Home][Right][Right]![Right]![Right]![Right]![Right]![Right]");
    Edit.Keys("^v");
  }

  Python

  def Main():
    # Run Notepad 
    WshShell.Run("notepad.exe", SW_SHOWNORMAL)
  
    # Obtain the edit object and fill it with text
    p = Sys.Process("NOTEPAD")
    Edit = p.Window("Notepad").Window("Edit")
    Edit.Keys("A smile without a cat")
    Sys.Clipboard = "grin"
  
    # Select a portion of the text and replace it
    Edit.Keys("[Home][Right][Right]![Right]![Right]![Right]![Right]![Right]")
    Edit.Keys("^v")

  VBScript

  Sub Main
    Dim p, Edit
    ' Run Notepad
    Call WshShell.Run("notepad.exe", SW_SHOWNORMAL)
  
    ' Obtain the edit object and fill it with text
    Set p = Sys.Process("NOTEPAD")
    Set Edit = p.Window("Notepad").Window("Edit")
    Edit.Keys "A smile without a cat"
    Sys.Clipboard = "grin"
  
    ' Select a portion of the text and replace it
    Edit.Keys "[Home][Right][Right]![Right]![Right]![Right]![Right]![Right]"
    Edit.Keys "^v"
  End Sub

  DelphiScript

  procedure Main;
  var p, Edit;
  begin
    // Run Notepad
    WshShell.Run('notepad.exe', SW_SHOWNORMAL);
  
    // Obtain the edit object and fill it with text
    p := Sys.Process('NOTEPAD');
    Edit := p.Window('Notepad').Window('Edit');
    Edit.Keys('A smile without a cat');
    Sys.Clipboard := 'grin';
  
    // Select a portion of the text and replace it
    Edit.Keys('[Home][Right][Right]![Right]![Right]![Right]![Right]![Right]');
    Edit.Keys('^v');
  end;

  C++Script, C#Script

  function Main()
  {
    // Run Notepad
    WshShell["Run"]("notepad.exe", SW_SHOWNORMAL);
  
    // Obtain the edit object and fill it with text
    var p = Sys["Process"]("NOTEPAD");
    var Edit = p["Window"]("Notepad")["Window"]("Edit");
    Edit["Keys"]("A smile without a cat");
    Sys["Clipboard"] = "grin";
  
    // Select a portion of the text and replace it
    Edit["Keys"]("[Home][Right][Right]![Right]![Right]![Right]![Right]![Right]");
    Edit["Keys"]("^v");
  }

To replace the entire text in the control with new text, simply use the SetText action or the wText property to specify new text, like in the example below. Note that in this case, the insertion point is automatically moved to the beginning of the control’s text.

def Main():
  # Run Notepad 
  WshShell.Run("notepad.exe", SW_SHOWNORMAL)

  # Obtain the edit object
  p = Sys.Process("NOTEPAD")
  Edit = p.Window("Notepad").Window("Edit")
  Edit.SetText("Why?")
  Delay(1000)

  # Replace all of the text within Edit control
  Edit.SetText("Why not?")