Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Sub Command1_Click()
Dim TextFileDir As String
Dim TempFileString
TextFileDir = "C:\TEST.txt"
'Read file contents to string
Open TextFileDir For Input As #1
TempFileString = Input(LOF(1), 1)
Close #1
'Replace chr(10) with ""
'No Looping is required because the replace
'function makes all possible replacements
TempFileString = Replace(TempFileString,Chr(10), "", 1, , vbTextCompare)
'Re-Write File with changes
Open TextFileDir For Output As #1
Print #1, TempFileString
Close #1
End Sub
[\code]