vfp好像只能用richedit的1.0版本（riched32.dll），对UTF-8不好整。
2.0/3.0（riched20.dll）、4.0（ msftedit.dll），vfp好像用不了？
MS有提到动态创建方法和VS开发平台控件

这样正常
        sys(3101,65001)
        this.edit.SelText = STRCONV("abc字字123",9)
        sys(3101,0)
试试下面的，好像不行？
        STRTOFILE(0hC58B,"utf8.txt")
        sys(3101,65001)
        this.edit.SelText = FILETOSTR("utf8.txt")
        sys(3101,0)
或者：
        sys(3101,65001)
        this.edit.SelText = 0hC58B  &&或者 ""+0hC58B
        sys(3101,0)

不知道这个是哪个版本

richtx32.ocx
2003的产品

UTF-8的编码有多种，这个richtx32.ocx可能不兼容一些UTF-8的编码。

这就是我以前的帖子说到的richtext的局限性，可以在richtext里复制、粘贴、但不能在控件外处理UNICODE字符
STRTOFILE(0hC58B,"utf8.txt")
sys(3101,65001)
this.edit.SelText = FILETOSTR("utf8.txt")
sys(3101,0)
改为下面的代码，只能用loadfile方法处理
STRTOFILE(0hc58b,"utf8.txt")
sys(3101,65001)
this.edit.loadFile("utf8.txt",1)
sys(3101,0)

这样也可以了，有点像从文件流输入。
但我这测试文件要带“BOM”才正常。STRTOFILE(0hC58B,"utf8.txt")不正常，STRTOFILE(0hC58B,"utf8.txt",4)正常。

STRTOFILE(0hC58B,"utf8.txt")
sys(3101,65001)
这两句顺序颠倒一下就可以了，这样就不需要写文件头了(不知道是不是这样，我这边不存在顺序和文件头的问题）

另外如果用字符串，可以用消息传递
Declare INTEGER SendMessage in WIN32API as sendmessage_c2 INTEGER hwnd , INTEGER wMsg , INTEGER wParam , string lParam
#defi EM_REPLACESEL 0xC2
SendMessage_c2(this.edit.hwnd, EM_REPLACESEL, 1, 0hefbbbf+0hc58b)  &&这里要带上标记

[此贴子已经被作者于2025-9-6 11:20编辑过]

我这测试带“BOM”可不用sys(3101,65001)，不带“BOM”用sys(3101,65001)也不正常。
这个richtext是不是有点老了

只是随手测试，没有刻意保存、记录，现在还原不了啦。
应该是我代码的问题，可能搞着搞着就给搞乱了！太乱了，代码就不贴了。
之前以为0hA1A1无法正确计算行数，今天一查，可能是行距的问题。
吹版提醒过的：Richtextbox1.text = "xxx"，会冲掉之前的一切设置，结果我不小心给忽略了，弄得乱七八糟。
修正一下：填充0hA1A1跟0hFEFE，效果是一样的。个人推荐用前者，因绝无风险！
至于行数统计，不知是否错觉，当拉大拉小表单，Anchor=15，导致Richtextbox1控件高度改变，半行有可能也会被计入行数。