那就按17楼的方法做

 贴相关代码和截图出错提示看看

修改一下这句
 hEdit       = thisform.oleRTF.Hwnd

注意：仅在vfp支持的字符集下有效

FUNCTION mGetRTLine(RThwnd As long, LineNum As Long)
#defi GTL_NUMBYTES  16
#defi EM_LINEINDEX 0xBB
#defi EM_GETLINECOUNT 0xBA
#defi EM_LINELENGTH 0xC1
#defi WM_USER  0x400
#DEFINE EM_GETTEXTRANGE  (WM_USER + 75)
Declare INTEGER SendMessage in WIN32API as sendmessage_n INTEGER hwnd , INTEGER wMsg , INTEGER wParam , INTEGER lParam
DECLARE INTEGER SendMessage IN win32api as sendmessage_c INTEGER hWnd, INTEGER wParam, INTEGER lParam,string @
DECLARE INTEGER GlobalAlloc IN KERNEL32.DLL  INTEGER         uFlags,INTEGER         dwBytes
DECLARE INTEGER GlobalLock IN KERNEL32.DLL   INTEGER         hMem
DECLARE INTEGER GlobalUnlock IN KERNEL32.DLL  INTEGER         hMem
DECLARE INTEGER GlobalFree IN KERNEL32.DLL    INTEGER         hMem
If LineNum < 1
    RETURN ""
EndIf
LineCount = SendMessage_n(RThWnd, EM_GETLINECOUNT, 0, 0)
If LineNum > LineCount
    RETURN ""
EndIf
charFrom = SendMessage_n(RThWnd, EM_LINEINDEX, LineNum - 1,  0)
lc = SendMessage_n(RThWnd, EM_LINELENGTH, charFrom,  0)
If lc = 0
    RETURN ""
endif
charEnd = charFrom + lc
trAddress=GetMemPoint(0,2048)
IF trAddress=0
    RETURN ""
endif
tr=BINTOC(charFrom,"4rs")+BINTOC(charEnd,"4rs")+BINTOC(trAddress,"4rs")
j = SendMessage_c(RThWnd, EM_GETTEXTRANGE, 0, @TR)
If j = 0
    RETURN ""
ENDIF
getRTLine = left(SYS(2600,trAddress,2048),j)
DeleteMemPoint(trAddress)
RETURN getRTLine

FUNCTION GetMemPoint()
lPARAMETER uFlags,MemLen,PointAddress
LOCAL MemHandle,PAddress,MemSize
MemHandle = GlobalAlloc(m.uFlags,m.Memlen)
IF m.MemHandle = 0
    RETURN 0
ENDIF
PAddress = GlobalLock(m.MemHandle)
IF m.PAddress = 0
    =GlobalFree(m.PointAddress)
    RETURN 0
ENDIF
RETURN     (m.PAddress)
ENDFUNC

FUNCTION DeleteMemPoint()
LPARAMETER PointAddress
=GlobalUnlock(m.PointAddress)
=GlobalFree(m.PointAddress)
ENDFUNC

还是这个方法简单高效
DECLARE long SendMessageW   IN user32 as SendMessageW2   long,long,long,string@
DECLARE long SetWindowTextW IN user32 as SetWindowTextW2 long,string
#define EM_GETLINE    0x00C4
nBufferSize = 2048    && 要足够大
cBuffer     = BINTOC(nBufferSize,"4rs")+REPLICATE(0h00,nBufferSize+1)
hEdit       = thisform.hEdit1    &&编辑框句柄
nLineNo     = 9                  &&要取的行号（通常是从0行起）
nWordCount  = SendMessageW2(hEdit, EM_GETLINE, nLineNo, @cBuffer)
SetWindowTextW2(hEdit, cBuffer)   && 显示结果

[此贴子已经被作者于2025-9-2 08:40编辑过]

sun这个参数是什么？请教sych老师

这个是数组名，你要看帮助文档呀，里面很详细的

好像文本内容包含如ŋ之类的文字是无法正确获取的

[此贴子已经被作者于2025-9-2 14:50编辑过]

oform1=NEWOBJECT("form1")
oform1.Show
READ EVENTS
RETURN

DEFINE CLASS form1 AS form

    autocenter = .t.
    Height = 325
    Width = 705

    ADD OBJECT command1 AS commandbutton WITH ;
        Top = 12, ;
        Left = 12, ;
        Height = 27, ;
        Width = 120, ;
        Caption = "装入 文本文件", ;
        Name = "Command1"

    ADD OBJECT mstext AS olecontrol WITH ;
        Top = 50, ;
        Left = 12, ;
        Height = 232, ;
        Width = 684, ;
        oleclass = "Forms.TextBox.1", ;
        Name = "mstext"

    ADD OBJECT command2 AS commandbutton WITH ;
        Top = 12, ;
        Left = 144, ;
        Height = 27, ;
        Width = 120, ;
        Caption = "保存 utf-8 文本", ;
        Name = "Command2"

    PROCEDURE mstext.init
        WITH this
        .MultiLine = .t.
        .EnterkeyBehavior = .t.
        .wordwrap=.f.
        .scrollbars=3
        endwith
    ENDPROC

    PROCEDURE command1.Click
        Thisform.mstext.font.size = 20
        Sys(3101, 65001)
        aa=FileToStr(GetFile('txt'))
        Thisform.mstext.Text = IIF(left(aa,3)=0hefbbbf,SUBSTR(aa,4),IIF(LEFT(aa,2)=0hfffe,STRCONV(SUBSTR(aa,3),10),aa))
        Sys(3101, 0)
    ENDPROC

    PROCEDURE command2.Click
        Sys(3101, 65001)
        STRTOFILE(CHR(0xef)+CHR(0xbb)+CHR(0xbf)+Thisform.mstext.Text,"222.txt")
        Sys(3101, 0)
    ENDPROC

    PROCEDURE Destroy
        CLEAR EVENTS
    ENDPROC

ENDDEFINE

windows标准控件测试正常，NET控件未试过。