PB11发布的WebFORM应用中RichTextEdit控件的应用修补方法

string ls_xhtml
string ls_rteobj = 'rte_1'
string ls_dwobj = 'dw_active_rtf'
string ls_opcommand

ls_opcommand = ls_rteobj + '/' + ls_dwobj + '//' + 'GETHTML'
dw_active_rtf.setitem(1,'xhtml',ls_opcommand)

dw_active_rtf.setfocus()
ls_xhtml = dw_active_rtf.getitemstring(1,'xhtml')

string ls_xhtml
ls_xhtml = dw_active_rtf.getitemstring(1,'xhtml')
messagebox ('这是取到的RTF控件中的DHTML代码', ls_xhtml)

function fun_activertf ( sender )
{
    if(event.propertyName!='bIsInit') return; //这句话好关键啊，研究了好几天才发现
    shtml = sender.value; // 其中包含了RichEdit控件名和HTML代码，形如：rte_name/dw_name//HTML.....
    //从中分离控件名和HTML代码部分
    ps1 = shtml.indexOf('/');
    ps2 = shtml.indexOf('//');
    rtf_name = shtml.substring(0,ps1);
    dw_name = shtml.substring(ps1+1,ps2);
    shtml = shtml.substring(ps2+2,shtml.length);
    instance_input_name = RTF_GetRTFAreaName(rtf_name); //PB对RichEdit会自动产生，形如：inputWW_C_1_rte_1
    instance_editor_name = instance_input_name.substring(5,instance_input_name.length)+"editor";

    if(shtml=='GETHTML' && instance_input_name!='') //表示是取RichEdit控件的内容
    {
        //shtml = unescape ( document.getElementsByName(instancename)[0].value );
        shtml = document.getElementById(instance_editor_name).innerHTML
        var objdw = eval('obj'+dw_name); // 得到dw对象目标
        objdw.SetItem(1,'xhtml',shtml);
        objdw.AcceptText();
        return 1;
    }
    if (rtf_name!='')
    {
        if(instance_input_name!='' && instance_editor_name!='')
        {
            document.getElementById(instance_editor_name).innerHTML = shtml;
            document.getElementsByName(instance_input_name)[0].value = escape(shtml);
        }
    }
}

function RTF_GetRTFAreaName ( rtf_areaname )
{
    //------由于PB对RichEdit控件在其HTML中生成的ID号的前缀是动态的，
    //------所以需要知道现在网页内的这个对象的ID号实际是什么，以下程序就是查找它。
    var allRTFs = document.getElementsByTagName("input"); //PB生成一个隐含的INPUT域存放RichEdit控件的内容
    var itag = 0;
    for (var i=0; i<allRTFs.length; i++) {
     ortf = allRTFs[i];
     oname = ortf.name;
     /* 隐含域的名称以'input'开头,加W是为了与生成的另一个以inputrtf开头的域区别
     形如： <input name="inputWW_1_C_rte_1" type="hidden" value="" />
                      <input name="inputrtfWW_1_C_rte_1" type="hidden" value="" />
     */
     ps1 = oname.lastIndexOf('inputW');
     ps2 = oname.lastIndexOf(rtf_areaname);
     if ( ps1==0 && ps2>0)
     {
        instancename = ortf.name ;
        itag = 1;
        break;
     }
    }
    if(itag==0)
    {
        //alert('必须在PB窗口上放置一个名为'+rtf_areaname+'的RichEdit控件');
        return '';
    }
    else
    {
        return instancename;
    }
}