Hi All,

Someone help me how to create a txt file using another txt file by eliminating certain information from the source txt file.

Ex A.txt contains the following info
01aaaabbbbcc
04cccccddddeee
01aaaabbbccccc
04cccccddddeee

i need to create file b.txt eliminating the "eee" from the second line i.e 04,we can't say the 04 record will come always at 2nd line but we have the constant value "04" in front of the line.

O/P sample file
01aaaabbbbcc
04cccccdddd
01aaaabbbccccc
04cccccdddd

Hello Vijay

check this link
http://www.geocities.com/raghavendra..._text_file.zip

It gives the output as you need. But I am still not sure on what exactly
you are searching for.

Hope this helps.


With Regards,
Raghavendra Mudugal

Dear Raghav,

This code working fine but what i want is
need to eliminate the last 3 chars from the line with prefix "04"
we can't say it will be always like "eee" and we shouldn't disturb the rest of the lines i.e before and after "04" line.

Thanks
Vijay


check this link
http://www.geocities.com/raghavendra..._text_file.zip

It gives the output as you need. But I am still not sure on what exactly
you are searching for.

Hope this helps.


With Regards,
Raghavendra Mudugal
[/quote]

okay GOTCHA !!!

check this new line of code

Private Sub Command1_Click()
Dim fso As FileSystemObject
Dim tsA As TextStream
Dim tsB As TextStream

Set fso = New FileSystemObject
Set tsA = fso.OpenTextFile(App.Path & "\a.txt", ForReading)
Set tsB = fso.OpenTextFile(App.Path & "\b.txt", ForWriting, True)

While Not tsA.AtEndOfStream
    s = tsA.ReadLine
    Rem NEW CODE
    If Mid$(s, 1, 2) = "04" Then
        Rem OLD CODE s1 = Replace(s, "eee", "")
        s2 = Left(s, Len(s) - 3)
        tsB.WriteLine (s2)
    Else
        tsB.WriteLine (s)
    End If
Wend

tsA.Close
tsB.Close
Set fso = Nothing

MsgBox "Done"
End Sub

I guess, this code make some sense to your requirement?

hope this helps.


With Regards,
Raghavendra Mudugal