[Pomoc]Pytanie

[Zaid]

Witam , jest możliwość odwrócenia szyku danych wyrazów np:

 

kot

mleko

pies

 

na:

 

pies

mleko

kot

 

Ponieważ w "o mnie" chciałbym zmienić kolejność dat poradników (bo mam od najstarszego do najnowszego , a chciałbym na odwrót) a mam ich zbyt dużo żeby zrobić to ręcznie

[RobeM]

szybciej zrobisz ręcznie

[Zaid]

pisałem przecież że nie chce ręcznie !!! (nie chce mi się ponad 111 poradników kopiować/wklejać)

[RobeM]

a jaka widzisz inną opcje? że ktoś napisze skrypt według jakiś parametrów by sortował odpowiednio linki, zajmie mu to trochę czasu a ty sobie poczekasz nie wiadomo ile na niego zamiast poświecić dosłownie kilka minut na odwrócenie kolejności wyświetlania w notatniku metodą wytnij/wklej

 

normalnie nie spotkałem programu pod windows chyba że offis , pod linuxem jest grep, sed , vim itp

 

w windows masz możliwość pisania skryptów , tu dokładnie przykład do tego co chcesz zrobić http://technet.microsoft.com/pl-pl/library/jak-odwrocic-wszystkie-wiersze-w-pliku-tekstowym.aspx

[Zaid]

Nie chodzi mi o skrypt , myślałem że jest taka funkcja w exelu/wordzie

[RobeM]

jest ale jak napisałem ktoś musi ci napisać ( dokładniej chodzi o makro )

 

skryptem co podałem zrobisz w kilka sekund ale jak widac nie wiesz jak

Const ForReading = 1
Const ForWriting = 2
Dim arrLines()
i = 0

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Scripts\Test.txt", ForReading)
Do Until objFile.AtEndOfStream
Redim Preserve arrLines(i)
arrLines(i) = objFile.ReadLine
i = i + 1
Loop
objFile.Close
Set objFile = objFSO.OpenTextFile("C:\Scripts\Test.txt", ForWriting)
For i = Ubound(arrLines) to LBound(arrLines) Step -1
objFile.WriteLine arrLines(i)
Next
objFile.Close

zapisac jako plik.vbs , reszta to już tylko wymaga myślenia, skopiowania i czytania