Add string to line start

[Back]

Asks for a string to slide-in first on each line in the selection.

# Add string to line start
slideInString=string_dialog("Add string to line start:","OK","Dismiss")
if ($string_dialog_button==1 && $selection_start!=-1) {
  selstr=get_selection()
  p=0
  while(1) {
    p=search_string(selstr,"^",p,"regex","forward")
    if (p==-1 || p==length(selstr))
      break
    selstr=replace_substring(selstr,p,p,slideInString)
    p++
  }
  replace_selection(selstr)
}

Released on  Wed, 21 Nov 2001  by C. Denat