чтение из html файла

[KellyDink]

Доброго времени суток,
что-то у меня ничего не выходит =( пытаюсь достать информацию из html файла и сделать из нее сводную таблицу.

Open "K:\blahblah\blah.html" For Random As #1
Dim Test as integer
Do While Not EOF(1)
Line Input #1, Test 
Loop

'пытаюсь считать в текстовую переменную 1 строку из файла для того, что-нибудь с ней сделать плохое, но увы - строка пустая =( если просто input делаю выдает ошибку =(

наверное стоит уточнить что html'ка у меня больше чем на 1000 строк =( поэтому весь его считать в переменную наверное не получится? или получится?

[viter.alex]

Используйте мой код в качестве образца. В сообщении будет выводиться шестая строка из файла

Dim FileNum As Byte 'Идентификатор открытого файла
Dim intCount As Integer 'Счётчик строк
Dim strText As String 'Строковый буфер

FileNum = FreeFile 'Получение свободного идентификатора
Open "Путь к файлу" For Input As FileNum
intCount = 1
Do While Not EOF(FileNum)
    Line Input #FileNum, strText
    If intCount = 6 Then MsgBox strText: Exit Do
    intCount = intCount + 1
Loop
Close FileNum

[KellyDink]

А у Вас работает =(((((

но я уже плюнула править сам файл и сделала как-то так

Sub картинки()
'
' 
'
'
Dim test, change, change_1 As String
Dim Line() As String
Dim element
change = "K:/blahblahblah.files"
change_1 = "C:/Documents and Settings/blahblahblah.files"

File = "K:\blahblahblah.html"
Open File For Input As #1
test = Input(FileLen(File), 1)
Close #1

Line = Split(test, vbCrLf)
Open "K:\blahblahblah.html" For Output As #1

For Each element In Line()
If InStr(element, change_1) <> 0 Then
element = Replace(element, change_1, change)
End If
Print #1, element
Next

Close #1

End Sub

криво наверное =)
Спасибо Вам огромное! может Вы мне поможете еще со вставкой информации в таблицу в ворде? а то в екселе я сталкивалась, а с таблицами в ворде - нет! без Вашей помощи придется перелапачивать безумное количество форумов =(

[viter.alex]

Помочь — помогу, но вы толком объясните, что хотите получить. Почему замену в текстовом файле нужно производить макросом, когда с этим справится даже Блокнот? Какую информацию в таблицу нужно вставлять? Где эта таблица находится? Откуда брать информацию? Или это просто учебные задания?
Задаю вопросы не из вредности, а чтобы наиболее полно помочь вам в решении вашей задачи

[KellyDink]

=))) замену макросом делала ибо html'ка большая, а в блокноте я не умею! а копировать весь код страницы в ворд и делать автозамену лениво - через чур долго думать будет!

да и притом хотела разобраться как раз для таблицы.

С таблицей... короче я сама толком не знаю что мне нужно сделать. есть html'ка с отчетом программулины по сканированию сети. мне оттуда надо выковырять ip адрес компьютера, mac адрес компьютера, Dns имя компьютера и ОС, то есть таблица будет состоять из 4-х столбцов. Таблица должна формироваться или заполняться(я просто не знаю как ее рисовать с помощью макроса,поэтому наверное проще будет ее нарисовать средствами ворда, а макросом только заполнять) в ворде
соответственно их очень много, так что руками это делать равносильно самоубийству.
и вторую - тут думаю будет проще, если первую сделаю. главное же разобраться КАК это делать =)

но есть проблема - не у всех указана ОС - соответственно пару полей останутся пустыми и будет привязка к столбцу.
а еще пока не придумала по какому признаку мне искать все это счастье.

пока моя главная головная боль - это запись того, что я найду в файле в ячейку.

Sub RunThroughTable2()
  Dim oCell As Cell 'Переменная, которой будем перебирать ячейки
  Dim oTbl As Table 'Таблица, в которой будем перебирать ячейки
  
  Set oTbl = ActiveDocument.Tables(1) 'Первая таблица в документе
  Set oCell = oTbl.Range.Cells(1) 'Первая ячейка в таблице
  
  Do Until oCell Is Nothing
    
    Set oCell = oCell.Next 'Переход к следующей ячейке
  Loop
End Sub

[viter.alex]

вот если бы вы выложили кусок этого html-файла, где имеются нужные данные, я бы смог посоветовать что-то конкретное.
Писать в ячейку проще простого. Если использовать тот код, что вы привели (спасибо за использование моего кода) для сферической таблицы в вакууме, то это будет как-то так (в ячейку помещаются номер строки и столбца, которым она принадлежит):

Sub RunThroughTable2()
  Dim oCell As Cell 'Переменная, которой будем перебирать ячейки
  Dim oTbl As Table 'Таблица, в которой будем перебирать ячейки
  
  Set oTbl = ActiveDocument.Tables(1) 'Первая таблица в документе
  Set oCell = oTbl.Range.Cells(1) 'Первая ячейка в таблице
  
  Do Until oCell Is Nothing
    oCell.Range.Text = oCell.RowIndex & ";" & oCell.ColumnIndex
    Set oCell = oCell.Next 'Переход к следующей ячейке
  Loop
End Sub

[KellyDink]

ой, и правда Ваш =) я даже не заметила! я стараюсь меньше напрягать окружающих людей и сначала найти решения на просторах интернета ) пока, как видите, получается плохо

никак не пойму, что записывается в Вашем коде в ячейку - точка с запятой?
я думала через value
как-нибудь так, нет?
Cells(1, 1).Value = "чего-нибудь"

[viter.alex]

В моём коде в ячейку записываются номер строки и столбца, разделённые точкой с запятой.

[KellyDink]

а как тогда записать что-то в ячейку с опредленным номером столбца и строки, а не ходить по всем ячейкам подряд?

[KellyDink]

вот что я сделала! правда без записи в ячейку определенного столбца тяжко будет

Sub bazinga()
'
'
'
'
Dim text As String
Dim Line() As String
Dim element
Dim q, q1, q2, q3, q4 As Byte

Dim oCell As Cell 'ïåðåìåííàÿ, êîòîðîé áóäåì ïåðåáèðàòü ÿ÷åéêè
Dim oTbl As Table 'Òàáëèöà, â êîòîðîé áóäåì ïåðåáèðàòü ÿ÷åéêè
Set oTbl = ActiveDocument.Tables(1) 'ïåðâàÿ òàáëèöà â äîêóìåíòå
Set oCell = oTbl.Range.Cells(1) 'ïåðâàÿ ÿ÷åéêà â òàáëèöå

File = "K:\ðàáîòà\Îò÷åò\îò÷åò\âèçîð.html"
Open File For Input As #1
text = Input(FileLen(File), 1)
Close #1

Line = Split(text, "theader2c")

For Each element In Line()
q = InStr(element, "MAC адрес (NetBIOS)")
oCell.Range.text = Mid(element, q + 45, 20)
Set oCell = oCell.Next

Next

    

Close 1
End Sub

только он творит какую-то беспросветную хрень =( он в зависимости от своего желания выдает в mac адресе какую-то лабуду =(