Function GetXMLStr(FileName, Value) As String
On Error Resume Next
Dim Sod As String
Dim PosX As Integer
Dim PosY As Integer
Dim sValue As String
Open FileName For Input As 1
Sod = Input(LOF(1), 1)
Close 1
sValue = Right$(Value, Len(Value) - 1)
sValue = "</" & sValue
X = InStr(1, Sod, Value)
PosX = X + Len(Value)
Y = InStr(1, Sod, sValue)
PosY = Y - X - Len(Value)
GetXMLStr = Mid(Sod, PosX, PosY)
Exit Function
1
MsgBox Error
End Function
Извлечение информации из HTMLкода в определенных тегах.
Здравствуйте!!! У меня тут проблема. Я хочу извлечь информацию из HTMLкода в определенных тегах(<body> </body> <tr> </tr> и т.п.). Можно использовать Microsoft HTML Object Library и Microsoft Internet Controls или по вашему усмотрению. Спасибо
А тебе надо достать то что находиться в тегах целеком как оно выглядит в файле? Если да, проще всего написать функцию самостоятельно:
Код:
Та информация, которую я хочу взять находится в этих тегах:
swapElementText('no_resultslink_9','__FIRST__',"Виктор");
swapElementText('no_resultslink_9','__LAST__',"Злотин");
swapElementText('no_resultslink_9','__ADDRESS__',"ул.Ленинградская 23");
swapElementText('no_resultslink_9','__CITY__',"Кагул");
swapElementText('no_resultslink_9','__STATE__',"Молдова");
И нужен код который вырывает эту информацию из этих тэгов. А потом вставляет только Имя, Фамилию, адресс, город и страну в TextBox. Помогите
swapElementText('no_resultslink_9','__FIRST__',"Виктор");
swapElementText('no_resultslink_9','__LAST__',"Злотин");
swapElementText('no_resultslink_9','__ADDRESS__',"ул.Ленинградская 23");
swapElementText('no_resultslink_9','__CITY__',"Кагул");
swapElementText('no_resultslink_9','__STATE__',"Молдова");
И нужен код который вырывает эту информацию из этих тэгов. А потом вставляет только Имя, Фамилию, адресс, город и страну в TextBox. Помогите
А теги всегда идут в таком порядке?
Всегда в таком, вот посмотри проимер HTML кода этой страницы