如何快速获取文件行数

判断是不是空行啊，假如是空行就不计数；假如读到的不是空格也不是制表符，flag = 1；假如读到的是回车，而且flag == 1，则count++，flag = 0；否则直接flag=0。目的是为了读取足够长的行，可以采用下面的读取方式：ifstream infile("a.txt")//此处默认的文件打开方式为“以输出的方式打开”char str[N]//N是定义的常数，目的是为了读取足够长的行int n=0//用来表示说读/写文本的行数while(!infile.eof()){ infile.getline(str, sizeof(str))//此处默认的终止标识符为‘\n’ n++}cout<<n

第一步：打开要统计行数的word文档，或者将需要统计行数的文字拷贝到一个空白的word文档中。

第二步：不要用鼠标框选任何文字，点击菜单中的【审阅】-【字数统计】，在d出的【字数统计】窗口中可以看到整篇文章的字数、行数等信息。

如果要统计某段文字的行数，可以用鼠标框选要统计的段落，再次点击【字数统计】，在d出框中可以看到这段文字的字数和行数。

把文本写入文件,用line input读出每一行的内容,判断首字母计数就可以了.

====最新回复=====

需要三个文件框:Text1,Text2,Text3,及一个按钮command1

代码如下,供参考:

Private Sub Form_Load()

Text1.Text = "在此输入要处理的文件路径"

Text2.Text = "在此输入要查找的首字母"

Text3.Text = "此处显示文件各行的内容"

End Sub

Private Sub Command1_Click()

Dim everyline() As String

Dim n As Integer

Call dealtext(Text1.Text, everyline(), Text2.Text, n)

Text3.Text = ""

For i = 0 To UBound(everyline())

Text3.SelText = "第" &CStr(i + 1) &"行：" &everyline(i) &vbCrLf

Next i

Text3.SelText = "首字母为" &Text2.Text &"的有 " &CStr(n) &"行"

End Sub

Public Sub dealtext(filename As String, l_content() As String, T_chr As String, d_num As Integer)

Dim fn As Integer

ReDim l_content(100)

If filename = "" Then Exit Sub

On Error GoTo errtrap

fn = FreeFile

Open filename For Input As fn

Do While Not EOF(fn)

Line Input #fn, l_content(i)

If UCase(Left(l_content(i), 1)) = UCase(T_chr) Then d_num = d_num + 1

i = i + 1

If i >99 Then

ReDim Preserve l_content(i)

End If

Loop

ReDim Preserve l_content(i)

Close fn

Exit Sub

errtrap:

MsgBox "请检查你的文件名是不是有误!"

End Sub

---