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

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 | 阅读 1716 次 | 评论 0 条

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

去掉小数点后面的“0”

? quling(123.00) ? quling(123.100) ? quling(123.010) function quling Parameters lenum lcnum=alltrim(padl(lenum,16," ")) do while right(lcnum,1)="0" lcnum=left(lcnum,len(lcnum)-1) enddo if len(justext(lcnum))=0 lcnum=chrtran(lcnum,".","") endif return lcnum ----------------...

字符串替换问题二

下面一段数据,要求遇到字母时开始换行。如何做到? B0F0090504210807000220202020024033080000080000180A09021309032909021909021900011000000000ED21080700000000000800000000651056000000000380032000000244000000000000000000000898B4032108070000000000080000010890A887210807090224090224 换行后变成下面 B0F009050421080...

其它问题

在百度搜索框内打入 site www.meizvfp.com 你要搜索的关键字
其它问题 | 2015-02-26 13:38 | 阅读 605 次 | 评论 0 条

字符串替换问题一

* 字符串"A1 A2 A3 A4 A5 A6"转换成"A1,A2,A3,A4,A5,A6" lcstr="A1 A2 A3 A4 A5 A6" lcstr=chrtran(lcstr," ",",") do while ",,"$lcstr lcstr=strtran(lcstr,",,",",") enddo messagebox(lcstr)

检查VFP数据表中字段值相同的问题

问题网址:http://bbs.bccn.net/thread-442165-1-1.html * 生成测试数据 create cursor tt1 (记录行 i,字段名 c(10),值 i) &amp;&amp; 临时表 create cursor tt (a1 i,a2 i,a3 i,a4 i,a5 i,a6 i,a7 i,a8 i,a9 i,a10 i,a11 i) for lnI=1 to 11 append blank nzds=0 for lnJ=(lnI-1)*11+1 to lnI*11 nzds=nzds+1 replace...

连号查询(数组方法)

*一串不重复的数字,并且从小到大排列,如何比较快捷的判断出其中有哪几组数字是连续的,并且取出每组的两头值? *如:1,3,6,8,9,10,12,15,20,23,24,25,26,30,33,34,35,36,37,38,39,40 *变成:1,3,6,8-10,12,15,20,23-26,30,33-40 Clear lcStr="1,3,6,8,9,10,12,15,20,23,24,25,26,30,33,34,35,36,37,38,39,40" nRow=Alines(Astr,Strtran(lcStr,",",Chr(13)+Chr(10))) l...

获取图片的宽和高(像素)

* 方法一 cImg = Getpict() &amp;&amp; 获取 bmp, jpg, gif xImgObj = LoadPicture(cImg) With xImgObj lnWidth = Int(.Width/26.458) lnHeight = Int(.Height/26.458) Endwith Messagebox("宽度 = " + Transform(lnWidth) + "(像数)" + Chr(13) + ; "高度 = " + Tran...
浏览200405次
最新评论