vb吧 关注：156,014贴子：1,166,238
- 7回复贴，共1页
不感兴趣
开通SVIP免广告
七奈 说一下思路：
首先对于一个txt文件，要删掉最后一行，需要把原始文件所有内容读出，存入一个数组中（每个元素为一行内容），然后用Output方式打开原始文件（即把原始文件清空），把数组中除了最后一项以外的其余内容写入文件
然后，要处理所有文件，就是循环查找文件夹中的txt文件并进行同样操作
参考代码（未经测试）：
dim fn as string,s() as string,i as integer
fn=dir(app.path & "\aaa\*.txt")
do while fn<>""
open app.path & "\aaa\" & fn for input as #1
s=split(strconv(inputb(lof(1),1),vbunicode),vbcrlf)
close #1
open app.path & "\aaa\" & fn for output as #1
for i=0 to ubound(s)-1
print #1,s(i)
next i
close #1
fn=dir
loop
首先对于一个txt文件，要删掉最后一行，需要把原始文件所有内容读出，存入一个数组中（每个元素为一行内容），然后用Output方式打开原始文件（即把原始文件清空），把数组中除了最后一项以外的其余内容写入文件
然后，要处理所有文件，就是循环查找文件夹中的txt文件并进行同样操作
参考代码（未经测试）：
dim fn as string,s() as string,i as integer
fn=dir(app.path & "\aaa\*.txt")
do while fn<>""
open app.path & "\aaa\" & fn for input as #1
s=split(strconv(inputb(lof(1),1),vbunicode),vbcrlf)
close #1
open app.path & "\aaa\" & fn for output as #1
for i=0 to ubound(s)-1
print #1,s(i)
next i
close #1
fn=dir
loop
