Question

vb txt 删除指定行

Answer 1

文件还是文本框？不管是哪个，都要先把文本全部读出来，给一个字符串变量，然后对变量进行处理，处理完后再写回去!

Answer 2

Private Sub Command1_Click()
Dim arr, i As Long, N As Long
If Dir("c:\123.txt") = "" Then Exit Sub
Open "c:\123.txt" For Input As #1
arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbNewLine)
Close #1
N = 2 '删除第2行
If UBound(arr) < N - 1 Then Exit Sub '没有N行
Open "c:\123.txt" For Output As #1
For i = 0 To UBound(arr)
If i <> N - 1 Then Print #1, arr(i)
Next
Close #1
End Sub

Answer 3

是txt文件？