ALINES( ) 不受 SET MEMOWIDTH设定值的影响

试试：
总行数 消息 EM_GETLINECOUNT   0x00BA
取一行 消息 EM_GETLINE    0x00C4
    注意：
    1、在存放数据缓冲区(cBuffer)的首字节写入缓冲区最大的字符数值（nBufferSize）
    2、执行 SendMessage 读取数据，返回取得读出的字符串长(nLen)
    3、在读出的字符串尾部添加结束符'\0'

        

老师只有14号字是对的，其他字号不对

版主好，这些代码不会用，要用到api吗？

MESSAGEBOX(mline(thisform.Olecontrol5.text,5))
这里和字号没有关系

学习是个枯燥的过程，没有捷径，可以从熟悉各个函数、命令做起

ALINES(sun,thisform.Olecontrol5.text)
这个也可以
如果你愿意学习，也可以看看这个，尝试着改写为vfp
快速获得Richtextbox控件指定行文本的方法 - 学剑学诗两不成 - 博客园  
https://

用windows的标准控件EDIT试了一下，注意 SendMessageW 返回的是“字”数，不是“字节”数。

        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-1 10:36编辑过]

版主您好
 nWordCount  = SendMessageW2(hEdit, EM_GETLINE, nLineNo, @cBuffer)
这行提示数据类型不匹配

你好，我发的截图第一个是字号14截图，第二个是字号22截图，第2个图就不是第五行的文字