提取字符串中的数字并求出平均值

clear cstr="abc32skfkj262ksf8k99kfsk24kf" cstr1="" ncount=0 nsum=0 ok=.f. for i=1 to len(cstr) a=substr(cstr,i,1) if isdigit(a)=.t. cstr1=cstr1+a ok=.t. else if ok=.t. nsum=nsum+val(cstr1) ...
2015-11-04 22:58 | 1164次阅读 | 0评

如何用VFP判断文本文件的编码格式?

作者:十豆三 *--文本文件的编码格式手动查看方法: *--用记事本打开文本后,点击菜单上的“另存为”,编码格式在出现的对话框下方。 *--那用VFP如何取得文本文件的编码格式呢,如下: lcFileName='C:/A.txt' &&文本文件名 lcStr=Filetostr(lcFileName) lcStrType=Createbinary(Substr(lcStr,1,2)) Do Case ...
2015-04-09 00:51 | 620次阅读 | 0评

删除文本文件中的空行

方法一(VFP方法) Clear cStr=Strtran(Filetostr("demon.txt"),0h0d0a,"|") Do While "||"$cStr cStr=Strtran(cStr,"||","|") Enddo =Strtofile(Strtran(Substr(cStr,2),"|",0h0d0a),"dem...
2015-04-09 00:49 | 536次阅读 | 0评

特殊文本文件的提取方法

说明:&T为一间店铺的开始,&P为一间店铺的结束,&L为一条记录的结束 Create Cursor TEST (Shopno C(10),Shopname C(30),Pos C(10),Card C(20),Amt N(10,2),Hkfee N(10,2),seq C(10),Date1 C(8) ,Time C(6)) nRow=ALines(AcStr,FileToStr("Wt.Txt"),...
2015-04-01 00:24 | 533次阅读 | 0评

VFP字符串多空格转换单空格的方法

cStr="a b c d" && 变为 "a b c d" Do While Space(2)$cStr cStr=Strtran(cStr,Space(2),Space(1)) EndDo MessageBox(cStr)
2015-03-13 17:36 | 1097次阅读 | 0评

VFP中获取字符串中汉字的方法

lcStr="A1]中国" ?Strconv(lcStr,2) 结果:A1]中国 然后通过For EndFor方法提取出汉字
2015-03-13 14:22 | 1915次阅读 | 0评

VFP中数字字符串排序

CSTR=[103] A=CSORT(CSTR) LIST MEMORY LIKE A FUNCTION CSORT(AA) PUBLIC ASTR(LEN(AA)) FOR I=1 TO LEN(AA) ASTR(I)=SUBSTR(AA,I,1) ENDFOR =ASORT(ASTR) RETURN @ASTR
2015-03-13 14:06 | 1061次阅读 | 0评

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

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

字符串替换问题二

下面一段数据,要求遇到字母时开始换行。如何做到? <span style="color:#E5333...
2015-02-26 20:28 | 570次阅读 | 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)
2015-02-24 21:20 | 521次阅读 | 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...
2015-02-22 22:34 | 492次阅读 | 0评
浏览161122次