-
[RESOLVED] dropping text
How do i make the code drop the first 10 characters from each line of the source txt?
Code:
Open "source.txt" For Input As #1
Open "destination.txt" For Output As #2
Do While Not EOF(1)
Line Input #1, LineOfText
Print #2,
Print #2, LineOfText
Loop
Close #1
Close #2
-
Re: dropping text
Code:
Dim sLineOfText As String
Dim sLineOfTextShortened As String
sLineOfText = "1234567890abcdefgh"
sLineOfTextShortened = Mid(sLineOfText, 11)
-
Re: dropping text
In the case of the code in the OP
Code:
Print #2, Mid$(LineOfText,11)
-
Re: dropping text
..... how do I get it to drop the first 10 characters of each line?
please explain i don't know what that last post means Datamiser -_-
-
Re: dropping text
Perhaps it would be a good idea to look up the Mid() function rather than having me type out an explaination
-
Re: dropping text
simple and to the point the mid fuction has been a life saver