正则表达式删除文本内容中的空行

* 删除没有空格的空行 clear cchr=chr(10)+chr(13) cstr="111111"+replicate(cchr,3)+"222222"+replicate(cchr,5)+"3333333"+replicate(cchr,10)+"4444" ?"=====" ?cstr re = Createobject("VBScript.RegExp") re.Global = .T. re.Ignorecase = .T. re.Pattern = "\r\n" && r 代表回车,n 代表换行 ?"=====" ?re.replac...

分组后取N条记录

CREATE CURSOR tt (班级 c(10),学号 c(10),成绩 n(3)) INSERT INTO tt VALUES ("01","X0101",86) INSERT INTO tt VALUES ("01","X0102",92) INSERT INTO tt VALUES ("01","X0103",72) INSERT INTO tt VALUES ("01","X0104",86) INSERT INTO tt VALUES ("02","X0201",75) INSERT INTO tt VALUES ("02","X0202",81) INSE...

孪生素数对

clear a=3 b=a ?"孪生素数对:" for i=3 to 100 step 2 x=0 for j=2 to i-1 if i/j=int(i/j) x=1 endif endfor if x=0 a=i if a-b=2 ?b,a endif b=a endif endfor
算法 | 2017-09-05 13:36 | 阅读 417 次 | 评论 0 条

质因数分解

clear input "请输入一个正整数=" to m store m to n,n1 x=2 s=1 y="" do while s<n1 if mod(n,x)=0 n=n/x s=s*x y=y+transform(x)+"*" else x=x+1 endif enddo messagebox(transform(s)+"="+left(y,len(y)-1))
算法 | 2017-07-27 16:22 | 阅读 444 次 | 评论 0 条

显示最后N条记录的方法

RECNO()>RECCOUNT()-N

成绩排名问题

CREATE CURSOR Cj (班级 C(5),姓名 C(10),总分 N(4),班级名次 N(6),年级名次 N(6)) =RAND(-1) FOR I=1 TO 1000 FOR J=1 TO 50 INSERT INTO Cj (班级,姓名,总分) VALUES ("B"+PADL(I,4,"0"),SYS(2015),RAND()*100) ENDFOR ENDFOR INDEX ON 班级-STR(总分,4) TAG px DESCENDING * 班级名次 mc=1 &amp;&amp; 记录班级名次 nzf=0 &am...

正则表达式提取網頁內容

Clear Text To s Noshow <tr class='citytr'><td><a href='23/2301.html'>230100000000</a></td><td><a href='23/2301.html'>哈尔滨市</a></td></tr><tr class='citytr'><td><a href='23/2302.html'>230200000000</a></td><td><a href='23/2302.html'>齐齐哈尔市</a></td></tr><tr class='citytr'><td><a href='23/2303.html'...

汉字10进制与汉字2进制互转

* 汉字十进制转换为二进制 N10=ASC('编') MESSAGEBOX('编') C02='' Do While N10>0 n=Mod(N10,2) N10=int(N10/2) C02=Str(n,1)+C02 enddo MESSAGEBOX(C02) * 汉字二进制转换为十进制 N10=0 FOR lnI=1 TO LEN(c02) N10=N10+VAL(SUBSTR(C02,lnI,1))*2^(LEN(C02)-lnI) ENDFOR MESSAGEBOX(CHR(N10))
编码转换 | 2016-10-10 12:35 | 阅读 3513 次 | 评论 0 条

16进制转换为10进制的格式

?CHR(INT(VAL([0X99])))
编码转换 | 2016-10-10 12:32 | 阅读 2376 次 | 评论 0 条

十进制转换为十六进制

?DECTOHEX(31) ?DECTOHEX(ASC([红])) ?DECTOHEX(ASC(SUBS([红],1,1))) + DECTOHEX(ASC(SUBS([红],2,1))) *-------------------------------------------------------------------------------- *十进制转十六进制函数 *-------------------------------------------------------------------------------- FUNCTION DECTOHE...
编码转换 | 2016-10-10 12:30 | 阅读 2340 次 | 评论 0 条

Unicode编码转汉字

示例 如:\u6cb3\u5357\u7701 Clear ? Strconv(Chr(0x6cb3%256) + Chr(Int(0x6cb3/256)), 6) + ; Strconv(Chr(0x5357%256) + Chr(Int(0x5357/256)), 6) + ; Strconv(Chr(0x7701%256) + Chr(Int(0x7701/256)), 6) 结果:河南省
编码转换 | 2016-10-10 12:28 | 阅读 2149 次 | 评论 0 条

阻止文本框控件失去焦点

文本框 LostFocus 事件代码 NoDefault Rreturn

日期型数据及日期时间型数据为空的赋值

日期型:{} 日期时间型:{/:}

闰年的判断

ld=DATE(2015,2,29) IF EMPTY(ld) ?"非闰年" ELSE ?"闰年" ENDIF

身份证号码年龄计算简易公式

此处的年龄指的是周岁 SFZHM="333333201501261111" ?INT((VAL(DTOS(DATE()))-VAL(SUBSTR(SFZHM,7,8)))/10000)

S型算法与错位法算法通用公式

CLEAR n=5 RS=121 NOTE S型算法 ?"S型算法" lcstr="" FOR I=1 TO RS lni=IIF(MOD(I,2*n)>n,n-MOD(I,n)+1,(IIF(MOD(I,2*n)=0,1,MOD(I,2*n)))) lcstr=lcstr+str(lni,2) ENDFOR ?lcstr NOTE 错位算法 ?"错位算法" lcstr="" FOR I=1 TO RS lni=MOD(INT((i-1)/n)+MOD(i-1,n),n)+1 lcstr=lcstr+str(lni,2...
算法 | 2016-07-29 20:24 | 阅读 2463 次 | 评论 0 条

给顶层表单添加工具栏

1.在类库MyVcx中建立一个工具栏类MyToolBar,将工具栏的ShowWindow属性设置为1——最上层表单; 2.给顶层表单添加一个自定义属性TopToolBar; 3.编辑顶层表单的Activate event,输入以下代码: This.TopToolBar=NewObject("MyToolBar","MyVcx") This.TopToolBar.show() This.TopToolBar.dock(0) 现在,你就可以享受顶层表单的工具栏了!

行(列)记录的最大值

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) rand(-1) for lnI=1 to 11 append blank nzds=0 for lnJ=(lnI-1)*11+1 to lnI*11 nzds=nzds+1 replace (field(nzds)) with lnJ*rand() endfor endfor lcStru="" for lnI=1 to fcount() ...

让brow 整行变色的方法

CREATE CURSOR 数据表 (选择 L, 区号 c(10), 城市 c(10) ) INSERT INTO 数据表 VALUES (.T.,'021','上海') INSERT INTO 数据表 VALUES (.F.,'010','北京') INSERT INTO 数据表 VALUES (.T.,'020','广州') GO TOP BROWSE NAME GrdCur NOWAIT GrdCur.column1.width = 50 GrdCur.column2.width = 100 GrdCur.column3.width = 100 GrdCur....

获取数值型数据的整数位数及小数位数

a=1234.567800 a=alltrim(padl(a,20," ")) &amp;&amp;VFP中数值型数据有效长度不会超过20位 ? "整数位数:",len(JUSTSTEM(a)) ? "小数位数:",len(JUSTEXT(a))
浏览205638次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...