Question

VB如何实现删除TXT的前三行？

我有一大批TXT文件，但里面每个的前三行都是空白（有些会有一两个空格）的，我想批量删除了它。

Answer 1

找个变量（string型）如x，把txt内容放进去，在写x=cstr（x），既可以去掉前面的空格（无论多少个），或者用Ltrim（）（消除左边空格）、Rtrim（）（消除右边空格）、trim（）（消除左右空格）函数。希望对你有帮助。

Answer 2

Dim bytFileInput as byte
Dim bytFileOutput as byte

Dim strPathInput as string
Dim strPathOutput as string

dim strData as string

strPathInput = "C:\大批TXT文件名.txt“
strPathoutput = "C:\大批TXT文件名_处理过的.txt"
bytFileInput = freefile
Open strPathInput for input as #bytFileInput

bytFileOutput = freefile

Open strPathOutput for output as #bytFileOutput
Do while not eof(bytFileInput)
strData = lineinput #bytFileInput
print #bytFileOutput, trim(strData)
Loop
Close #bytFileOutput

Close #bytFileInput

大致如此，没有做实测，可能会有拼写错误，仅供参考。
如果需要处理多个文件，在外面加个For each 循环。

Answer 3

readline 后 如果 trim 等于空就不 writeline 否则writeline

Answer 4

用line读入整个文件，每行存入数组，输出时从第四个元素开始输出。