[RESOLVED] Loading a Saved text file and ||

I'm using the code below to load contents of network.txt in to a text box

Code:

---

  sFilename = App.Path & "/config/network.txt"
 If Dir(App.Path & "/config/") <> "" Then
 hFile = FreeFile
  Open sFilename For Input As #hFile
      Text1.Text = Input$(LOF(hFile), hFile)
  Close #hFile

---

It does this but add two vertical lines in the text box after it. Any Ideas as this is causing a prob when I then use the contents of network.txt as part of a file path ie

Code:

---

whole_file = GrabFile(Text1.Text & "\trnewsroom\users\users.dat")

---

I assume what these vertical lines are doing is causing it to got to c:\tr||\trnewsroom\users\users.dat which is causing it to fail.

any help would be greatly appreciated.

I'm curious what the pipes really are for characters
Can you do this?

MsgBox asc(right(text1.text,1))

This will pop up a number between 0 and 255, which one? If it is 13 or 10, you are also taking a carriage return or line feed which might cause the problem. You need to trim this one then, could be done by:

Text1.Text = Left(Text1.Text, Len(Text1.Text) - 2)

Its saying 10

Thats a linefeed (vbLf), you need to remove it then :)

Thanks, I found the code below to do that. All works now (prob not the most elegant way of doing it but hey it works).

Code:

---

Dim strV

strV = Text1.Text
Text2.Text = Replace(strV, Chr(13) & Chr(10), "")
Text1.Text = Text2.Text

---

It's cleaner then my solution; just removing the last two chars ;)
You could replace Chr(13) & Chr(10) by vbCrLf or vbNewLine though, it's shorter and faster.
See also; http://www.vbforums.com/showthread.php?t=575726