Identification of characters in a text file

Hi, I was just wondering, say i wanted read a file but i only wanted to read 1 word or line from it. for example

whfduweihrfweihrfweihfsdhfsdhfsdjkfhsdkjhfkjwrew

the word in red is the word that i wanted to be printed to the text box on screen, is this possible?... if so dont suppose anyone could yell me how to do it?...

Thanks Nick

This should get you going...

Private Sub Command1_Click()

Dim fs, f, ts
Dim pos
Dim result As String
Dim MyString As String
Dim s As String

MyString = "weih"

'Ensure MS scripting runtime is selected in References
Set fs = CreateObject("scripting.filesystemobject")
Set f = fs.GetFile("c:\test1.txt")
Set ts = f.OpenAsTextStream(ForReading, 0)
s = ts.ReadAll
pos = InStr(1, s, MyString, 1)
result = Mid$(s, pos, Len(MyString))

MsgBox result

Set ts = Nothing
Set f = Nothing
Set fs = Nothing

End Sub

if you want to check for words you can do this , once you ave the string at hand :

Code:

---

Private Sub Command1_Click()
Dim s As String
s = "whfduweihrfweihrfweihfsdhfsdhfsdjkfhsdkjhfkjwrew"

If InStr(s, "weih") Then
    MsgBox "weih" ' /// weih is in the text
End If

MsgBox UBound(Split(s, "weih")) ' /// the amount of times weih is in there ( eg: 3 )

End Sub

---

Okay thanks guys that helped me alot.

now i need to spice it up

say i wanted to select character 9 then 16 then 19 from a sentance and then put them together in a text box is this possible. for example

whfduweiwprnsektinorkfjrnwqlkrjewkhfuj

the letters in red are the letters i want to be selected.

w = 9
t = 16
o = 19

If anyone could help me that would be great. Thank you very much

Nick

You can use the Mid$() function to copy from the string..

Code:

---

Private Function CollectChar(sString As String, ByVal sChars as String) As String
Dim i&
Dim sResult$

sResult = ""

For i = 1 to Len(sString)
 
  If Instr(sChars, Mid$(sString, i, 1)) <> 0 Then
    sResult = sResult & Mid$(sString, i, 1)
  End If

Next i

CollectChar = sResult

End Function

---