Question

VB中怎样把Text1的内容写入到一个有文字的txt的某一行？

我要写入到txt的第16行，并且要覆盖原来的第16行

Answer 1

Sub ReplaceTxt(TxtFilePath As String, ReplaceStr As String, Line As Integer) 'TxtFilePath表示txt文件路径，ReplaceStr表示用ReplaceStr覆盖原来的，Line表示覆盖第Line行
Dim i As Integer, FileNum As Integer
Dim TempStr As String, TxtLine() As String
FileNum = FreeFile
If Dir(TxtFilePath) = "" Then
Open TxtFilePath For Output As #FileNum
Close #FileNum
End If
Open TxtFilePath For Input As #FileNum
Do While Not EOF(1)
i = i + 1
ReDim Preserve TxtLine(1 To i) As String
Line Input #FileNum, TempStr
TxtLine(i) = TempStr
Loop
Close #FileNum
TxtLine(Line) = ReplaceStr
Open TxtFilePath For Output As #FileNum
For i = 1 To UBound(TxtLine)
Print #FileNum, TxtLine(i)
Next
Close #FileNum
End Sub

Private Sub Command1_Click()
Call ReplaceTxt("d:\2.txt", "this is a test", 16) '调用示例
End Sub

Answer 2

Private Sub Command1_Click()
iii = 16 '第几行
Dim arr() As Byte
Open "E:\1.txt" For Binary As #1
ReDim arr(1 To LOF(1))
Get #1, , arr
Close #1
arr1 = Split(StrConv(arr, vbUnicode), vbCrLf)
If iii - 1 < UBound(arr1) + 1 Then arr1(iii - 1) = Text1
Open "E:\2.txt" For Output As #1
Print #1, Join(arr1, vbCrLf)
Close #1
End Sub

Answer 3

如果你是软件配置之类的，建议用vb操作ini

Answer 4

将