将一个字符串分割成均等的两行

CSTR="我想將一BC個字123456符串分割G成兩行" MESSAGEBOX(FUN(CSTR),64,[系统信息]) *--- 自定义函数 FUNCTION FUN PARAMETERS CSTR LOCAL NLEN NLEN=LEN(CSTR)/2 CSTR_1=LEFT(CSTR,NLEN) NLEN=IIF(STRCONV(STRCONV(CSTR_1,5),6)==CSTR_1,NLEN,NLEN+1) RETURN LEFT(CSTR,NLEN)+CHR(10)+CHR(13)+CHR(10)+SUBSTR(CSTR,NLEN+1)

VFP中如何查找表中重复的字段记录

Select * From 表名 Where 字段名 In (Select 字段名 From 表名 Group By 字段名 Having Count(*)>1) Order By 字段名

VFP获取文件(夹)的创建日期及时间

Clear FSO=CreateObject("Scripting.FileSystemObject") sourcepath="d:\sn.txt" oBjset = FSO.GetFile(sourcepath) ? "文件创建日期及时间:",oBjset.DateCreated sourcepath1="F:\Picture" oBjset = FSO.GetFolder(sourcepath1) ? "文件夹创建日期及时间:",oBjset.DateCreated Release FSO

用默认软件打开jpg文件

Declare Integer ShellExecute In shell32.dll Integer,String,String,String,String,Integer Declare Integer GetDesktopWindow In Win32api lcFile = Getfile("jpg") If Empty(lcFile) Return Endif lnWnd = GetDesktopWindow() =Shellexecute(lnWnd,"open",lcFile,"","C:\",0) Clear dlls

怎么打开用GetFile()取得的文件

FileName=GETFILE() DoOut(0,'OPEN',JUSTFNAME(FileName),'',JUSTPATH(FileName),9) *------------------------------------------------------------------------------------------ FUNCTION DoOut PARAMETERS lnHwnd,lcCom,lcFile,LcPra,lcPath,lcMode DECLARE INTEGER ShellExecute IN "Shell32.dll" INTEGE...

如何让表格中的最后一条记录,用特殊的字体和颜色显示

* 在表格的INIT事件中写入 This.SetAll("DynamicFontName","Iif(RECNO()=Reccount(),'黑体','宋体')","Column") This.SetAll("DynamicFontSize","Iif(RECNO()=Reccount(),16,10)","Column") This.Setall("DynamicBackColor","Iif(Recno()=Reccount(),Rgb(255,255,255),Rgb(255,0,0)","Column")

中文时间(十九时五分二十六秒)转换为数字时间(19:05:26)

* 程序功能:中文时间(十九时五分二十六秒)转换为数字时间(19:05:26) * 注:该程序稍加修改可用于中文日期转换为数字日期 lcStr="零,00;一,01;二,02;三,03;四,04;五,05;六,06;七,07;八,08;九,09;十,10;"; +"十一,11;十二,12;十三,13;十四,14;十五,15;十六,16;十七,17;十八,18;十九,19;二十,20;"; +"二十一,21;二十二,22;二十三,23;二十四,24;二十五,25;二十六,26;二十七,27;二十八,28;二十九,29;三十,30;"; +"三十一,31;三十二,32;三十三,33...

vfp调用dos怎么解决黑屏停顿问题

把以下 notepad.exe 换成你的 DOS命令即可 来源:http://bbs.csdn.net/topics/340256503 Declare Long WinExec In kernel32 String,Long =WinExec("notepad.exe",1) Clear Dlls WinExec(one.exe,SW_SHOW); 里面的SW_SHOW意思是什么 WinExec()函数第二个参数是什么意思 如果我想以无参数运行one.exe应该怎么办?? SW_SHOW表示以当前大小激活运行后的程序窗口并显示它。 ...

指定日期段中星期一至星期日各有几天

Clear Date1={^2013.05.12} Date2={^2013.06.10} Local AlnDow[7] &amp;&amp; 存储星期N的天数 Store 0 To AlnDow Do While Date1<=Date2 Date1=Date1+1 AlnDow[Dow(date1,2)]=AlnDow[Dow(date1,2)]+1 EndDo For lnI=1 To 7 ? "星期"+Substr("一二三四五六日",lnI*2-1,2)+" "+Transform(AlnDow[lnI])+" 天" EndFor

倒计时问题

Clear ldDatetime1=DATETIME() ldDatetime2={^2018-06-15 12:00:00} lnSeconds=ldDatetime2-ldDatetime1 &amp;&amp; 总秒数 lnDays=Int(lnSeconds/86400) &amp;&amp; 天数 lnHours=Int(Mod(lnSeconds,86400)/3600) &amp;&amp; 小时 lnSecs=Mod(lnSeconds,3600) &amp;&amp; 秒 ?"距2018年6月15日上午12点整,还有 "+Transform(lnDays)...

日期段拆分问题

类似问题:http://bbs.csdn.net/topics/390633445 编程对Table1表的日期数据处理,把日期段分拆,形成Table2的形式。 Create Table Table1 (cname C(10), date1 D, date2 D) Insert Into Table1 Values ("Jack", {^1991-3-31}, {^1994-12-15}) Insert Into Table1 Values ("Lily", {^2000-9-10},{^2003-2-15}) Insert Into Tabl...

VFP数组数据导入EXCEL中的方法

Local ASZ[50,7] Store [] To ASZ For lnI=1 To 50 For lnI1=1 To 7 ASZ[lnI,lnI1]=Padl(lnI*lnI1,4,[0]) Endfor Endfor Local cc, oo As Excel.Application m.oo = Newobject('Excel.Application') If m.oo.Workbooks.Count < 1 m.oo.Workbooks.Add() Endif If m.oo.Workbooks(1)....
Excel问题 | 2015-03-08 10:33 | 阅读 3701 次 | 评论 1 条

Transform()函数

VFP6下 ?transform(9867.8900) 结果:9867.889999999999 ?transform(9867.8900,"@z") 结果:9867.89 VFP9下 ?transform(9867.8900,"@z") 结果:9867.89 ?transform(9867.100,"@z") 结果:9867.10 结论:使用Transform()函数转换带小数位的数值型数据时,慎用!!!! 建议使用Pad...
浏览376984次