(原题:在线等待帮助:VFP6里面用那几类函数实现对文本文件中的某个字符的位置查找? )
VFP6里面用那几类函数实现对文本文件中的某个字符的位置查找? 这种字符在此类文本文件中多次出现,如何判断其位置数?
---------------------------------------------------------------
cRedist=FILETOSTR("C:\FINGER\TEXT1.TXT") &&将一个文件的内容返回为一个字符串
J=OCCURS("r",cRedist) &&比如找字符r在文本文件中出现过几次
FOR I=1 TO J
?AT("r",cRedist,I) &&显示每次出现的位置
ENDFOR
---------------------------------------------------------------
将以下代码保存为prg文件:如:d:\prg\zfwz.prg
执行方法:do d:\prg\zfwz with "d:\我的文件夹\readme.txt","我"
Lpar cfile,cword
*传入参数:cfile--文本文件名
- cword--查找文字串
Local cstr,noccurs,i
cstr=filetostr(cfile)
noccurs=OCCURS(cword,cstr) &&返回一个字符表达式在另一个字符表达式中出现的次数。
?[文件 “&cfile.” 中出现了 ]+ltrim(str(noccurs))+[ 个 “&cword.”。]
?[出现的位置依次是:]
For i=1 to noccurs
??str(at(cword,cstr,i),4)
Endfor