单击一个command 删除txt文档中某一行内容,着重于任意一行
那怎么删除特定内容呢 我按行读取文档中内容在text中 然后利用command删除显示的哪一行怎么做
1.å¨Dçä¸å»º111.txtï¼ä¹å¯ä»¥å¨å ¶ä»çä¸å»ºï¼èªå·±å®ï¼
2.formä¸æListbox,Command,textä¸ä¸ªæ§ä»¶
å¤å¶ä»¥ä¸ä»£ç
Private Sub Command1_Click()
Open "d:\111.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, dat
s1 = s1 & dat & ","
Loop
Close #1
s2 = Split(s1, ",")
For i = 0 To UBound(s2)
List1.AddItem s2(i)
Next i
List1.ListIndex = Val(Text1.Text) - 1
List1.RemoveItem List1.ListIndex
Open "d:\111.txt" For Output As #1
For n = 0 To List1.ListCount
Print #1, List1.List(n)
Next n
Close #1
End Sub
Private Sub Form_Load()
List1.Visible = False
End Sub
ä¸æç½ä½ çææï¼è¿æ¯VBç±å¥½è QQ群16565019ï¼ä½ å è¿å»è¿æ ·å±ä»¬è¯´èµ·æ¥è¿æ¯è¾æ¹ä¾¿