Vista - find/replace on file

Hello,

I'm new to vbscript. I want to open a text file find 2 paragraph makrs
and replace them with some text. When I run this code everything in the
file gets deleted. Can anyone tell me why and suggest a way fixing
this. If I remove the '{2}' from line 10 then script delete one
paragraph mark and replace it with text but if I try to specity 2 or
more paragraph marks all file contents are deleted. Is this regular
expression correct or is it the way the file is read into memory? I also
want to insert text at the start of the file and at the end of the file.
Any suggestions.



'Declare all the variables
Dim re, strSearchString, strNewText

Const ForReading = 1
Const ForWriting = 2

Set re = New RegExp


re.Pattern = "\n{2}"
re.IgnoreCase = True
re.Global = True


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Scripts\Text.txt", ForReading)
strSearchString = objFile.ReadAll
objFile.Close
If re.test(strSearchString) then
strNewText = re.replace(strSearchString, "','")
Else
End If

Set objFile = objFSO.OpenTextFile("C:\scripts\Text.txt", ForWriting)
objFile.WriteLine strNewText
objFile.Close


Thanks,

James

"James" <jwanders@xxxxxx> wrote in message
news:zJEKl.7926$WT7.6910@xxxxxxSince you wish to search for a fixed text strings, you don't really need a
regular expression. You should also use "write" instead of "writeline"
unless you wish to add a terminating paragraph marker. The following code
will do the job nicely.

Dim strSearchString, objFSO, objFile
Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("d:\Test.txt", ForReading)
strSearchString = objFile.ReadAll
objFile.Close

Set objFile = objFSO.OpenTextFile("c:\Test.txt", ForWriting)
objFile.Write Replace(strSearchString, VbCrLf, "','")
objFile.Close

Pegasus [MVP] wrote:Thanks for that. How would I specify a search for 2 carriage returns?
Also I want to find the start of the file and end of the file and insert
text. How do I search for this?

James

"James" <jwanders@xxxxxx> wrote in message
news:NsfQl.40460$%_2.14511@xxxxxxThis is not really a "search" for two carriage returns, but it will replace
each paired set of carriage returns with "~~~" and each remaining single
carriage return with "','":

dim temp
Set objFile = objFSO.OpenTextFile("c:\Test.txt", ForWriting)
temp = Replace(strSearchString, VbCrLf & VbCrLf, "~~~")
temp = Replace(temp, VbCrLf, "','")
objFile.Write temp
objFile.Close
No need to "search" for these things as they are sitting right in front of
you (speaking words of wisdom... oh, let's just let it be ;-):

dim temp
Set objFile = objFSO.OpenTextFile("c:\Test.txt", ForWriting)
temp = Replace(strSearchString, VbCrLf & VbCrLf, "~~~")
temp = Replace(temp, VbCrLf, "','")
temp = "at beginning" & VBCRLF & test & VBCRLF & "at end"
objFile.Write temp
objFile.Close

/Al

Al Dunbar schrieb:
[...]temp = "at beginning" & VBCRLF & temp & VBCRLF & "at end"