VFP 控制 Excel 在指定位置插入图片
oExcel=CreateObject('Excel.Application')
With oExcel
.Workbooks.Add
.SheetsInNewWorkBook=1
.Sheets(1).Cells(2,5).Select
.ActiveSheet.Pictures.Insert("F:\第五十组MIS设计报告\1-110Q0130GD10.jpg").Select
.Selection.ShapeRange.LockAspectRatio =.T.
.ActiveSheet.Columns...
VFP中矩阵转置(行列转换)算法探讨
clear
local aa[5,4]
aa[1,1]=1
aa[1,2]=2
aa[1,3]=12
aa[1,4]=123
aa[2,1]=3
aa[2,2]=4
aa[2,3]=34
aa[2,4]=345
aa[3,1]=5
aa[3,2]=6
aa[3,3]=56
aa[3,4]=567
aa[4,1]=7
aa[4,2]=8
aa[4,3]=78
aa[4,4]=789
aa[5,1]=9
aa[5,2]=10
aa[5,3]=910
aa[5,4]=901
*---------------------------...
组合号码算法
1-33共33个数字，生成由小到大的
1,2,3,4,5,6
1,2,3,4,5,7
..........
27,29,30,31,32,33
28,29,30,31,32,33
6位数字不相同的新组合
CLEAR
T1=SECONDS()
CREATE CURSOR TEST (A1 N(2),A2 N(2),A3 N(2),A4 N(2),A5 N(2),A6 N(2))
FOR I1=1 TO 33
FOR I2=I1+1 TO 33
...
猜数游戏算法
*问题：ABCDE分别代表5个不相同的数字(每个字母代表1位数字)，并且A与E不等于0，求出算式 ABCDE*A=EEEEEE 中各字母所代表的数字<P23>
CLEAR
N1=0
N2=0
FOR I1=1 TO 9
FOR I2=0 TO 9
FOR I3=0 TO 9
FOR I4=0 TO 9
FOR I5=1 TO 9
N1=I1*10000+I2*1000+I3*100+I4*10+I5
...
字母金字塔算法
CLEAR
FOR I=1 TO 26
STORE "" TO A,B
?I,SPACE(26-I)
FOR J=1 TO I
A=A+CHR(J+64)
IF J=1
B=""
ELSE
B=CHR(J+63)+B
ENDIF
ENDFOR
?? A+B
ENDFOR
数字金字塔代码
clear
for i=...
动态修改表结构
用第一条记录各字段的对应值替换原有表结构中的字段名
clear all
create cursor aa (a c(10),b c(10))
insert into aa values ("a1","b1")
scatter to cc
for lni=1 to fcount()
alter table aa rename column (field(lnI)) to &cc[lnI]
endfor
browse
最大公约数算法
来源：http://www.mzvfp.com/read.php?tid=55600&page=3
作者：陈家驹
?gcd(15,21)
?gcd(125,25)
Function GCD(X, Y)
If X < 0
X = -x && 欧拉算法
Endif
If Y < 0
Y = -Y && 返回 X 和 Y 的 GCD
Endif
If X = 0 Or Y = 0
? "GCD...
vfp删除重复记录并保留其中记录号最大的一条记录
* VFP9.0 CODE
Create Cursor Tt (Kh C(3))
Insert Into Tt Values ("001")
Insert Into Tt Values ("001")
Insert Into Tt Values ("002")
Insert Into Tt Values ("003")
Insert Into Tt Values ("001")
Insert Into Tt Values ("003")
Insert Into Tt Values ("002")
Insert Into Tt Values ("001"...
VFP控制WORD时如何取得word文档行数
loWord = Createobject("word.application")
loWord.Documents.Open('c:\1.doc')
?loWord.ActiveDocument.ComputeStatistics(1) &&总行数
S=1/3-(1/3)*(2/5)+(1/3)*(2/5)*(3/7)-(1/3)*(2/5)*(3/7)*(4/9)+..... 求前10项之和
第一项：(1/3)-(1/3)*(2/5)
第二项：(1/3)*(2/5)*(3/7)-(1/3)*(2/5)*(3/7)*(4/9)
第三项：(1/3)*(2/5)*(3/7)*(4/9)*(5/11)-(1/3)*(2/5)*(3/7)*(4/9)*(5/11)*(6/13)
第四项：(1/3)*(2/5)*(3/7)*(4/9)*(5/11)*(6/13)*(7/15)-(1/3)*(2/5)*(3/7)*(4/9)*(5/11)*(6/13)*(7/15)*(8/17)
上面数列的特征：分子等差为1，分母等差为2，分母为2倍的分子加1，“-“前、后相邻两项之间，最后...
对称素数之和算法
CLEAR
DO WHILE .T.
INPUT "请输入11-1000000之间的任意数：" TO N
IF N>10^6 OR N<11
MESSAGEBOX("数字超出范围，请重新输入！")
LOOP
ELSE
EXIT
ENDIF
ENDDO
S=2+3+5+7
C=4
FOR LNI=11 TO N
X=LNI
Y=0
DO WHILE X!=0
Y=X%10+Y*10
X=INT(X/10)
ENDDO
IF Y=...
数值型数据转日期型数据
有这么一个数值型数据
Num=2015.02
转换为日期型数据：2015-02-01
Set Date Ansi
Set Century ON
Set Mark To "-"
? Date(Int(Num),(Num-Int(Num))*100,1)
? Date(Int(Num),mod(Num*100,100),1)
获取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.)
?"文档中的图片个数:"...
文章分类
文章归档
- 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：留下脚印 有用！