在对一个TXT文档操作时如何删除其中的一行?

acmo 2003-09-23 10:50:05
比如最后一行
...全文
125 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
射天狼 2003-09-24
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
Dim strTmp As String, strArray() As String

Open "C:\aa.txt" For Input As #1
strTmp = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1

strArray = Split(strTmp, vbCrLf) '将文件内容拆分成数组,一个数组元素代表一行,想删除哪行都行~~
End Sub
viena 2003-09-24
  • 打赏
  • 举报
回复
northwolves(野性的呼唤)是正解,用
open "C:\txt1.txt" for input as 1
do until eof (1)
line input #1,数组
loop
Depress 2003-09-24
  • 打赏
  • 举报
回复
用到seltext属性
作用:选定的正文内容。
James0001 2003-09-24
  • 打赏
  • 举报
回复
删除最后一行比较容易,
如果是中间或者第一行的话就不太好办。
northwolves 2003-09-23
  • 打赏
  • 举报
回复
先逐行读入数组,再逐行写,不写最后一个。
或读入一个字符串MYSTR,查找最后一个VBCRLF的位置M,再将left(mystr,m)写入到一个新文件。
liyd1978 2003-09-23
  • 打赏
  • 举报
回复
你必须先把文件写入一个中间的变量或者文件,
然后把需要的数据回写。

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧