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...
Excel问题 | 2015-04-26 11:33 | 阅读 4783 次 | 评论 0 条

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 *---------------------------...
算法 | 2015-04-24 02:47 | 阅读 4018 次 | 评论 0 条

组合号码算法

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 ...
算法 | 2015-04-22 09:08 | 阅读 1645 次 | 评论 0 条

猜数游戏算法

*问题: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 ...
算法 | 2015-04-22 08:30 | 阅读 3022 次 | 评论 0 条

字母金字塔算法

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=...
算法 | 2015-04-21 13:45 | 阅读 5733 次 | 评论 0 条

动态修改表结构

用第一条记录各字段的对应值替换原有表结构中的字段名 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 &amp;cc[lnI] endfor browse

最大公约数算法

来源:http://www.mzvfp.com/read.php?tid=55600&amp;page=3 作者:陈家驹 ?gcd(15,21) ?gcd(125,25) Function GCD(X, Y) If X < 0 X = -x &amp;&amp; 欧拉算法 Endif If Y < 0 Y = -Y &amp;&amp; 返回 X 和 Y 的 GCD Endif If X = 0 Or Y = 0 ? "GCD...
算法 | 2015-04-11 22:11 | 阅读 1598 次 | 评论 0 条

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) &amp;&amp;总行数
Word | 2015-04-11 10:51 | 阅读 3026 次 | 评论 0 条

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,“-“前、后相邻两项之间,最后...
算法 | 2015-04-11 02:11 | 阅读 2482 次 | 评论 0 条

对称素数之和算法

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=...
算法 | 2015-04-11 02:06 | 阅读 1503 次 | 评论 0 条

数值型数据转日期型数据

有这么一个数值型数据 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 | 2015-04-09 01:07 | 阅读 2240 次 | 评论 1 条

打印指定页Word文档

来源:http://bbs.bccn.net/viewthread.php?tid=432056&amp;extra=&amp;highlight=word&amp;page=3 oWord = CREATEOBJECT('Word.Application') &amp;&amp; 建立 WORD 对象 oWord.Documents.Open('d:\file.doc') &amp;&amp; 打开 d:\file.doc oWord.PrintOut(,,4,,,,,1,"1-3,5") &amp;&amp;...
Word | 2015-04-09 01:04 | 阅读 1290 次 | 评论 0 条

获取显卡详细信息

作者:自由之风 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...
其它问题 | 2015-04-09 01:02 | 阅读 1825 次 | 评论 0 条

如何用VFP判断文本文件的编码格式?

作者:十豆三 *--文本文件的编码格式手动查看方法: *--用记事本打开文本后,点击菜单上的“另存为”,编码格式在出现的对话框下方。 *--那用VFP如何取得文本文件的编码格式呢,如下: lcFileName='C:/A.txt' &amp;&amp;文本文件名 lcStr=Filetostr(lcFileName) lcStrType=Createbinary(Substr(lcStr,1,2)) Do Case Case lcStrType=0hEFBB &amp;&amp;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.) ?"文档中的图片个数:"...
Word | 2015-04-06 01:01 | 阅读 2615 次 | 评论 0 条
浏览376331次