主题：请问有什么办法可以知道一个文件中的字符数?
shiqi0395
[专家分：0] 发布于 2005-12-19 22:01:00
字符数
应该怎么写?请帮忙,谢谢!
回复列表 （共10个回复）
沙发
QB71 [专家分：1300] 发布于 2005-12-18 03:55:00
Num%=freefile
FileName$="a.txt"
open FileName$ as Num%
Size&=Lof(Num%)
close Num%
if Size& =4 then
shell "a.txt"
else
shell "b.txt"
endif
板凳
moz [专家分：37620] 发布于 2005-12-18 10:51:00
需要检测 空格，回车，换行，文件结束符 吗？
3 楼
shiqi0395 [专家分：0] 发布于 2005-12-18 22:04:00
谢谢ＱＢ７１的帮助！也谢谢ＭＯＺ的提醒！
我需要检测 空格，和符号（，．／ ？：＂＂＜＞等）但不需检测回车，换行，文件结束符．
4 楼
shiqi0395 [专家分：0] 发布于 2005-12-18 22:18:00
我试了一下，不行.
5 楼
moz [专家分：37620] 发布于 2005-12-19 11:52:00
open "a.txt" for input as #1
do until eof(1) or k%>4
if input$(1,1)>chr$(31) then k%=k%+1
loop
close #1
if k%=4 then shell "a.exe"else shell "b.exe"
6 楼
shiqi0395 [专家分：0] 发布于 2005-12-19 13:09:00
if input$(1,1)>31 then k%=k%+1
试运行时,提示这一句好象有问题?帮我在看一下好吗?谢谢!
7 楼
moz [专家分：37620] 发布于 2005-12-19 13:30:00
呵呵不好意思
if input$(1,1)>[color=FF00FF]chr$(31)[/color] then k%=k%+1
8 楼
shiqi0395 [专家分：0] 发布于 2005-12-19 14:01:00
谢谢!
请问有没有办法检查空格?如括号里的表示:(AB1 )
这个括号里看看只有3位,其实是4位,因为还有一个空格.(以上程序就是检测为4位)
我想像这样的格式让他检测空格,算3位.可以吗?
9 楼
moz [专家分：37620] 发布于 2005-12-19 16:16:00
可以，你的意思是忽略空格，
把 chr$(31) 改成 chr$(32) 就可以了。
10 楼
shiqi0395 [专家分：0] 发布于 2005-12-19 16:28:00
再次感谢!!!!
我来回复
您所在位置：