去掉小数点后面的“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 ...
数据处理问题 | 2015-02-28 12:17 | 421次阅读 | 0评

字符串替换问题二

下面一段数据,要求遇到字母时开始换行。如何做到? <span style="color:#E5333...

其它问题

在百度搜索框内打入 <span style="color:#333333;font-family:...
其它问题 | 2015-02-26 13:38 | 460次阅读 | 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) && 临时表 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...
数据表问题 | 2015-02-24 11:46 | 505次阅读 | 0评

连号查询(数组方法)

*一串不重复的数字,并且从小到大排列,如何比较快捷的判断出其中有哪几组数字是连续的,并且取出每组的两头值? *如: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" nR...

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

* 方法一 cImg = Getpict() && 获取 bmp, jpg, gif xImgObj = LoadPicture(cImg) With xImgObj lnWidth = Int(.Width/26.458) lnHeight = Int(.Height/26.458) Endwith Messagebox("宽度 = " + Tra...
图像(Image)问题 | 2015-02-18 19:14 | 702次阅读 | 0评

生成Excel工作表标题(A,B,......DC)

x=132 y=Iif(x>26,Chr(64+Ceiling(x/26)-1),"")+Chr(64+Iif(Mod(x,26)=0,26,Mod(x,26))) MessageBox(y)
Excel问题 | 2015-02-18 19:02 | 526次阅读 | 0评

VFP控制Excel,列记录转换为行记录

例如: 姓名    一月    二月    三月 张三    100     200     300 转置成 姓名    张三 一月    100 二月   &...
Excel问题 | 2015-02-18 18:59 | 624次阅读 | 0评

VFP 列记录转行记录

clear all create cursor t3 (学号 c(4),姓名 c(8),课目 c(10),成绩 n(3)) create cursor t1 (学号 c(4),姓名 c(8),数学 n(3),语文 n(3)) insert into t1 values ("1001","张三",102,120) insert into t1 values ("1002","李四",119,108) nzds=2 scan scatter to azd for lnI=1 to fcoun...
数据表问题 | 2015-02-18 02:34 | 532次阅读 | 0评

VFP 行记录转列记录

Note 行转列 clear all create cursor t2 (学号 c(4),姓名 c(8),课目 c(10),成绩 n(3)) insert into t2 values ("1001","张三","数学",102) insert into t2 values ("1001","张三","语文",120) insert into t2 values ("1002","李四","数学",119) insert into t2 values ("1002","李四","语文",108) sel...
数据表问题 | 2015-02-18 02:33 | 807次阅读 | 0评

VFP 连号查询

Clear Clear All CREATE CURSOR test (数字 N(5,0)) INSERT INTO test values(7) INSERT INTO test values(88) INSERT INTO test values(9) INSERT INTO test values(8) INSERT INTO test values(103) INSERT INTO test values(12) INSERT INTO test values(11) INSERT INTO ...
数据表问题 | 2015-02-18 02:18 | 452次阅读 | 0评

VFP 断号查询

CREATE CURSOR test (数字 N(5,0)) INSERT INTO test values(7) INSERT INTO test values(88) INSERT INTO test values(9) INSERT INTO test values(8) INSERT INTO test values(103) INSERT INTO test values(12) INSERT INTO test values(11) INSERT INTO test values(102) ...
数据表问题 | 2015-02-18 01:23 | 445次阅读 | 0评

数值型数据反向输出

clear x=34567 y=0 do while x!=0 y=x%10+y*10 x=int(x/10) ?y,x enddo
算法 | 2015-02-17 22:28 | 656次阅读 | 0评

提取数值型数据某一位值的方法

clear num=9876543210123456 for lnI=len(transform(num))-1 to 0 step -1 ?lnI,floor(num/10^(lnI)) num=mod(num,10^(lnI)) endfor
算法 | 2015-02-17 22:26 | 491次阅读 | 0评

人民币大写改进版

MessageBox(dx(987600004321)) Function dx lparameters Num z1="分角元拾佰仟万拾佰仟亿拾佰仟" z2="零壹贰叁肆伍陆柒捌玖" Num=Int(Num100) *MessageBox(num) lcdx="" For lnI=Len(Alltrim(Str(Num,16)))-1 to 0 step -1 lcdx=lcdx+Substr(z2,int(Num/10^lnI)2+1,2) lcdx=lcdx+Substr(z...
算法 | 2015-02-17 22:18 | 558次阅读 | 0评

判断一个数是否是质数的方法

messagebox(iif(isPrime(2)=.t.,"质数","非质数")) FUNCTION isPrime(n) LOCAL i IF n <= 3 RETURN n > 1 ENDIF IF (n % 2 == 0) OR (n % 3 == 0) RETURN .F. ENDIF i = 5 DO WHILE i * i <= n IF (n % i == ...
算法 | 2015-02-17 22:16 | 1276次阅读 | 0评

阶乘位数的计算方法

nDigit=0 for lnI=1 to 10 nDigit=nDigit+log10(lnI) endfor ?"阶乘位数:",int(nDigit)+1
算法 | 2015-02-17 22:13 | 622次阅读 | 0评

VFP质数算法

clear T1=seconds() num=1000000 local azs[num] lncnt=num-1 for lnI=2 to int(sqrt(num)) If azs[lnI]=.F. for lnJ=lnI*lnI to num step lnI * If azs[lnJ]!=.f. azs[lnJ]=.T. * lncnt=lncnt-1 ...
算法 | 2015-02-17 22:11 | 502次阅读 | 0评

获取磁盘类型

Local lnI, drvName, drvType ,mydri mydri="" for lni=1 to 25 drvname=chr(64+lni)+": " drvtype=drivetype(drvname) do case case drvtype = 1 driname="驱动器 " + drvname + "无类型" case drvtype = 2 driname="驱动器 " + drvname + "是一个软盘驱动器" ...
文件(夹)问题 | 2015-02-17 22:06 | 449次阅读 | 0评
浏览160842次