请问如何识别编辑框内文字(从TXT文件导入)的段落数量

shschy 发布于 2024-11-05 12:34， 150 次点击

请问如何识别编辑框内文字(从TXT文件导入)的段落数量
第一步：要计算编辑框内文字有几个段落，先从TXT文件导入到编辑框，
第二步：再用occur（）函数来读取编辑框内文字中chr(13)+chr(10)字符串的数量
但是VFP提示“行太长”
请问有解决方法吗？
另len()函数读取编辑框内文字长度是9193。

3 回复

csyx2024-11-05 13:38

第一步：...
第二步：
Dimension aTemp[1]
? ALines(aTemp, edit1.value)

shizi05 天前 23:48

Set Memowidth To 8000
?Memlines(edit1.value)
可直接从txt文件获得行数：?Memlines(Filetostr(Getfile()))

kosung4 天前 12:25

OCCURS(chr(13)+chr(10),FILETOSTR(getfile("TXT")))