Solved

Vbscript to search and replace numbers

Posted on 2013-11-20
10
373 Views
Last Modified: 2013-12-02
I need a vbscript which will read a text file at c:\file folder and replace a set of numbers it finds with another set of numbers.  The file is a csv, or a .txt file.  For example i want to replace numbers 6789101112 with 12345678.
0
Comment
Question by:100questions
  • 5
  • 2
10 Comments
 

Author Comment

by:100questions
ID: 39664630
I tried a script similar to this, however it does not work, it is not replacing any of the numbers
I want replaced.
Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Script\file.CSV", ForReading)

strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, "1223234343434 ", "102343433434334 ")

Set objFile = objFSO.OpenTextFile("C:\Script\file.CSV", ForWriting)
objFile.WriteLine strNewText
objFile.Close
0
 

Author Comment

by:100questions
ID: 39666623
What does blind link comments refer to?
0
 
LVL 16

Expert Comment

by:cantoris
ID: 39667459
Add a debugging line in to display the contents of strText to ensure it's what you expect.  Sometimes there can be file encoding screwing this sort of thing up.

Try adding the Tristate value for Unicode when opening the file if strText looks wrong:
http://msdn.microsoft.com/en-us/library/314cz14s(v=vs.84).aspx

ie
Const ForReading = 1
Const FSO_Unicode = -1
Set objFile = objFSO.OpenTextFile("C:\Script\file.CSV", ForReading, False, FSO_Unicode)
strText = objFile.ReadAll

Also, remove any "On Error Resume Next" you may be using in case an error is being thrown.
0
 

Accepted Solution

by:
100questions earned 0 total points
ID: 39682590
Something similar to this worked for me:

Const ForReading = 1

Const ForWriting = 2



Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("C:\Scripts\WorkingFiles\FILE.CSV", ForReading)



strText = objFile.ReadAll

objFile.Close


strText = Replace(strText, "19876543210235", "123445")

strText = Replace(strText, "21345678901019", "78901")


Set objFile = objFSO.OpenTextFile("C:\Scripts\WorkingFiles\FILE.CSV", ForWriting)

objFile.WriteLine strText

objFile.Close
0
Enabling OSINT in Activity Based Intelligence

Activity based intelligence (ABI) requires access to all available sources of data. Recorded Future allows analysts to observe structured data on the open, deep, and dark web.

 
LVL 29

Expert Comment

by:QPR
ID: 39682616
Yes, but rather than write it out in full or paste someone's work I sent the link which was subsequently deleted as a "blind comment".
I didn't know this wasn't allowed (my fault).
0
 

Author Comment

by:100questions
ID: 39683320
I want to give QPR a chance to provide a written script which works, so that i can give QPR the points instead, since we were not aware we could not include blind links.
0
 
LVL 29

Expert Comment

by:QPR
ID: 39683980
That's ok just the close the question :)
I wasn't aware of the policy but am now.
Next time I'll know to provide the important part from the link and attribute the original author. Glad you got it working
0
 

Author Closing Comment

by:100questions
ID: 39689473
It works.
0

Featured Post

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

Many times while working on a computer regardless of any Operating System, lag and crashes seem to creep in, hindering your working speed. Sometimes, it can also cause your work to be lost unexpectedly and as a result, you are unable to meet your de…
Have you ever had a hard drive that you can't boot into, but need to change the registry? Here is the solution! This article guides you through accessing and editing a registry of a non-primary drive. To read registry information on a non-prim…
Windows 8 comes with a dramatically different user interface known as Metro. Notably missing from the new interface is a Start button and Start Menu. Many users do not like it, much preferring the interface of earlier versions — Windows 7, Windows X…
With the advent of Windows 10, Microsoft is pushing a Get Windows 10 icon into the notification area (system tray) of qualifying computers. There are many reasons for wanting to remove this icon. This two-part Experts Exchange video Micro Tutorial s…

746 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now