Message 1 of 1
Read file
Not applicable
08-29-2005
10:11 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi
I know this works outside of Revit can't get to work when called.
code
If System.IO.File.Exists("filename.txt") = True Then
'open file and read contents
objWordReader = System.IO.File.OpenText("filename.txt")
Do Until objWordReader.Peek = -1
wordlevel = objWordReader.ReadLine()
If wordlevel.StartsWith("x") = True Then
wordremove = wordlevel.Remove(0, 17)
intword = wordremove.IndexOf(",")
wordremoveII = wordremove.Remove(0, intword + 1)
NewWord = wordremoveII.Substring(0, 5)
TextBox1.Text = NewWord
End If
Loop
objWordReader.Close()
End If
Thanks
bob v
I know this works outside of Revit can't get to work when called.
code
If System.IO.File.Exists("filename.txt") = True Then
'open file and read contents
objWordReader = System.IO.File.OpenText("filename.txt")
Do Until objWordReader.Peek = -1
wordlevel = objWordReader.ReadLine()
If wordlevel.StartsWith("x") = True Then
wordremove = wordlevel.Remove(0, 17)
intword = wordremove.IndexOf(",")
wordremoveII = wordremove.Remove(0, intword + 1)
NewWord = wordremoveII.Substring(0, 5)
TextBox1.Text = NewWord
End If
Loop
objWordReader.Close()
End If
Thanks
bob v