请教如何将数据复制到剪切板 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 请教如何将数据复制到剪切板

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 646 人关注过本帖

标题：请教如何将数据复制到剪切板

只看楼主加入收藏

hytizj023

等　级：新手上路
帖　子：188
专家分：7
注　册：2023-3-2
结帖率：93.88%

楼主

已结贴√ 问题点数：18 回复次数：6

请教如何将数据复制到剪切板

我有一张表
姓名  性别  平均分
张三   男    159
李四   男    152
王五   男    103

请教如何将平均分字段的数据复制到剪切板
数据格式如下：
159 152 103
中间要有空格
，感谢！

搜索更多相关主题的帖子: 数据　数据格式　空格　复制　平均分　

2023-03-15 22:57

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9841
专家分：27213
注　册：2012-2-5

第 2 楼

得分:10

CREATE CURSOR tt (奖号 c(3))
INSERT INTO tt VALUES ("001")
INSERT INTO tt VALUES ("002")
INSERT INTO tt VALUES ("003")
INSERT INTO tt VALUES ("004")
lcStr = SPACE(0)
SCAN
lcStr = lcStr + SPACE(1) + 奖号
ENDSCAN
_CLIPTEXT = SUBSTR(lcStr,2) && 剪切板用完后最好清空

坚守VFP最后的阵地

2023-03-15 23:08

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9841
专家分：27213
注　册：2012-2-5

第 3 楼

得分:3

实际上楼主是想要这个结果

程序代码：

CREATE CURSOR tt (奖号 c(3))
INSERT INTO tt VALUES ("001")
INSERT INTO tt VALUES ("002")
INSERT INTO tt VALUES ("003")
INSERT INTO tt VALUES ("004")
INSERT INTO tt VALUES ("005")
INSERT INTO tt VALUES ("006")
INSERT INTO tt VALUES ("007")
INSERT INTO tt VALUES ("008")
INSERT INTO tt VALUES ("009")
INSERT INTO tt VALUES ("010")
lcStr = SPACE(0)
SCAN 
    lcStr = lcStr + IIF(RECNO()>4 and MOD(RECNO(),4)=1, CHR(13)+CHR(10), SPACE(1)) + 奖号
ENDSCAN 
_CLIPTEXT = SUBSTR(lcStr,2) && 剪切板用完后最好清空
MESSAGEBOX(_CLIPTEXT)

图片附件: 游客没有浏览图片的权限，请登录或注册

坚守VFP最后的阵地

2023-03-15 23:27

csyx

来　自：火星
等　级：版主
威　望：37
帖　子：707
专家分：2833
注　册：2018-3-13

第 4 楼

得分:2

Create Cursor test (姓名 V(10), 性别 C(2), 平均分 I)
Insert into test (姓名, 性别, 平均分) Values ('张三', '男', 159)
Insert into test (姓名, 性别, 平均分) Values ('李四', '男', 152)
Insert into test (姓名, 性别, 平均分) Values ('王五', '男', 103)

Select 平均分 from test into cursor temp
_vfp.DataToClip()
_cliptext = Strtran(_cliptext, Chr(13), ' ')
MessageBox(_cliptext)

收到的鲜花

sam_jiang 于 2023-03-16 01:12 送鲜花 1朵

这家伙很懒，啥也没留下

2023-03-15 23:54

吹水佬

等　级：版主
威　望：451
帖　子：10607
专家分：43186
注　册：2014-5-20

第 5 楼

得分:1

使用 _vfp.DataToClip() 要注意的是某些数据类型字段不支持。

2023-03-16 06:08

schtg

来　自：Usa
等　级：贵宾
威　望：67
帖　子：1730
专家分：3324
注　册：2012-2-29

第 6 楼

得分:2

学习啦！

2023-03-16 06:36

hytizj023

等　级：新手上路
帖　子：188
专家分：7
注　册：2023-3-2

第 7 楼

得分:0

以下是引用sdta在2023-3-15 23:27:46的发言：

实际上楼主是想要这个结果
CREATE CURSOR tt (奖号 c(3))
INSERT INTO tt VALUES ("001")
INSERT INTO tt VALUES ("002")
INSERT INTO tt VALUES ("003")
INSERT INTO tt VALUES ("004")
INSERT INTO tt VALUES ("005")
INSERT INTO tt VALUES ("006")
INSERT INTO tt VALUES ("007")
INSERT INTO tt VALUES ("008")
INSERT INTO tt VALUES ("009")
INSERT INTO tt VALUES ("010")
lcStr = SPACE(0)
SCAN
lcStr = lcStr + IIF(RECNO()>4 and MOD(RECNO(),4)=1, CHR(13)+CHR(10), SPACE(1)) + 奖号
ENDSCAN
_CLIPTEXT = SUBSTR(lcStr,2) && 剪切板用完后最好清空
MESSAGEBOX(_CLIPTEXT)

版主牛逼了

，都知道我想要撒结果了，感谢啊！

2023-03-16 09:19

快速回复：请教如何将数据复制到剪切板