Public函數replace line（fName為字符串，LineNumber為Long，LineText為字符串）為布爾值
功能:替換指定文本文件中指定行的數據。
參數:fName =全文文件路徑名+文件名。
LineNumber =要更換的線路數量（數量）
line text =‘要替換的字符文本。
Return: True表示正確執行，false表示其他失敗錯誤。
需要:參考-Microsoft腳本運行時
示例:替換MYFILE第三行中的文本。TXT在C目錄下用Abcde。
replace line（“C:\ my file . txt“，3，“Abcde“）
Ewang11在作者MSDN。
'______________________________________________________________
Dim oFSO As New FileSystemObject
作為腳本的Dim oFSTR。文本流
Dim ret壹樣長
將lCtr調長
Dim sTemp作為字符串，sLine作為字符串
將bLineFound設為布爾值
如果是這樣。文件存在（fName）那麽
Set oFSTR = oFSO。打開文本文件（fName）
lCtr = 1
做而不做。雅典灣流
sLine = oFSTR。閱讀線
如果lCtr & lt& gt那麽行號
sTemp = sTemp &。斯萊恩& ampvbCrLf
其他
sTemp = sTemp &。LineText & ampvbCrLf
bLineFound = True
如果…就會結束
lCtr = lCtr + 1
環
oFSTR。關閉
Set oFSTR = oFSO。create textfile（fName，True）
oFSTR。寫sTemp
ReplaceLine = bLineFound
如果…就會結束
oFSTR。關閉
Set oFSTR =無
Set oFSO =無
結束功能
按如下方式調用該函數
調用replace line（current project。路徑與方法。“\Myfile.txt“，3，“abcd“）
或者
將字符串標註為布爾值
str = replace line（current project。路徑與方法。“\Myfile.txt“，3，“78596“）
或者參考下面的代碼，自己學習。
用VB操作文本文件有很多種方法。以下例子是我在做自己的項目或回答網友提問時所做的具有代表性的例子。我希望他們能給我所有的朋友壹些啟發。
功能:刪除、替換文本中的壹行，或將內容插入文本中的壹行。
作者:soho _安迪（冰）
參數:
strSourceFile原始文件的全名。
StrTargetFile生成新文件的全名。
intRow操作的行數。
子操作文件中的壹行（字符串形式的str源文件，字符串形式的str目標文件，長字符串形式的intro）。
將filenum設為整數
將文件內容顯示為字符串
Dim fileInfo（）作為字符串
將I設為整數
將j標註為整數
filenum = FreeFile
以#filenum格式打開二進制文件的strSourceFile
file contents = Space（LOF（filenum））
獲取#filenum，，文件內容
關閉filenum
fileInfo = Split（文件內容，vbCrLf）
取出源文件中的行數，並根據回車和換行符將它們分成數組。
filenum = FreeFile
if Dir（strTargetFile，VB normal）& lt；& gt”“那麽
殺死strTargetFile
如果…就會結束
Dim Filestr（）作為字符串
刪除壹行代碼塊
打開strTargetFile以#filenum形式追加
循環每壹行。
對於i = 0到UBound（fileInfo）-1
如果我& lt& gtintRow - 1然後
打印#filenum，fileInfo（I）
如果…就會結束
然後
關閉#filenum
替換壹行代碼塊
打開strTargetFile以#filenum形式追加
循環每壹行。
對於i = 0到UBound（fileInfo）-1
如果i = intRow - 1，則
打印#filenum，“您想要替換的內容”
如果…就會結束
然後
關閉#filenum
插入壹行代碼塊
打開strTargetFile以#filenum形式追加
循環每壹行。
對於i = 0到UBound（fileInfo）-1
如果i = intRow - 1，則
打印#filenum，“您要插入該行的內容”
打印#filenum，fileInfo（I）？保持原來的線並將其向後移動壹個位置。
如果…就會結束
然後
關閉#filenum
MsgBox“結束”
末端接頭