Foxtable(狐表)用户栏目专家坐堂 → [免费开源]狐表cs集成富文本框KindEditor 完整解决方案,在前人基础上做整合,支持word直接粘贴(追加导入Word功能)、截图直接粘贴、绑定狐表列同步更新、只读控制、纯文本提取、打印


  共有23511人关注过本帖树形打印复制链接

主题:[免费开源]狐表cs集成富文本框KindEditor 完整解决方案,在前人基础上做整合,支持word直接粘贴(追加导入Word功能)、截图直接粘贴、绑定狐表列同步更新、只读控制、纯文本提取、打印

帅哥哟,离线,有人找我吗?
chen37280600
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1264 积分:7827 威望:0 精华:4 注册:2017/12/31 14:53:00
[免费开源]狐表cs集成富文本框KindEditor 完整解决方案,在前人基础上做整合,支持word直接粘贴(追加导入Word功能)、截图直接粘贴、绑定狐表列同步更新、只读控制、纯文本提取、打印  发帖心情 Post By:2022/2/17 21:12:00 [只看该作者]

(快速浏览杰哥分享过的所有经验汇总,点击跳转


狐表cs集成富文本框KindEditor 完整解决方案,在前人基础上做整理和更新,支持word直接粘贴(追加导入Word功能)、截图直接粘贴、只读控制、绑定狐表列同步更新、纯文本提取、打印

1效果


此主题相关图片如下:1.png
按此在新窗口浏览图片


2KindEditor说明
2.1集成说明
基于之前版主等前人的帖子,重新整理代码,增加一些狐表特色功能:
1. 只读控制
2. 从html提取纯本文
3. 模仿狐表字段绑定功能,自动更新
4. 更新KindEditor到最新版本,修复了很多bug
5. 增加600毫秒的js防抖,连续填写字符时,延迟0.6秒才一次过回写狐表。防止每输入一个字符就触发一次内容回写狐表,严重消耗cpu性能

虽然它是bs领域的富文本框,但是巧妙利用System.Runtime.InteropServices+WebBrowser,使之不需要使用Http服务,普通开发版即可使用。
目前在win10、win7测试通过,都是原生系统,没升级过IE内核

我还试过.net自带的RichTextBox富文本框,但是发现有些问题,拷贝2m以上的图文进去,基本卡死崩溃了,然后也没有常用的字体、段落、颜色设置,感觉不太好用

感谢前人的经验分享:

2.2官方简介
官方参数文档:http://kindeditor.net/docs/option.html

简介:KindEditor 是一套开源的在线HTML编辑器,主要用于让用户在网站上获得所见即所得编辑效果,开发人员可以用 KindEditor 把传统的多行文本输入框(textarea)替换为可视化的富文本输入框。 KindEditor 使用 JavaScript 编写,可以无缝地与 Java、.NET、PHP、ASP 等程序集成,比较适合在 CMS、商城、论坛、博客、Wiki、电子邮件等互联网应用上使用。

主要特点
1. 快速:体积小,加载速度快
2. 开源:开放源代码,高水平,高品质
3. 底层:内置自定义 DOM 类库,精确操作 DOM
4. 扩展:基于插件的设计,所有功能都是插件,可根据需求增减功能
5. 风格:修改编辑器风格非常容易,只需修改一个 CSS 文件
6. 兼容:支持大部分主流浏览器,比如 IE、Firefox、Safari、Chrome、Opera

2.3本次使用版本
ver 4.1.11 (2016-03-31),已经目前在官网找到的最新版本了,应该不会有后续更新,所有bug都修完了

3使用方法
3.1全局代码

此主题相关图片如下:1.png
按此在新窗口浏览图片


以下内容只有回复后才可以浏览

3.2初始化富文本框
自行添加好WebBrowser控件

'从注册表升级WebBrowser内核为IE11,HKEY_CURRENT_USER的注册表修改不需要管理员权限.
'Foxtable安装时自动提升过,但是编译后的程序,依然默认使用IE6内核,需要手动升,否则会出现截图无法直接粘贴
Try
    Registry.SetValue("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION",System.Diagnostics.Process.GetCurrentProcess.ProcessName & ".exe",11001)
Catch ex As Exception
    MessageBox.Show("狐表调用IE11内核失败,会导致富文本框无法粘贴图片" & vbcrlf & "Error:" & ex.Message )
End Try
Dim wb = e.Form.Controls("webBrowser1").BaseControl
wb.Url = new System.Uri(ProjectPath & "KindEditor\e.html", System.UriKind.Absolute)
Dim ke As new KindEditor '必须创建一个新实例
wb.ObjectForScripting =ke


此主题相关图片如下:2.png
按此在新窗口浏览图片


3.3把html写入富文本框

Dim wb = e.Form.Controls("WebBrowser1").BaseControl
Dim ke = wb.ObjectForScripting 

Dim r As Row = Tables("表A").Current
If r IsNot Nothing Then
    '把内容写入富文本框里
    ke.FullHtml = r("完整html内容")
    wb.refresh '刷新
End If


此主题相关图片如下:3.png
按此在新窗口浏览图片


3.4从富文本框读取Html

Dim wb = e.Form.Controls("WebBrowser1").BaseControl
Dim ke = wb.ObjectForScripting 

MessageBox.show(ke.FullHtml)


此主题相关图片如下:1.png
按此在新窗口浏览图片



3.5从富文本框读取纯文本

Dim wb = e.Form.Controls("WebBrowser1").BaseControl
Dim ke = wb.ObjectForScripting 

MessageBox.show(ke.FullHtml)

在全局代码,利用正则和截取,过滤好了空格、换行符、base64图片。这个纯文本,其实是为了方便存入数据库搜索。
如果直接把html内容存入数据库,尤其有图片的时候,容量超大,动不动就好几m,很快数据库就会膨胀,导致性能严重性下降


此主题相关图片如下:2.png
按此在新窗口浏览图片


3.6设置只读/取消只读

Dim wb As Object = e.Form.Controls("webBrowser1").BaseControl
Dim ke = wb.ObjectForScripting
ke.IsReadOnly =True

wb.refresh


此主题相关图片如下:3.png
按此在新窗口浏览图片

3.7从Word文档读取到富文本框

Dim dlg As New OpenFileDialog
dlg.Filter = "Word文件|*.doc;*.docx"

If dlg.ShowDialog =DialogResult.OK Then
    Dim fl As String = dlg.FileName
    Dim app As New MSWord.Application
    Try
        Dim wb = e.Form.Controls("WebBrowser1").BaseControl
        wb.Url = new System.Uri(ProjectPath & "KindEditor\e.html", System.UriKind.Absolute)
        Dim ke As new KindEditor '必须创建一个新实例
        wb.ObjectForScripting =ke
        Application.DoEvents

        '1打开word并复制全文
        Dim doc = app.Documents.Open(fl)
        app.Selection.WholeStory()
        app.Selection.Copy()
        '2富文本框触发粘贴js
        wb.Document.InvokeScript("eval", New String() {"editor.clickToolbar('paste');"})
        '3关闭doc
        doc.Close '必须关闭,否则word会一直在后台被占用        

    Catch ex As exception
        MessageBox.Show(ex.message)
    Finally
        ClipBoard.Clear '清空剪切板  
        app.Quit
    End Try    
End If


此主题相关图片如下:3.png
按此在新窗口浏览图片


3.8富文本框的html与狐表字段绑定(不建议用)
感觉有点bug,不推荐用,还是老老实实自己控制读写好
Dim wb = e.Form.Controls("webBrowser1").BaseControl
Dim ke = wb.ObjectForScripting 

Dim r As Row = Tables("表A").Current
If r IsNot Nothing Then
    '绑定某个字段,当富文本框变化时,自动变化
    ke.FullHtmlBindingField = "表A.完整html内容"  
    ke.InnerHtmlBindingField = "表A.纯文本内容"  
    wb.refresh '刷新
End If



此主题相关图片如下:1.png
按此在新窗口浏览图片


4注意的坑
4.1必须关闭备注列的自动记录框

此主题相关图片如下:2.png
按此在新窗口浏览图片


4.2强烈建议把Html和纯文本分开存储

此主题相关图片如下:3.png
按此在新窗口浏览图片

1. 强烈建议大家把html的内容,直接缓存成本地html文件,然后用的时候直接读取。多人使用时,也可以放在服务器,通过ftp或者http同步下载处理。反正硬盘读写文件的速度,远远高于数据库读写的速度!!!
2. 注意狐表内置的数据库或者Access数据库,最大支持2GB,如果你把html存数据库,也不是不行,小心容量。Sql数据库就没上限,只有读写性能瓶颈
3. 纯文本内容才存入数据库方便like搜索
4. 如果你确定只是轻量图文资料,基本都在1m内,存数据库也不是不行,没必要给自己增加麻烦

4.3超过30m文件的读取要用流方法

如果按照上面的方法,把html存在本地,基本都是用FileSys.ReadAllTextFileSys.WriteAllText

写入的WriteAllText是没有性能和容量的问题,
读取的ReadAllText,根据版主分享,狐表的最大支持约30m,超过会内存不足,必须换StreamReader流方式读取,这种无限容量
(原帖链接:[分享]大数据文本读取操作 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=91737&skin=0


Dim sr = New System.IO.StreamReader(ProjectPath & "我的记事本.txt") '直接从文件路径生成'
Dim bigStr As String = sr.ReadToEnd() '读取所有内容
sr.Close '必须释放资源

Output.Show(bigStr)

不过一般也不建议写大量的内容,平时写100m的word文档,也基本只有上百万的标书才会有。

4.4编译后无法粘贴图片

开发过程中,富文本框粘贴图片功能正常,但是发布后发现粘贴不了。那是因为WebBrowser内核版本过低,默认IE6导致的。
狐表程序安装的时候,改过注册表,把foxtable.exe进程的,都启动为IE11内核,但是我们编译后的程序,就不是叫foxtable.exe,于是就默认回IE6内核,导致粘贴功能失效了
所以可以在软件打开时,修改注册表提升好WebBrowser为IE11内核。修改一次后,以后都有效了

'从注册表升级WebBrowser内核为IE11,HKEY_CURRENT_USER的注册表修改不需要管理员权限.
'Foxtable安装时自动提升过,但是编译后的程序,依然默认使用IE6内核,需要手动升,否则会出现截图无法直接粘贴
Try
    Registry.SetValue("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION",System.Diagnostics.Process.GetCurrentProcess.ProcessName & ".exe",11001)
Catch ex As Exception
    MessageBox.Show("狐表调用IE11内核失败,会导致富文本框无法粘贴图片" & vbcrlf & "Error:" & ex.Message )
End Try


5完整案例下载
需要20210529后的普通开发版打开。没这个版本也问题不大,下载后把KindEditor文件夹拷贝出来,按照我上面的代码写就行了

以下内容只有回复后才可以浏览


=====================================================================
杰哥免费分享的web系统





===============================================================
顺便总结以前分享过的帖子,方便大家学习

联系QQ:2385350359


经验分享:






















[此贴子已经被作者于2023/1/28 21:23:48编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
zsxx999ja
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:206 积分:2187 威望:0 精华:0 注册:2020/10/3 6:58:00
  发帖心情 Post By:2022/2/17 21:25:00 [只看该作者]

学习

 回到顶部
帅哥哟,离线,有人找我吗?
wei0769
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1814 积分:19186 威望:0 精华:0 注册:2013/4/10 14:38:00
  发帖心情 Post By:2022/2/17 21:55:00 [只看该作者]

顶下再看

 回到顶部
帅哥哟,离线,有人找我吗?
miaoqingqing
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
  发帖心情 Post By:2022/2/17 21:57:00 [只看该作者]

学习

 回到顶部
帅哥哟,离线,有人找我吗?
aix
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:208 积分:6110 威望:0 精华:0 注册:2012/4/29 13:09:00
  发帖心情 Post By:2022/2/17 22:05:00 [只看该作者]

 学习

 回到顶部
帅哥哟,离线,有人找我吗?
Hopenight
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:847 积分:10700 威望:0 精华:0 注册:2016/5/6 14:34:00
  发帖心情 Post By:2022/2/18 0:25:00 [只看该作者]

学习一下

 回到顶部
帅哥哟,离线,有人找我吗?
laipiwen
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:375 积分:2794 威望:0 精华:0 注册:2015/4/29 11:50:00
  发帖心情 Post By:2022/2/18 8:08:00 [只看该作者]

谢谢分享

 回到顶部
帅哥哟,离线,有人找我吗?
ajie5211
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:812 积分:5570 威望:0 精华:0 注册:2015/11/28 14:00:00
  发帖心情 Post By:2022/2/18 8:08:00 [只看该作者]

谢谢提供,一直想更新这个的,就是不会整,有你的例子了,就方便多了。

 回到顶部
帅哥哟,离线,有人找我吗?
yangheqing
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:207 积分:3312 威望:0 精华:0 注册:2016/11/17 18:28:00
  发帖心情 Post By:2022/2/18 8:47:00 [只看该作者]

 学习一下,谢谢分享。

 回到顶部
帅哥哟,离线,有人找我吗?
WELOVEFOX
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:462 积分:3332 威望:0 精华:0 注册:2016/12/21 22:58:00
  发帖心情 Post By:2022/2/18 8:51:00 [只看该作者]

谢谢分享

 回到顶部
总数 86 1 2 3 4 5 6 7 8 9 下一页