[xilith117]

I want my program to read through a text file and insert a new line in the file every time it finds the letter "v".

text file: "v 100 200 300v 20 goop glopv 300 2.9"
Output:
"
v 100 200 300
v 20 goop glop
v 300 2.9"

here is what I have so far:

fso = CreateObject("Scripting.FileSystemObject")
            inputFile = fso.OpenTextFile(ofd.FileName, 1)
            str = inputFile.ReadAll
str = Replace(str, "v", "*new line* & "v")

Thanks. />

[andrewsw]

str = Replace(str, "v", "\nv")

[xilith117]

that just puts an extra backslash before each v in the textfile
"\v 10 0 10\v 9.487180 0 10\v 8.974360 0 10\v 8.461538 0 10\v 7.948718 0 10\v 7.435898"

[rob2k9]

this could be done esy buy just loading your text into a string and then using split to split your text at every v

[rob2k9]

fso = CreateObject("Scripting.FileSystemObject")
	            inputFile = fso.OpenTextFile(ofd.FileName, 1)
	            str = inputFile.ReadAla
Dim textsplit() As String
textsplit = str.split("v")

For i = 0 to textsplit.Length - 1
textbox1.text = "v" & textsplit(i) & vbnewline
Next

[andrewsw]

Sorry, we can't use \escape characters in VB. Try

str = Replace(str, "v", ControlChars.NewLine & "v")

There is also ControlChars.CrLf but this should be the same.

[xilith117]

Thanks everyone, my code works now.