VBSCRIPT ISSUE REVISITED

[Richtoss]

POST 1

Richtoss (IS/IT--Management) Oct 7, 2008
I am struggeling on how to write a simple script. Here is a line of information.

0150000103600000000000000002000000000000000000200001text
information ODD 2000 025252552
000000000000000002000001test email adderss
000000000000000100300JA511515770000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000


What I would like to write a VB script to do is go read through a file and every time it sees a line that starts with 0150000103 then to read across that line and replace a selected character. For example if I find 0150000103 then in that line find character 255 and what ever it is replace it with a value. I also want that value to count up by one for each occurance. I have been able to think of a few ways that get me close but cant quite find the correct answer any help is appreciated.

POST 2

Have a look at the Left and Mid functions:
newLine = Left(oldLine, 254) & newValue & Mid(oldLine, 256)
newValue = newValue + 1

POST 3 Part I am stuck on........

Do Until myNewTextFile.AtEndofStream
If Trim(Mid(LineCheck, 1, 10)) <> "0150000103" Then
NextLine = myNewTextFile.ReadLine
If Trim(Mid(NextLine, 1, 10)) = "0150000103" Then NextLine = Left(nextline, 254)& newValue & Mid(nextline, 256)
newValue = newValue + 1
msgbox nextline
NextLine=myNewTextFile.ReadLine
End If
End If
Loop

How do I actualy get it to put the new values in the file. I understand the statement about what if it is more than 1 digit and I can just make it like a 4 digit field which should work as well.
I can get it to return the values I want in a message box but they do not write to the file.

THanks

 

[ettienne]

You cannot write to the same file.

You need to open a second file to write to, then write the modified lines to this second file.

 

[Richtoss]

Is there a way to write it to the same file, this may be a 300 mb file and I would hate to have to create 2 copies of it just to change a couple characters?

 

[ettienne]

Assuming you are using the TextStream object, you can open the file for reading OR for writing, but not read and write at the same time.
Disk space is cheap.
Read from file A, write to file B, delete file A once you are done.

From MSDN:

Function TextStreamTest
   Const ForReading = 1, ForWriting = 2, ForAppending = 8
   Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
   Dim fso, f, ts
   Set fso = CreateObject("Scripting.FileSystemObject")
   fso.CreateTextFile "test1.txt"   ' Create a file.
   Set f = fso.GetFile("test1.txt")
   Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
   ts.Write "Hello World"
   ts.Close
   Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
   TextStreamTest = ts.ReadLine
   ts.Close
End Function

 

[ettienne]

http://msdn.microsoft.com/en-us/library/hwfw5c59(VS.85).aspx