|
楼主 |
发表于 2009-11-2 13:08
|
显示全部楼层
下班,占个位,回来帮你弄
复制内容到剪贴板代码:
Sub cht()
Dim objFSO As Object, objFile As Objectg
Dim txtpath As String, cr As Long, ct As String, d As String, allt
txtpath = ThisWorkbook.Path & "\text.txt" '该为你自己的路径
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(txtpath, 1)
d = objFile.ReadAll
allt = Split(d, vbCrLf, -1, 1)
objFile.Close
cr = InputBox("输入需要更改的文本行数")
ct = InputBox("输入需要更改的文本内容")
allt(cr - 1) = ct
Set objFile = objFSO.createtextfile(txtpath, 1)
d = Join(allt, vbCrLf)
objFile.write d
objFile.Close
Set objFile = Nothing: Set objFSO = Nothing
End Sub
大虾,你的算法是把所有的文本内容读到一个数组里面,更改相应的数组项之后再把该数组项写回TXT里面,我也想过这种办法,但是如果我想修改指定行数的指定字段的话(不是整行全部修改)可能就必须要定义三个
数组了,还有没有什么好办法呢?非常感谢您的热心帮助。 |
|