View Single Post
Old 06-15-2009   #6 (permalink)
Pegasus [MVP]


 
 

Re: script for multi text replacement

Sorry, can't understand "What if i need to replace the text more than ten" -
please rephrase.


"tonycd" <tonycd@xxxxxx> wrote in message
news:69C4CC27-9A58-41F3-830F-3FC5972B4F55@xxxxxx
Quote:

> Thanks all
>
> What if i need to replace the text more than ten. Thanks again
> regards
> Tony
>
> "Paul Randall" wrote:
>
Quote:

>>
>> "tonycd" <tonycd@xxxxxx> wrote in message
>> news:74DABA76-6B73-4153-9926-2726ABF13D41@xxxxxx
Quote:

>> > Hi
>> >
>> > I just copy the script from Microsoft web site that for replace the
>> > text.
>> > But how can i enhance the script for multi - text replacement. Thanks
>> > i try with this (i put the star in front of script) , but it doesn't
>> > work.
>> >
>> > regards
>> > Tony
>> >
>> > Const ForReading = 1
>> > Const ForWriting = 2
>> >
>> > Set objFSO = CreateObject("Scripting.FileSystemObject")
>> > Set objFile = objFSO.OpenTextFile("C:\Scripts\Text.txt", ForReading)
>> >
>> > strText = objFile.ReadAll
>> > objFile.Close
>> > strNewText = Replace(strText, "Jim ", "James ")
>> > ****strNewText = Replace(strText, "abc ", "apple ")
>> >
>> > Set objFile = objFSO.OpenTextFile("C:\Scripts\Text.txt", ForWriting)
>> > objFile.WriteLine strNewText
>> > objFile.Close
>>
>> You probably already have file script56.chm on your computer. If not, go
>> to
>> msdn.microsoft.com's download tab and search for and download it, and
>> read
>> up on the replace function.
>>
>> It says that there are potentially more parameters for the replace
>> function:
>> Replace Function
>> See Also
>> Filter Function
>> Requirements
>> Version 2
>> Returns a string in which a specified substring has been replaced with
>> another substring a specified number of times.
>>
>> Replace(expression, find, replacewith[, start[, count[, compare]]])
>> Arguments
>> expression
>> Required. String expression containing substring to replace.
>> find
>> Required. Substring being searched for.
>> replacewith
>> Required. Replacement substring.
>> start
>> Optional. Position within expression where substring search is to begin.
>> If
>> omitted, 1 is assumed. Must be used in conjunction with count.
>> count
>> Optional. Number of substring substitutions to perform. If omitted, the
>> default value is -1, which means make all possible substitutions. Must be
>> used in conjunction with start.
>> compare
>> Optional. Numeric value indicating the kind of comparison to use when
>> evaluating substrings. See Settings section for values. If omitted, the
>> default value is 0, which means perform a binary comparison.
>>
>> -Paul Randall
>>
>>
>>

My System SpecsSystem Spec