Question

First of all, I am not from programming background and totally new to VB. For some reasons, I have to do a small scripting task at office.

I have gone through many posts here as well on other forums but not able to find the required information.

Ok so here’s what I need to do:

I want to find an integer from a string (the integer can be any from 5 to 4095) and replace it with an integer of my choice.

I have done some analysis but not able to find a function which can search for “any” integer from a string. Searching for fixed integers is working fine.

e.g:

Convert: “There are 10 apples” – where 10 can be any number from 5 to 4095, not known to me.

To: “There are 5 apples” – 5 is the number I will manually give.

Any help is appreciated.

Thank you.

Edit

Final Code:

Set objFSO = CreateObject("Scripting.FileSystemObject") 
strFile = "C:\Users\inkasap\Desktop\temp\IOParams_Backup.xml" 
Set objFile = objFSO.OpenTextFile(strFile) 
Do Until objFile.AtEndOfStream strLine = objFile.ReadLine 
    Dim re, strLine 
    Set re = New RegExp 
    if InStr(strLine,"name=""BIOSCUPP") > 0 Then 
        re.Pattern = "\d+" 
        Set colMatch = re.Execute(strLine) 
        For Each objMatch In colMatch 
           strLine = Replace(strLine, objMatch.Value, "30") 
        Next end 
    if WScript.Echo strLine 
Loop

Answer 1

Well, you can use regular expressions to find any numerical value, and then replace it:

Dim re, test
Set re = New RegExp
re.Pattern = "\d+"

test = "There are 4000 apples"

Set colMatch = re.Execute(test)
For Each objMatch In colMatch
    MsgBox(Replace(test,objMatch.Value,"5"))
Next 

This page contains all informations you need.