获取Word文档的页数
来源：http://bbs.bccn.net/thread-440412-2-1.html
MyWord=CreateObject('Word.Application')
MyWord.Visible=.T.
MyWord.Documents.Open ('e:\xin\笑话\爆笑答案.doc')
aaa=MyWord.ActiveWindow.ActivePane.Pages.Count
?aaa
打印指定页Word文档
来源：http://bbs.bccn.net/viewthread.php?tid=432056&extra=&highlight=word&page=3
oWord = CREATEOBJECT('Word.Application') && 建立 WORD 对象
oWord.Documents.Open('d:\file.doc') && 打开 d:\file.doc
oWord.PrintOut(,,4,,,,,1,"1-3,5") &&...
获取显卡详细信息
作者：自由之风
Clear
objWMIService = Getobject("winmgmts:\\.\root\CIMV2")
colItems = objWMIService.ExecQuery("SELECT * FROM Win32_VideoController",,48)
For Each ye In colItems
?"型 号: "+ ye.VideoProcessor
?"厂 商: "+ye.AdapterCompatibility
?"名 称: "+ ye.Name
?"状 态: "+ y...
如何用VFP判断文本文件的编码格式？
作者：十豆三
*--文本文件的编码格式手动查看方法：
*--用记事本打开文本后，点击菜单上的“另存为”，编码格式在出现的对话框下方。
*--那用VFP如何取得文本文件的编码格式呢，如下：
lcFileName='C:/A.txt' &&文本文件名
lcStr=Filetostr(lcFileName)
lcStrType=Createbinary(Substr(lcStr,1,2))
Do Case
Case lcStrType=0hEFBB &&VFP6.0不支持此种方式，此实列是在VFP9....
删除文本文件中的空行
方法一（VFP方法）
Clear
cStr=Strtran(Filetostr("demon.txt"),0h0d0a,"|")
Do While "||"$cStr
cStr=Strtran(cStr,"||","|")
Enddo
=Strtofile(Strtran(Substr(cStr,2),"|",0h0d0a),"demon1.txt")
方法二（正则表达式方法）
clear
local Reg, cStr
Reg = CreateObject("VBScript.RegExp")
c...
VFP中同时选定多个文件的方法
obj=CREATEOBJECT("MSComDlg.CommonDialog.1")
obj.Flags = 524288 + 512 + 4
obj.filter = "文件类型(*.TXT)|*.TXT"
obj.FileName = "D:\"+"请选择升级文件 (可以拖动鼠标多选)"
obj.maxFileSize=10000
obj.ShowOpen()
self=obj.FileName+CHR(0)
?self
表单运行后得不到焦点的解决方法
程序只有一个表单，但是在主程序中加入_screen.visible=.F.编译运行后，程序得不到焦点，必需用鼠标点击后，才能得到焦点，如何解决？
在Form1.ActiVate事件中加入
DECLARE Long SetActiveWindow IN WIN32API Long hWnd
SetActiveWindow( thisform.HWnd )
必须在有窗口句柄属性的VFP版本中才能使用该代码
VFP中控制WORD图片大小
lcFileName=GETPICT()
IF !FILE(lcFileName)
MESSAGEBOX("请选择图片文件")
RETURN
ENDIF
***请修改测试图片位置
oword=createobject("word.application")
oword.Visible=.t.
oword.Documents.add
oword.Selection.InlineShapes.AddPicture("D:\My Documents\My Pictures\图1.JPG",.f.,.t.)
?"文档中的图片个数:"...
VFP中获得选定EXCEL区域的行列号
oxls=CREATEOBJECT("Excel.application")
oxls.Visible=.t.
oxls.Workbooks.Add
?oxls.Selection.address
oxls.ActiveSheet.range("A2:h8").select
?oxls.Selection.address
WAIT信息屏幕居中 函数
** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** **
* 名称：WAIT信息屏幕居中 函数
* 作者：宋**
* 公司：SYRSOFT(R) 上海 中国
* 声明：版权所有(C)宋** 保留所有权利
** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** **
* 语法 MsgCent(cExpression [,nModel])
* 参数
* cExpression
* 指定要显示的自定义信息。若省略...
两表结构相同，相同字段不同内容对比
* 该代码的前提是表结构相同，字段顺序相同，记录数相同，两表关键字段内容相同（同样适用关键字段内容不正确的情况，前提是记录顺序相同，这时用RECNO()作为索引关键字）
clear
create cursor tt (a1 c(10),a2 c(10),a3 c(10))
insert into tt values ("0001","abcd","aa")
insert into tt values ("0002","abcd","ab")
insert into tt values ("0003","abcd","ac")
insert into tt v...
特殊文本文件的提取方法
说明：&T为一间店铺的开始,&P为一间店铺的结束,&L为一条记录的结束
Create Cursor TEST (Shopno C(10),Shopname C(30),Pos C(10),Card C(20),Amt N(10,2),Hkfee N(10,2),seq C(10),Date1 C(8) ,Time C(6))
nRow=ALines(AcStr,FileToStr("Wt.Txt"),1,Chr(13)+Chr(10))
For lnI=1 To nRow
cStr=AcStr[lnI]
...
获取EXCEL某一工作表的页数
FileName=GetFile("Xls")
If Empty(FileName)
Return
EndIf
oExcel=CreateObject('Excel.application')
oExcel.Workbooks.Open(FileName)
oExcel.SHEETS(1).SELECT
*oExcel.Worksheets("sheet1").Activate
nPages=oExcel.ActiveSheet.HPageBreaks.Count+1
MessageBox(FileName+"共有 "+Transform(nPages)+" ...
分组排名次
* 说明：原表为Cjb.Dbf<见附件>，准考证号前4位为学校编码，要求根据成绩按 学校编码 分类排出 名次，排出的结果见 名次 字段，遇到不同的学校编码，名次从1开始排，当成绩相同时排出的名次一样，最后结果如：1133567
* 代码为VFP9版本
T1=Seconds()
Select Left(准考证号,4) 学校编码,准考证号,总成绩,000000 名次 From Cjb Order By 学校编码,总成绩 Desc Into Cursor Mcb ReadWrite
Go Top
Scatter Memva...
VFP逐日累计问题
Create Cursor 原表 (单位 C(1),日期 C(8),完成量 N(10))
Insert Into 原表 Values ("A","20150301",10)
Insert Into 原表 Values ("A","20150302",30)
Insert Into 原表 Values ("A","20150303",50)
Insert Into 原表 Values ("B","20150301",20)
Insert Into 原表 Values ("B","20150302",40)
Insert Into 原表 Values ("B","20150303...
日期段合并问题
Set Date To Ansi
Set Century On
Set Safety Off
CLOSE DATABASES
Create Table tt1 (cname c(6),cyear c(6), Cmonth c(6),nnewsal N (9,2))
Insert Into tt1 Values ("hans", "1998","2",300)
Insert Into tt1 Values ("hans", "1998","3",300)
Insert Into tt1 Values ("hans", "1998","4",300)
Insert Into ...
快速计算字符串中有分隔符的数字之和的方法
a="1,2,3,4"
?evaluate(chrtran(a,",","+"))
值得一看的帖子
VFP 6.0中Datetime在内存中的格式：http://bbs.csdn.net/topics/320165494
文本文件转换为DBF问题(有文本格式)：http://bbs.csdn.net/topics/340041831
把一个 dbf 表导出为 xls 有几种方式？：http://bbs.csdn.net/topics/320113077
vfp导出excel的方法探讨 http://bbs.csdn.net/topics/320020197
如何保证excel数值字段转换成vf不失真啊：http://bbs...
VFP中成绩排名前N名问题
Clear
Clear All
Close Databases
Set Collate To "MACHINE"
T1=Seconds()
Local Akm[6]
Akm[1]="语文"
Akm[2]="数学"
Akm[3]="英语"
Akm[4]="物理"
Akm[5]="化学"
Akm[6]="总成绩"
Use Cjb In 0
Create Cursor 前N名 (准考证号 C (10),语文 N(6),数学 N(6),英语 N(6),物理 N(6),化学 N(6),总成绩 N(6))
Append Fr...
随机生成1-N之间的N个不重复数据的方法
Clear
Rand(-1)
lnNum=10 &&生成随机数个数
Dimension nStr[lnNum]
N=0
Do While n<lnNum
nItem = Ceiling(lnNum*Rand())
If Ascan(nStr,nItem)=0
nStr[N+1]=nItem
N=N+1
EndIf
EndDo
For Each nVar In nStr[lnNum]
? nVar
EndFor
方法...
文章分类
文章归档
- 2024年05月(1)
- 2023年04月(1)
- 2023年03月(2)
- 2022年04月(1)
- 2021年06月(3)
- 2021年03月(1)
- 2020年06月(1)
- 2019年05月(1)
- 2019年01月(1)
- 2018年12月(1)
- 2018年11月(1)
- 2018年09月(10)
- 2018年08月(2)
- 2017年11月(7)
- 2017年09月(2)
- 2017年07月(1)
- 2016年12月(1)
- 2016年11月(2)
- 2016年10月(4)
- 2016年09月(3)
- 2016年08月(1)
- 2016年07月(1)
- 2016年05月(2)
- 2016年01月(2)
- 2015年11月(6)
- 2015年10月(1)
- 2015年08月(2)
- 2015年06月(2)
- 2015年05月(5)
- 2015年04月(25)
- 2015年03月(33)
- 2015年02月(32)
展开
收起
收起最新评论
- sostemp：ADO方式也比较好的。
- z12689：
- sdta：加我好友，QQ:243688667
- 刀密况进：做了一个目录，第二列：到提取每个工作表的名称（已经做到了），第三列：想要实现对应的工作表能够打...
- 刀密况进：太高深了。这个有点看不懂。有没有更具体的操作流程图或更详细的讲解呢。谢谢。
- 小805805：留下脚印 有用！