How to check number of digits in multiple files 1

[vusgtx]

Hello all

I have about 2000 text files have the same format as below

AAAA
BBBB
CCCC
ID 8201234
IDz 8201234


In some files, there are two extra zeroes in ID & IDz rows (i.e. 820123400)
How do I search all 2000 files and delete the extra two zeroes?

Many thanks for your help.
Helen

 

[SkipVought]

Hi,

if right(YourValue,2)="00" then YourValue = Left(YourValue, Len(YourValue)-2)

Skip,
^{Don't let the Diatribe...
talk you to death!}
_{Just traded in my old subtlety...
for a NUANCE!}

 

[vusgtx]

Hi Skip,

Thanks for your help.

I forgot to mention there is a text field after the numbers.

AAAA
BBBB
CCCC
ID 8201234 Admin
IDz 8201234 Admin

And there is other information which is not in the same columns as above (header). I tried to import into excel but it messed my file up.

Helen

 

[SkipVought]

so you parse each line and look at the second value...

    Dim a, i As Integer, LineOut

'your loop

    a = Split(LineIN, "00 ")
    For i = 0 To UBound(a)
        If i = 0 And UBound(a) > 0 Then
            LineOut = LineOut & a(i) & "   "
        Else
            LineOut = LineOut & a(i)
        End If
    Next

'next in your loop

Skip,
^{Don't let the Diatribe...
talk you to death!}
_{Just traded in my old subtlety...
for a NUANCE!}

 

[vusgtx]

Thanks Skip.