Private Sub Command1_Click() Open "d:\.txt" For Input As #1 Dim Lines As String Dim NextLine As String Dim i As Integer Do While Not EOF(1) On Error Resume Next Line Input #
$False$
le="COLOR: #000000">1, NextLine Lines = Lines & NextLine & Chr(13) & Chr(10) Loop Close #1 Text1.Text = Lines End Sub
Private Sub Command2_Click() Open "d:\.txt" For Output As #1 Print #1, Text1.Text Close #1