VB6에서 XML을 구문 분석해야합니다.

Question

저는 약간 오래된 학교이며 VB6에서이 문서를 구문 분석 할 수 있어야합니다.

<ip> 
<results> 
<result> 
<ip>104.145.4.78</ip> 
<host>104.145.4.78</host> 
<isp>Allstream Corp.</isp> 
<city>Vancouver</city> 
<countrycode>CA</countrycode> 
<countryname>Canada</countryname> 
<latitude>49.2551</latitude> 
<longitude>-123.0667</longitude> 
</result> 
</results> 
</ip> 

이

은의 위치와 IP 주소의를 제공하는 웹 사이트입니다 그리고 난 6000 주소의 도시 이름을 넣어야이 내가하는 간단한 방법을 찾을 수 있다는 점을 제외하고 생각할 수있는 가장 좋은 방법입니다 이 페이지의 데이터를 가져 오십시오. 여기에 어떤 도움이 크게 appriciated 될

http://api.geoiplookup.net/?query=104.145.4.78 

:

여기 내가 사용하고있는 실제 웹 사이트입니다. 나는 이것을 알아 내기 위해 약 6 시간을 보냈으며 간단한 해결책이 있다고 확신하지만 그것이 무엇인지 알 수는 없다.

건배, 당신이 여기처럼, 당신의 입력 데이터를 토큰 화하는 것입니다 단지 단지 기본 도우미 기능을 필요 개별적으로 각각의 결과를 얻을 경우

Answer 1

:

' old school tokenizer 
Public Function GetToken(ByVal xmlIn As String, ByVal tagName As String) As Variant 
    Dim l as long, p1 As Long, p2 As Long 
    l = Len(tagName) 
    p1 = InStr(1, xmlIn, "<" + tagName + ">") 
    p2 = InStr(p1, xmlIn, "</" + tagName + ">") 
    GetToken = Mid(xmlIn, p1 + l + 2, p2 - p1 - l - 2) 
End Function 

...하는 당신을 다음과 같이 사용할 수 있습니다

' assume your data is in xml 
Dim result As String, ip As String, city As String 
result = GetToken(xml, "result") 
ip = GetToken(result, "ip") 
city = GetToken(result, "city") 

결과 :

Debug.Print ip, city => 104.145.4.78 Vancouver 

또한 원하는 경우 위의 토크 나이저를 쉽게 확장하여 여러 결과를 배열로 가져올 수 있습니다.