VB Code:
Private Sub Command1_Click() Dim filename As String filename = App.Path & "\Listview.txt" Open filename For Input As #1 Text1.Text = Input(LOF(1), #1) Text1.Text = Replace(Text1.Text, Chr(0), "") Text1.Text = Replace(Text1.Text, vbCrLf, "") Text1.Text = Replace(Text1.Text, Space$(number here), "") Close #1 End Sub
This will put spaces in between each line. Set the integer to what you want![]()




Reply With Quote