ekkehard
Sun Oct 21 04:22:20 PDT 2007
Pegasus (MVP) schrieb:
> A simple way would be to do this:
> 1. Read the input text file one line at a time.
> 2. Place a running number at the beginning of each line like so:
> 00000001ABC
> 00000002DEF
> 00000003HIJ
> 3. Write each line to a temporary file.
> 4. Sort the temporary file in reverse order.
> 5. Remove the leading 8 character from each line.
>=20
As reversing doesn't involve sorting, a *simple* way could be
Dim oFS : Set oFS =3D CreateObject( "Scripting.FileSystemObject" )
Dim sFSpec : sFSpec =3D ".\revlines.txt"
Dim aLines : aLines =3D Array( "ABC", "DEF", "GHI" )
Dim sText : sText =3D Join( aLines, vbCrLf )
' Create test file; notice trailing vbCrLf
oFS.CreateTextFile( sFSpec, True ).WriteLine sText
' Read test file
sText =3D oFS.OpenTextFile( sFSpec ).ReadAll
' Show
WScript.Echo sText & vbCrLf & "---------"
' To array
aLines =3D Split( sText, vbCrLf )
' Write
Dim oTS : Set oTS =3D oFS.CreateTextFile( sFSpec, True )
Dim nIdx
For nIdx =3D UBound( aLines ) - 1 To 0 Step -1 ' handle trailing vbCrL=
f
oTS.WriteLine aLines( nIdx )
Next
oTS.Close
' Show
sText =3D oFS.OpenTextFile( sFSpec ).ReadAll
WScript.Echo sText & vbCrLf & "---------"
output:
=3D=3D=3D reverseLines: reverse line of file =3D=3D
ABC
DEF
GHI
---------
GHI
DEF
ABC
---------
=3D=3D=3D reverseLines: 0 done (00:00:00) =3D=3D=3D=3D=3D
provided the file isn't too big.
>=20
> "Alain Terieur" <alain@terieur.fr> wrote in message=20
> news:471afd9a$0$5080$ba4acef3@news.orange.fr...
>> hello
>>
>> I want this
>> GHI
>> DEF
>> ABC
>>
>> thank
>>
>> "Pegasus (MVP)" <I.can@fly.com> a =E9crit dans le message de news:=20
>> e9DXy31EIHA.2004@TK2MSFTNGP06.phx.gbl...
>>> "Alain Terieur" <alain@terieur.fr> wrote in message=20
>>> news:471a4ac2$0$25924$ba4acef3@news.orange.fr...
>>>> hello
>>>>
>>>> J want to inverse the line of a fichier
>>>> do you know, how do this please
>>>> thank you
>>>>
>>> It depends on what you mean. If the source file
>>> looks like so:
>>> ABC
>>> DEF
>>> GHI
>>> do you want this:
>>> CBA
>>> FED
>>> IHG
>>> or this:
>>> GHI
>>> DEF
>>> ABC
>>>
>>
>=20
>=20