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)

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

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

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

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) * 注：该程序稍加修改可用于中文日期转换为数字日期 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...

把以下 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...

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)....

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...