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

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

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

只看楼主

hytizj023

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

楼主

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

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

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

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

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

2023-03-15 22:57

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：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

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：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

等　级：版主
威　望：29
帖　子：484
专家分：1827
注　册：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

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 5 楼

得分:1

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

2023-03-16 06:08

schtg

来　自：https://t.me/pump_upp
等　级：贵宾
威　望：67
帖　子：1355
专家分：2534
注　册：2012-2-29

第 6 楼

得分:2

学习啦！

2023-03-16 06:36

hytizj023

等　级：新手上路
帖　子：166
专家分：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

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-511556-1-1.html