אופיס 365 איתור מיקוד מקוון

[Avshalom05]

כנס כאן

Israel Post | דואר ישראל

אתר דואר ישראל

israelpost.co.il

 

[ארי4791]

לי עובד.
זה הקוד שאני משתמש בו:

Public Function GetMikod(city As String, street As String, House As String) As String
Dim Request     As MSXML2.ServerXMLHTTP60
Dim TextBody    As String
Dim Response    As String

Set Request = New ServerXMLHTTP60

TextBody = "https://services.israelpost.co.il/zip_data.nsf/SearchZip?OpenAgent&Location=" & city & "&POB=&Street=" & street & "&House=" & House
Debug.Print TextBody
Request.Open "GET", TextBody, False
Request.send
    
Response = Request.responseText

If IsNumeric(Mid(Response, InStr(Response, "RES8") + 4, 7)) Then
    GetMikod = Mid(Response, InStr(Response, "RES8") + 4, 7)
Else
    GetMikod = "Error"
End If

End Function

Public Function TestGetMikod()
    Debug.Print GetMikod("ירושלים", "בלפור", 2)
End Function

 

[שבע יפול צדיק]

לי עובד.
זה הקוד שאני משתמש בו:

Public Function GetMikod(city As String, street As String, House As String) As String
Dim Request     As MSXML2.ServerXMLHTTP60
Dim TextBody    As String
Dim Response    As String

Set Request = New ServerXMLHTTP60

TextBody = "https://services.israelpost.co.il/zip_data.nsf/SearchZip?OpenAgent&Location=" & city & "&POB=&Street=" & street & "&House=" & House
Debug.Print TextBody
Request.Open "GET", TextBody, False
Request.send
   
Response = Request.responseText

If IsNumeric(Mid(Response, InStr(Response, "RES8") + 4, 7)) Then
    GetMikod = Mid(Response, InStr(Response, "RES8") + 4, 7)
Else
    GetMikod = "Error"
End If

End Function

Public Function TestGetMikod()
    Debug.Print GetMikod("ירושלים", "בלפור", 2)
End Function

איך משתמשים איתו איפה אתה מכניס אותו?

 

[ארי4791]

הקוד הראשון GetMikod זה קוד שהפרמטרים שלו זה עיר, רחוב, מספר והוא מחזיר מיקוד.
השני TestGetMikod זה דוגמא של שימוש בקוד הראשון.
לדוגמא המשפט הבא:

GetMikod("ירושלים", "בלפור", 2)

יחזיר את המיקוד 9210201.
בהצלחה.

אגב, בקוד הראשון השורה

Debug.Print TextBody

מיותרת.

 

[רושם]

למה הקוד מחזיר לי הודעת שגיאה:

 

[אפר]

למה הקוד מחזיר לי הודעת שגיאה:
צפה בקובץ המצורף 1125819

חסר לך הפניה מסוג זה
תחליף ל

Public Function GetMikod(city As String, street As String, House As String) As String
Dim Request     As Object
Dim TextBody    As String
Dim Response    As String

Set Request = CreateObject("MSXML2.ServerXMLHTTP60")

 

[רושם]

תודה רבה, אך עדיין לא עובד....
זו ההודעה:

 

[אפר]

תודה רבה, אך עדיין לא עובד....
זו ההודעה:
צפה בקובץ המצורף 1125863

לכאורה חסר קובץ במחשב
צריך לחפש ספריה אחרת מתאימה או להשיג את הקובץ החסר

יתכן גם שהבעיה היא אחרת
תנסה להוריד את זה

As Object

 

[רושם]

תודה רבה!
א. איפה ואת מה אני צריך לחפש?
ב. אולי לחזור לקודם ולהפעיל את ההפניה החסרה, איזה הפניה?

 

[ארי4791]

תנסה קודם פשוט להפעיל את ההפנייה החסרה.
אולי היא מותקנת, אבל צריך להפעיל אותה ידנית.
קוראים לה 'Microsoft XML, v0.6' .
תבדוק אם יש לך אותה (בקוד VBA, Tools>References).

 

[ארי4791]

@שבע יפול צדיק עד כדי כועס?
מה עשיתי?

 

[רושם]

תנסה קודם פשוט להפעיל את ההפנייה החסרה.
אולי היא מותקנת, אבל צריך להפעיל אותה ידנית.
קוראים לה 'Microsoft XML, v0.6' .
תבדוק אם יש לך אותה (בקוד VBA, Tools>References).

אכן זו היתה הביעה וזו הפתרון, תודה!

 

[רושם]

שוב יש לי צורך בעזרתכם האדיבה...
אחרי שהרצתי את הקוד מספר פעמים והוא אכן החזיר לי את המיקוד הנכון, שילבתי את הפונקציה בתוך מסד הנתונים שלי, ואחרי פעם אחת שעבד טוב, החל מחזיר שגיאה דלקמן, ולא מוכן לחזור לעצמו....
שורת הקוד המחזירה את השגיאה: Request.send

 

[ארי4791]

תוכל להראות את הקוד המלא?
האינטרנט בסדר?

 

[רושם]

הבוקר שוב הפעלתי את הפונקציה והוא עבד יפה ב7-8 בדיקות, עד ששוב נותן את הודעת השגיאה דלעיל.
יתכן שהאתר מזהה פניות מרובות וחוסם?

הקוד המלא:
Public Function GetMikod(city As String, street As String, House As String) As String

Dim Request As MSXML2.ServerXMLHTTP60
Dim TextBody As String
Dim Response As String

Set Request = New ServerXMLHTTP60

TextBody = "https://services.israelpost.co.il/zip_data.nsf/SearchZip?OpenAgent&Location=" & city & "&POB=&Street=" & street & "&House=" & House
Request.Open "GET", TextBody, False
Request.send

Response = Request.responseText

If IsNumeric(Mid(Response, InStr(Response, "RES8") + 4, 7)) Then
GetMikod = Mid(Response, InStr(Response, "RES8") + 4, 7)
Else
GetMikod = "Error"
End If

End Function

 

[רושם]

הקפצה:
למישהו יש רעיון מה יכולה להיות הבעיה?

 

[ארי4791]

איזה כתובת אתה שולח?

 

[רושם]

כתובות שונות, כולל כאלו שבתחילה נתן תשובה תקינה, ובשלב מסויים אחרי מספר פניות נותן את השגיאה דלעיל...
אולי נטפרי חוסמים?

 

[ארי4791]

מוזר...
לא מכיר.
בהצלחה.

 

[yonilobo]

הם עושים חתימה לבוטים. ומזהים את זה בתור בוט

בגלל זה אחרי מספר פניות זה נחסם (בפניה הראשונה הוא חושב שזה רגיל)