7,762
社区成员
发帖
与我相关
我的任务
分享请问怎样在文本文件的指定位置输入或删除文字？如……
请问怎样在文本文件的指定位置输入或删除文字？如111.txt里本来有很多内容，在文件的34行插如“abcdefghijklmn”，并删除第10行到第18行的内容。
请大家帮帮忙，先谢了！！
请大家帮帮忙，先谢了！！
...全文
请发表友善的回复…
发表回复
还想懒够 2003-02-28
- 打赏
- 举报
楼上的太可爱了，只不过确实是一个好办法
lxcc 2003-02-28
- 打赏
- 举报
listbox应该可以！
不过不用读全部，可以用分页技术，用
Private Sub List1_Scroll()
End Sub
事件，
不过不用读全部，可以用分页技术，用
Private Sub List1_Scroll()
End Sub
事件，
wl23 2003-02-28
- 打赏
- 举报
不好意思，近来被老板催着搞其它东西没时间测试，过几天我一定测试一下。放到listbox中操作？？怎么写？我的TXT文件内容会有5、6百k不会有事吧？好人做到底给点代码提示吧。谢谢了
用户 昵称 2003-02-25
- 打赏
- 举报
放到listbox中操作。
northwolves 2003-02-25
- 打赏
- 举报
Private Sub Command1_Click()
action "c:\123.txt", "c:\new.txt"
End Sub
Sub action(ByVal txtpath As String, ByVal newtxt As String)
On Error Resume Next
Dim filetxt As String, x As Variant, i As Long
filetxt = String(FileLen(txtpath), " ")
Open txtpath For Binary As 1
Get #1, , filetxt
Close 1
x = Split(filetxt, vbCrLf)
filetxt = Replace(filetxt, x(33), "abcdefghijklmn" & vbCrLf & x(33))
For i = 9 To 17
filetxt = Replace(filetxt, x(i) & vbCrLf, "")
Next
Kill newtxt
Open newtxt For Output As #1
Print #1, filetxt
Close #1
End Sub
action "c:\123.txt", "c:\new.txt"
End Sub
Sub action(ByVal txtpath As String, ByVal newtxt As String)
On Error Resume Next
Dim filetxt As String, x As Variant, i As Long
filetxt = String(FileLen(txtpath), " ")
Open txtpath For Binary As 1
Get #1, , filetxt
Close 1
x = Split(filetxt, vbCrLf)
filetxt = Replace(filetxt, x(33), "abcdefghijklmn" & vbCrLf & x(33))
For i = 9 To 17
filetxt = Replace(filetxt, x(i) & vbCrLf, "")
Next
Kill newtxt
Open newtxt For Output As #1
Print #1, filetxt
Close #1
End Sub
雨谦飞扬 2003-02-25
- 打赏
- 举报
删除一个空白行，怎么删？
wl23 2003-02-25
- 打赏
- 举报
能给些代码提示一下吗
用户 昵称 2003-02-25
- 打赏
- 举报
读入全部文件，用replace就行了
qixg 2003-02-25
- 打赏
- 举报
用RichTextbox读入全部文件，然后就很好操作了。
wl23 2003-02-25
- 打赏
- 举报
唉，也许只有这样了
chenxin790311 2003-02-24
- 打赏
- 举报
这个只能把文件内容读到字符串里，然后在字符串里处理后再写到文件里。好象没有什么更好的办法
wl23 2003-02-23
- 打赏
- 举报
试了一下发现个新问题。我打开这个文件后先要对文本文件做全局搜索、比较，然后再进行在指定位置删除或增加内容。我现在做好了全局搜索、比较，可不知怎样在指定位置删除或增加内容。难道又要重新读一遍，再做修改吗？请各位高手指教。
youchenglong 2003-02-19
- 打赏
- 举报
我也同意用line input，这类的问题我都用这解决的，就是打开两个文件
把第一个的内容读出来，判断，再写入第二个文件，完成后，就删了第一个，改第二个为第一个的名字
烦是烦了点，不过效果还可以
把第一个的内容读出来，判断，再写入第二个文件，完成后，就删了第一个，改第二个为第一个的名字
烦是烦了点，不过效果还可以
lovepeacer 2003-02-19
- 打赏
- 举报
要先读到内存中，再处理
jamesfay 2003-02-19
- 打赏
- 举报
用line input 可以整行整行的读文件
chenxin790311 2003-02-19
- 打赏
- 举报
up
wl23 2003-02-19
- 打赏
- 举报
谢谢各位！我先试试然后把代码贴出来给下一个新手作参考，问题解决了的话一定结贴。谢谢大家帮忙。
