字母金字塔算法

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 | 阅读 4294 次 | 评论 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

最大公约数算法

来源: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 | 阅读 812 次 | 评论 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 | 阅读 2131 次 | 评论 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 | 阅读 1384 次 | 评论 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 | 阅读 743 次 | 评论 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 | 阅读 1296 次 | 评论 0 条

打印指定页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 | 阅读 637 次 | 评论 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 | 阅读 1027 次 | 评论 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 | 阅读 1272 次 | 评论 0 条

VFP中获得选定EXCEL区域的行列号

oxls=CREATEOBJECT("Excel.application") oxls.Visible=.t. oxls.Workbooks.Add ?oxls.Selection.address oxls.ActiveSheet.range("A2:h8").select ?oxls.Selection.address
Excel问题 | 2015-04-05 12:17 | 阅读 1030 次 | 评论 0 条

WAIT信息屏幕居中 函数

** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** * 名称:WAIT信息屏幕居中 函数 * 作者:宋** * 公司:SYRSOFT(R) 上海 中国 * 声明:版权所有(C)宋** 保留所有权利 ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** * 语法 MsgCent(cExpression [,nModel]) * 参数 * cExpression * 指定要显示的自定义信息。若省略...
其它问题 | 2015-04-01 00:35 | 阅读 816 次 | 评论 0 条

两表结构相同,相同字段不同内容对比

* 该代码的前提是表结构相同,字段顺序相同,记录数相同,两表关键字段内容相同(同样适用关键字段内容不正确的情况,前提是记录顺序相同,这时用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...

特殊文本文件的提取方法

说明:&amp;T为一间店铺的开始,&amp;P为一间店铺的结束,&amp;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] ...
浏览205798次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...