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.ShapeRan...
Excel问题 | 2015-04-26 11:33 | 2165次阅读 | 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]...
算法 | 2015-04-24 02:47 | 1895次阅读 | 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位数字不相同的新组合 CL...
算法 | 2015-04-22 09:08 | 629次阅读 | 0评

猜数游戏算法

问题:ABCDE分别代表5个不相同的数字(每个字母代表1位数字),并且A与E不等于0,求出算式 ABCDEA=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 ...
算法 | 2015-04-22 08:30 | 1964次阅读 | 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 ENDFO...
算法 | 2015-04-21 13:45 | 3601次阅读 | 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 &cc[lnI] endfor browse <b...
数据表问题 | 2015-04-14 11:00 | 597次阅读 | 0评

最大公约数算法

来源:http://www.mzvfp.com/read.php?tid=55600&page=3 作者:陈家驹 ?gcd(15,21) ?gcd(125,25) Function GCD(X, Y) If X &lt...
算法 | 2015-04-11 22:11 | 579次阅读 | 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 In...
VFP中SQL查询问题 | 2015-04-11 18:41 | 1177次阅读 | 0评

VFP控制WORD时如何取得word文档行数

loWord = Createobject("word.application") <span style="color:#333333;font-family:Helvetica, Tahoma, Arial, sans-serif;line-height:24px;background-color:#...
Word | 2015-04-11 10:51 | 1945次阅读 | 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...
算法 | 2015-04-11 02:11 | 1104次阅读 | 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 ...
算法 | 2015-04-11 02:06 | 526次阅读 | 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(Num100,100),1...
数据处理问题 | 2015-04-09 12:08 | 464次阅读 | 0评

获取Word文档的页数

来源:http://bbs.bccn.net/thread-440412-2-1.html MyWord=<span style="fon...
Word | 2015-04-09 01:07 | 1041次阅读 | 0评

打印指定页Word文档

来源:http://bbs.bccn.net/viewthread.php?tid=432056&extra=&highlight=word&page=3 oWord = CREATEOBJECT('Word.Applicat...
Word | 2015-04-09 01:04 | 464次阅读 | 0评

获取显卡详细信息

作者:自由之风 Clear objWMIService = Getobject("winmgmts:\.\root\CIMV2") colItems = objWMIService.ExecQuery("SELECT * FROM Win32_VideoController",,48) For Each ye In colItems ?"型 号: "+ ye.VideoProcessor ?"厂 商: "+ye.Ada...
其它问题 | 2015-04-09 01:02 | 853次阅读 | 0评

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

作者:十豆三 *--文本文件的编码格式手动查看方法: *--用记事本打开文本后,点击菜单上的“另存为”,编码格式在出现的对话框下方。 *--那用VFP如何取得文本文件的编码格式呢,如下: lcFileName='C:/A.txt' &&文本文件名 lcStr=Filetostr(lcFileName) lcStrType=Createbinary(Substr(lcStr,1,2)) Do Case ...

删除文本文件中的空行

方法一(VFP方法) Clear cStr=Strtran(Filetostr("demon.txt"),0h0d0a,"|") Do While "||"$cStr cStr=Strtran(cStr,"||","|") Enddo =Strtofile(Strtran(Substr(cStr,2),"|",0h0d0a),"dem...

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
文件(夹)问题 | 2015-04-07 19:52 | 578次阅读 | 0评

表单运行后得不到焦点的解决方法

程序只有一个表单,但是在主程序中加入screen.visible=.F.编译运行后,<span id="kindeditorbookmarkstart4__">程序得不到焦点,必需用鼠标点击后,才能得到焦点,如何解决? 在Form1.ActiVate事件中加入 DECLARE Long SetActiveWindow IN WIN32API Long hWnd  SetActiveWindow( thisform.HWnd ) <br...
表单(Form)问题 | 2015-04-07 18:49 | 1080次阅读 | 0评

VFP中控制WORD图片大小

lcFileName=GETPICT() IF !FILE(lcFileName) MESSAGEBOX("请选择图片文件") RETURN ENDIF ***请修改测试图片位置 oword=createobject("word.application") oword.Visible=.t. oword.Documents.add oword.Selection.InlineShapes.AddPicture...
Word | 2015-04-06 01:01 | 971次阅读 | 0评
浏览161172次