Как считать нужное кол-во строк с опред. строки?

[Moriarty]

Народ!Попогите!Как на VBS можно считать из файла ,например, с 2 по 22 строку?Как игнорировать остальные строки?

[ASD]

Копай в сторону FileSystemObject

[Moriarty]

FileSystemObject я (вроде) знаю )
Так же знаю циклы for i=1 to 15 step 1
next
и
do while

loop

Так ,действительно можно, но в языке есть или нет специализированные операторы?
Если есть помогите чем можете )[/u]
А вообще классный форум!!!!!!!!!
Руллллллллеееез!

[Dantes]

Текстовый поток открывай (Set TextStream = FSO.OpenTextFile(blah-blah-blah)) У него соответственно есть метод SkipLine - строчку пропускает, как нетрудно догадаться. Ну так вот, сколько надо пропусти, потом сколько надо считай, всё закрой, в Nothing сбрось и будет тебе счастье

[Moriarty]

Извиняй! Ты меня,наверное не понял!
Я имел ввиду что-то вроде оператора mid(s,num,num)
Наверное я мечтатель!
Но всеравно пасибо )

[CodeNoob]

Странно) ReadAll пашет нормально , а вот SkipLine b ReadLine не пашут нивкакую . У меня наверное ружи из ж

[Денис]

У меня наверное ружи из ж

Вполне вероятно что так и есть

[CodeNoob]

Очень конструктивный ответ. А мысли касательно темы не тревожат мозг "продвинутого гуру"?

[Денис]

А мысли касательно темы не тревожат мозг "продвинутого гуру"?

Чо, завидуеш? Хм, чему там завидовать?
А насчет мыслей: строка в текстовом файле завершается символами 10 и 13 (vbCrLf) вот и посчитай строки (можно даже повыводить их в массив). А потом возьми с 2 по 22.

[Antonariy]

Очень конструктивный ответ. А мысли касательно темы не тревожат мозг "продвинутого гуру"?

"Продвинутый гуру" заработал звание аццким флудом.
(Модераторам на заметку) Вероятно стоит дать ему персональное звание, отражающее реальное положение дел.

Нет примера, который на деле показал бы, что SkipLine и ReadLine не пашут. Могу лишь предположить, что разделитель строк не vbCrLf и fso его не воспринимает.

[CodeNoob]

Нет примера, который на деле показал бы, что SkipLine и ReadLine не пашут. Могу лишь предположить, что разделитель строк не vbCrLf и fso его не воспринимает.

Выходит так оно и было) Создал новый файл - все вполне работает

Код: Выделить всё

Dim mf
mf = "MySuperFile.txt"

'создаем и пишем

Set FSO = CreateObject("Scripting.FileSystemObject")
Set CtF = FSO.CreateTextFile(""&mf&"")
CtF.Writeline("stroka")
CtF.Writeline("eshe stroka")
CtF.Writeline("i eshe stroka")
CtF.Writeline("i poslednija")
CtF.Writeline("vsego 5 strok")
CtF.Close

' открываем и читаем

Set Rf = FSO.GetFile(""&mf&"")
Set OpX = Rf.OpenAsTextStream(1)
OpX.SkipLine
SkL = OpX.Readline
OpX.Close
msgbox SkL ' выводит 2 строку