How to find all string within string.

macropod · #1 02-05-2016, 04:45 AM

Regardless of whether you want to "want to play with text and not the rtf as opened in word", that doesn't mean you can't open the file as text in Word and process it as such. For example:

Code:

Sub Demo()
Dim wdDoc As Document
Set wdDoc = Documents.Open(FileName:="C:\Users\rahul\Desktop\PLR\1.rtf, Format:=wdOpenFormatText, AddToRecentFiles:=False)
With wdDoc
  'process here
  .Close SaveChanges:=True
End With
End Sub

That said, here is another macro you could use in any Office application:

Code:

Sub EditRTFFile()
'Requires a reference to Microsoft VBScript Regular Expressions 5.5
Dim DataFile As String, TextLine As String, Data As String, regEx
DataFile = "C:\Users\rahul\Desktop\PLR\1.rtf"
Set regEx = CreateObject("vbScript.RegExp")
Data = ""
Open DataFile For Input As #1
Do Until EOF(1)
  Line Input #1, TextLine
  On Error Resume Next
  With regEx_
    .Global = True
    .MultiLine = True
    .IgnoreCase = True
    .Pattern = "\{\\\w{4}\\\w{4}\\\w{11}"
    TextLine = regEx_.Replace(TextLine, "mmrk$&")
  End With
  Data = Data & TextLine & vbCrLf
Loop
Close #1
Open DataFile For Output As #1
Print #1, Data
Close #1
Set regEx = Nothing
End Sub

The above assumes you have a reason for processing the file one line at a time, rather than just opening it as a text file and simply processing all lines together.

PRA007 · #2 02-06-2016, 04:30 AM

Problem is not in opening file, reading it line by line and doing regex. Real problem starts after that.

For example I am getting by any means, StrTxt as string which contains multiple lines or I don't know how string behaves inside object. As far as my problem concerns I get StrTxt from two souces.

1. by opening a file.

2. from httprequests.

In both the case I end up with StrTxt as string.

So the question is, If My StrTxt contains multiple occurrences of a string like "string", how to get all of it.

For example in hypothetical string.

Code:

StrTxt = "mmrkxyz" & vbCr & "mmrkyzx" & vbCr & "xyz" & vbCr & "yzx" & vbCr & "mmarkxxx"

Now I Just want to get all the lines that have initial mmrk as string like this, so that I can further process it.

Code:

StrTxt = "mmrkxyz" & vbCr & "mmrkyzx" & vbCr & "mmarkxxx"

I don't know how to better explain this, but I can not find any answer of this.

To make it simple, My strings contains multiple lines. I just want it to reduced to lines that contains specific characteristics like Left(StrTxt, 4) = "mmrk".

macropod · #3 02-06-2016, 03:21 PM

Quote:

Originally Posted by PRA007

So the question is, If My StrTxt contains multiple occurrences of a string like "string", how to get all of it.

For example in hypothetical string.

Code:

StrTxt = "mmrkxyz" & vbCr & "mmrkyzx" & vbCr & "xyz" & vbCr & "yzx" & vbCr & "mmarkxxx"

Now I Just want to get all the lines that have initial mmrk as string like this, so that I can further process it.

Well, I'm sure you know that a simple Find/Replace in Word can process all instances in a single pass, which is why it might be good to open the file with Word. And, for simple strings in VBA, so to could the VBA Replace method process all instances in a single pass.

PRA007 · #4 02-07-2016, 11:51 PM

That Is what I am currently doing sir. Have no problem with That but thought if withing VBA it is possible It would be great for knowledge.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Wildcard replace any string in context with a specified string	wardw	Word	7	05-07-2018 09:13 AM
How can I compare a string in a cell to another string?	Amitti	Word VBA	2	04-10-2017 07:35 PM
Why is this Find string not working	TechEd	Word VBA	5	07-05-2014 08:12 PM
Way to search for a string in text file, pull out everything until another string?	omahadivision	Excel Programming	12	11-23-2013 12:10 PM
Bad view when using Find and Find & Replace - Word places found string on top line	paulkaye	Word	4	12-06-2011 11:05 PM