Question

VB 一个文本框text1，一个按钮command1,一个文件D:\1.txt

在文本框内输入一个数字，比如2，则删除1.txt中的第2行
代码怎么写

Answer 1

Private Sub Command1_Click()
Open "d:\1.txt" For Input As #1
T = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
k = Split(T, vbCrLf)
Open "d:\1.txt" For Output As #1
For i = 0 To UBound(k)
If i <> Val(Text1) - 1 Then Print #1, k(i)
Next
Close #1
End Sub
‘请参考。

追问

可以告诉我qq 吗，求拜师

Answer 2

提供一个思路吧。 在
按钮command1 的单击事件中写。
首先判断 text1中输入的是有效的数字，，然后 逐行读取 1.txt，读取到输入的那行时就跳过，
然后把读取到的内容在 写回到 1.txt中