| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 6180 人关注过本帖, 1 人收藏
标题:请教edit编辑框如何读出当前光标所在行(段)的内容
只看楼主 加入收藏
丁春秋yxp
Rank: 5Rank: 5
等 级:贵宾
威 望:10
帖 子:251
专家分:310
注 册:2017-10-31
收藏
得分:0 
回复 19楼 csyx
您真是了不起的高手,完全解决了问题。
只是这程序显示需要,想再请教如何提取edit框中这一行除外的前面部分和后面部分。

因为这一行计算好后已经显示为等式了。但前面部分和后面部分都还要显示。
因我的电脑不能登录论垃坛。只能用手机,很抱歉传不了表单。
2019-02-27 20:05
丁春秋yxp
Rank: 5Rank: 5
等 级:贵宾
威 望:10
帖 子:251
专家分:310
注 册:2017-10-31
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册
2019-02-27 20:28
丁春秋yxp
Rank: 5Rank: 5
等 级:贵宾
威 望:10
帖 子:251
专家分:310
注 册:2017-10-31
收藏
得分:0 
用strtran替换不可行,这虽然很容易替换这行成等式,但另外行的相同部分也被替换了。所以想把这行除外的另外头尾部分先保存起来,以便显示。
2019-02-27 20:40
csyx
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:火星
等 级:版主
威 望:37
帖 子:708
专家分:2833
注 册:2018-3-13
收藏
得分:0 
没什么不同啊,累加不包含选中的数组行就是前面和后面的部分嘛

nPos = Thisform.edit1.SelStart
ALines(aTemp, Strtran(Thisform.edit1.Text, Chr(13)+Chr(10), Chr(1)+Chr(10)))
Store 0 to n0, n1
For ii = 1 to Alen(aTemp)
    n0 = n0 + Len(aTemp[ii]) + 1
    If n0 > nPos
        n1 = m.ii
        Exit
    EndIf
EndFor

c选中块 = Rtrim(aTemp[n1], Chr(1))
c前后块 = ''
For ii = 1 to Alen(aTemp)
    If ii <> n1
        c前后块 = c前后块 + Chr(13)+Chr(10) + Rtrim(aTemp[ii], Chr(1))
    EndIf
EndFor
c前后块 = Substr(c前后块, 3)

c前显示分隔符 = Replicate('=',20)+Chr(13)+Chr(10)
c后显示分隔符 = Chr(13)+Chr(10)++Replicate('=',20)
MessageBox('选中块 '+c前显示分隔符 + c选中块 + c后显示分隔符)
MessageBox('前后块 '+c前显示分隔符 + c前后块 + c后显示分隔符)

这家伙很懒,啥也没留下
2019-02-27 21:23
csyx
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:火星
等 级:版主
威 望:37
帖 子:708
专家分:2833
注 册:2018-3-13
收藏
得分:0 
很简单,数组aTemp中每一行,就是editbox中的每一段,查看下数组aTemp的内容就知道了

这家伙很懒,啥也没留下
2019-02-27 21:30
丁春秋yxp
Rank: 5Rank: 5
等 级:贵宾
威 望:10
帖 子:251
专家分:310
注 册:2017-10-31
收藏
得分:0 
回复 25楼 csyx
真对不起,照您说的折腾了一晚上还是没有解决,明天我将表单发上来,请帮忙改一下。
2019-02-27 22:42
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
收藏
得分:0 
有点象处理列表数据,用editbox来处理这类数据不好处理。
VFP处理列表数据通常有列表listbo、combobox,或直接用grid。
2019-02-28 04:46
丁春秋yxp
Rank: 5Rank: 5
等 级:贵宾
威 望:10
帖 子:251
专家分:310
注 册:2017-10-31
收藏
得分:0 
回复 27楼 吹水佬
是的,但感觉editbox更灵活一些
2019-02-28 09:11
丁春秋yxp
Rank: 5Rank: 5
等 级:贵宾
威 望:10
帖 子:251
专家分:310
注 册:2017-10-31
收藏
得分:0 
回复 25楼 csyx
编辑框.rar (2.54 KB)

请您帮忙再校正,显示结果有误啊。
2019-02-28 09:13
csyx
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:火星
等 级:版主
威 望:37
帖 子:708
专家分:2833
注 册:2018-3-13
收藏
得分:0 
改了下,但愿是你想要的结果
编辑框.rar (2.87 KB)


[此贴子已经被作者于2019-2-28 19:03编辑过]


这家伙很懒,啥也没留下
2019-02-28 16:07
快速回复:请教edit编辑框如何读出当前光标所在行(段)的内容
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.036833 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved