VB如何获得外部文本的总行数+写入

发布网友发布时间：2024-10-22 07:39

共1个回答

热心网友时间：2024-11-24 18:23

Private Sub Command1_Click()
Dim count As Integer
Open "d:\aaa.txt" For Input As #1
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
count = count + 1
Loop
Close #1
Open "d:\aaa.txt" For Append As #1
Print #1, count
Close #1
End Sub
不清楚你的要写的最后一排是指有文字的最后一排还是另起一行呢？这个程序是在文本的后面添加的。追问我试了下真的完美解决问题，只是为什么写入的“行数值”前后各有一个空格？

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com