Extracting a word from a text file? Please, HELP!

[rferrer61]

Hi there,
I know how to clear the blank spaces from a text file and how to get the amount of characters in my text file. However, I would like to be able to extract a word which change every time I create my text file.
Any ideas?
Thank You in advance,

RF

 

[JohnYingling]

Read in the file with one command. I use the FileSystemObject.
Dim strFileData As string
Dim strFileIn As String
strFileIn = "C:\In.txt"
strFileOut = "C:\Out.txt"

strFileData = ReadProto(strFileIn)
strFileData = Replace(strFileData,"MyWord","NewWord",vbTextCompare)
WriteProto strFileOut, strFileData, ForWriting
Private Function ReadProto(strFileName As String) As String
Dim objFS As FileSystemObject
Dim objTS As TextStream

Set objFS = New FileSystemObject
Set objTS = objFS.OpenTextFile(strFileName, _
ForReading, False, TristateFalse)
ReadProto = objTS.ReadAll
objTS.Close
Set objTS = Nothing
Set objFS = Nothing
End Function
Private Sub WriteProto(strFileName As String, _
strOut As String, _
lngIoMode As IOMode)
Dim objFS As FileSystemObject
Dim objTS As TextStream

Set objFS = New FileSystemObject
Set objTS = objFS.OpenTextFile(strFileName, _
lngIoMode, True, TristateFalse)
objTS.Write strOut
objTS.Close
Set objTS = Nothing
Set objFS = Nothing
End Sub

http://www.VBResizer.com

Generate Forms/Controls Resizing/Tabbing Class

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[dsb]

By "need to extract" a word.... what do you mean?

Is it a particular word in a specific location or do you have to figure out if a word has changed and which one it is ?


Perhaps a statement of purpose at the business-problem level rather than what the program has to do would make it clearer.