Форум программистов [Powered by Invision Power Board]

Код

lenTR=function(oTR,oTa){var ltr; //длина объекта TextRange oTR в области Textarea oTa (IE only)
//Правильно обрабатывает 2 особенности (бага) работы IE
//  - с последними переносами строк в выделении текста и 
//  с выделением последних переносов в конце области textarea
  var tR=document.body.createTextRange();  tR.moveToElementText(oTa);
  var tR1=tR.duplicate();  tR1.setEndPoint('StartToEnd',oTR);
  var tR2=tR.duplicate();  tR2.setEndPoint('StartToStart',oTR);
  var lenSel=tR2.text.length-tR1.text.length;
  if(tR1.text.length>0||oTa.value.length<=tR.text.length)return lenSel;
  else{
    var lenCorr=0;
    var lenCorr2=0;
    var tR3=oTR.duplicate();
    var i,i0;  i=i0=tR3.text.length;
    while(i>=i0&&tR1.text.length==0){
      if(i==0){tR3.moveStart('character',-1);lenCorr--;lenCorr2=1;}
      tR3.moveEnd('character',-1);
      i=tR3.text.length;
      tR1.setEndPoint('StartToEnd',tR3);
      lenCorr++; //чис. переносов строки в конце textarea
  };return lenSel+(lenCorr+lenCorr2-1)*2;}
}

TextAreaSelectionHelper=function(){;} //"класс" приспособлен для демонстрации, поэтому он пустой

TextAreaSelectionHelper.prototype.move4p=function(i){
//====Вставка/удаление 4 пробелов в начале каждой строки выделенной области поля ввода====
//Текст поля ввода разделяется на 3 области:
//1) от начала поля ввода до символа после переноса строки на строке,
//  где начинается выделение или стоит курсор (помещается в строку "а");
//2) выделение (строка "b");
//3) после выделения (строка "с").
//Но при этом концом выделения считается:
//  a) если выделение захватило последний перенос строки,
//    он не включается в выделение;
//  б) если при удалении пробелов (сдвиг текста влево) конец выделения
//    или курсор находится среди начальных пробелов строки, он устанавливается
//    в такое место, чтобы после удаления оказался в начале строки (начальных
//    пробелов может быть сколько угодно, но удаляются до 4 
//    (до 1-го непробельного символа или 4)).
//Далее, в области "b" добавляется по 4 пробела в начале её и после каждого
//  переноса строки или удаляется до 4 пробелов в начале и после каждого переноса строки.
//Используется функция lenTR(oTR,oTa), корректно определяющая длину области TextRange в textarea.
  var d=document;
  var isIE=d.all&&!self.opera;
  if(isIE)this.iesel=d.selection.createRange(); // ***строка для отладки, в рабочем коде находится в другом месте***
  if(isIE&&this.iesel&&this.iesel.parentElement()==this.target    ||this.target.selectionStart>=0&&this.target.selectionEnd>=this.target.selectionStart){
    var RN=(d.all?'\r':'')+'\n';
    if(isIE){var tR1=this.iesel.duplicate();
      tR1.moveToElementText(this.target);
    tR1.setEndPoint('EndToStart',this.iesel);}
    this.ieStart=isIE?lenTR(tR1,this.target):this.target.selectionStart;
    this.ieEnd=isIE?this.ieStart+lenTR(this.iesel,this.target):this.target.selectionEnd;
  var ttv=this.target.value;
    var posLastStr=ttv.substr(0,this.ieStart).lastIndexOf(RN); //алгоритмическая часть
    if(posLastStr<0)posLastStr++;else posLastStr+=RN.length;
    var wasEndRn=0; //был ли конец выделения в конце строки
    if(ttv.charAt(this.ieEnd-RN.length)==RN.charAt(0)&&this.ieStart<this.ieEnd){this.ieEnd-=RN.length;wasEndRn=1;}
    var j=this.ieEnd; //Для удаления пробелов в последней строке - поиск группы, которая будет удалена
    var k=0;
    while(i==0&&ttv.charAt(j)==' '){
      j--;
      if(j==-1||ttv.charAt(j)=='\n'){
        for(k=1;k<=4;k++)if(ttv.charAt(j+k)!=' ')break;
        j+=k;
        break;
    }};if(k>0)this.ieEnd=j;
    var a=ttv.substring(0,posLastStr);
    var b=ttv.substring(posLastStr,this.ieEnd);
    var c=ttv.substr(this.ieEnd);
    var a1,s2,a2;
    var RNg=new RegExp(RN,'g');
    var nRn1=(a1=ttv.substring(0,this.ieStart).match(RNg))?a1.length:0; //для коррекции длины символов переносов в IE
    var nRn2=(a1=b.match(RNg))?a1.length:0;
    var nnp=b.match(/^ {0,4}/)[0].length; //число начальных пробелов
    this.target.value=a+(s2=(i?"    "+b.replace(RNg,RN+"    ")
        :b.replace(new RegExp(RN+'( {1,4}|\t)','g'),RN).replace(/^ {1,4}/,"")))+c;
    a1=this.ieStart+(i?(ttv.substring(posLastStr,this.ieStart+1).replace(/ /g,"")!=""?4:0)
      :-Math.min(Math.max(this.ieStart-posLastStr,0),nnp));
    a2=this.ieEnd+(i?4*nRn2+4:-(b.length-s2.length))+wasEndRn;
    if(isIE){ //установка нового выделения. Сохранить прежнее не представляется возможным по причине багов
      //  в некоторых случаях, а для установки нового нужна небольшая символическая задержка.
      setTimeout("var t=document.getElementById('Post_area').createTextRange();t.collapse();t.moveEnd('character',"
      +(a2-nRn1-nRn2)+");t.moveStart('character',"+(a1-nRn1)+");t.select();",1);
    }else{  this.start=this.target.selectionStart=a1;
      if(this.ieStart==this.ieEnd&&i==0&&self.opera){ //обход бага Оперы с установкой курсора
        var t=document.selection.createRange();t.collapse();t.select();}
      else this.end=this.target.selectionEnd=a2;   
    }
}
if(!isIE){
if(this.scroll&&this.scroll>=0)this.target.scrollTop=this.scroll;
this.target.focus();}
}