как переставить в файле строки ?

Обсуждение программ nnCron и nnCron LITE

как переставить в файле строки ?

Postby yurec » Tue, 24 Aug 2004, 15:02

Не поможет ли кто-нибудь.
есть файлик с ASCI строками, как по простому переставить строки в обратном порядке ?
В идеале хорошо бы изменить File-Append, чтоб строки добавлялись в начало или конец файла по выбору.
yurec
 
Posts: 11
Joined: Thu, 29 Jul 2004, 19:18

Postby Nicholas_Nemtsev » Fri, 27 Aug 2004, 09:23

Простого (относительно) способа добавить строку в начало файла нет.
Надо создать новый временный файл, записать в него нужную строку, дописать в конец этого файл весь старый файл, удалить старый, переименовать временный.
Nicholas Nemtsev
User avatar
Nicholas_Nemtsev
Site Admin
 
Posts: 857
Joined: Thu, 01 Jul 2004, 22:25
Location: Псков

спасение утопающего...

Postby yurec » Fri, 24 Sep 2004, 18:49

может пригодится ещё кому
простенький VBScript, на входе один файл со строками
на выходе файл со строками наоборот:


Dim arrFileLines()
i = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile_in = objFSO.OpenTextFile("C:\reverse.txt", 1)
Set objFile_out = objFSO.CreateTextFile("C:\forward.txt")

Do Until objFile_in.AtEndOfStream
Redim Preserve arrFileLines(i)
arrFileLines(i) = objFile_in.ReadLine
i = i + 1
Loop

For l = Ubound(arrFileLines) to LBound(arrFileLines) Step -1
objFile_out.WriteLine(arrFileLines(l))
Next

objFile_in.Close
objFile_out.Close


по ссылке
http://download.microsoft.com/download/ ... sitory.exe
можно получить scriptcenter.chm - очень много полезных скриптов
yurec
 
Posts: 11
Joined: Thu, 29 Jul 2004, 19:18


Return to nnCron forum (Russian)

Who is online

Users browsing this forum: Bing [Bot] and 3 guests

cron