דילוג לתוכן
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

תחומים - פורום חרדי מקצועי

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. גומלין - כללי
  3. הוספת מיקוד אוטומטי בקובץ אקסל

הוספת מיקוד אוטומטי בקובץ אקסל

מתוזמן נעוץ נעול הועבר גומלין - כללי
16 פוסטים 9 כותבים 2.1k צפיות 8 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • by6199B by6199

    שלו' וברכה

    יש לי כמה מאות כתובות שאני צריך מיקוד הנתונים בקובץ אקסל, למישהו יש מושג או היכרות עם תוכנה שתמלא לי הכל אוטומטית? אני מדבר על תוכנה או נוסחה חינמית

    WWWW מנותק
    WWWW מנותק
    WWW
    כתב ב נערך לאחרונה על ידי
    #2

    @by6199 זה קצת מסבובך.
    אם זה היה הפוך, יותר קל.

    אבל כאן יכול להיות הרבה שגיאות הקלדה.

    WWW.netfree@gmail.com || קשבק! החזר כספי לבנק על רכישות באינטרנט || עונים על סקרים ומרוויחים כסף!

    by6199B תגובה 1 תגובה אחרונה
    0
    • WWWW WWW

      @by6199 זה קצת מסבובך.
      אם זה היה הפוך, יותר קל.

      אבל כאן יכול להיות הרבה שגיאות הקלדה.

      by6199B מנותק
      by6199B מנותק
      by6199
      כתב ב נערך לאחרונה על ידי
      #3

      @www אמר בהוספת מיקוד אוטומטי בקובץ אקסל:

      @by6199 זה קצת מסבובך.
      אם זה היה הפוך, יותר קל.

      אבל כאן יכול להיות הרבה שגיאות הקלדה.

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

      A תגובה 1 תגובה אחרונה
      1
      • by6199B by6199

        שלו' וברכה

        יש לי כמה מאות כתובות שאני צריך מיקוד הנתונים בקובץ אקסל, למישהו יש מושג או היכרות עם תוכנה שתמלא לי הכל אוטומטית? אני מדבר על תוכנה או נוסחה חינמית

        א מנותק
        א מנותק
        אופקים
        כתב ב נערך לאחרונה על ידי
        #4

        @by6199 יש לרשות הדואר שרות שניתן ללא עלות לנושא המיקוד ושמו "השתלת מיקוד וקוד חלוקה" .

        מצ"ב הסכם השתלת מיקוד וקוד חלוקה יש לחתום ולשלוח למייל0_1536174986118_כתב הסכמה השתלה וקוד חלוקה 2013.pdf לאחר מכן יש לשלוח את הקובץ להשתלת מיקוד למייל mikudsupport@postil.com .

        by6199B תגובה 1 תגובה אחרונה
        0
        • א אופקים

          @by6199 יש לרשות הדואר שרות שניתן ללא עלות לנושא המיקוד ושמו "השתלת מיקוד וקוד חלוקה" .

          מצ"ב הסכם השתלת מיקוד וקוד חלוקה יש לחתום ולשלוח למייל0_1536174986118_כתב הסכמה השתלה וקוד חלוקה 2013.pdf לאחר מכן יש לשלוח את הקובץ להשתלת מיקוד למייל mikudsupport@postil.com .

          by6199B מנותק
          by6199B מנותק
          by6199
          כתב ב נערך לאחרונה על ידי
          #5

          @אופקים אמר בהוספת מיקוד אוטומטי בקובץ אקסל:

          @by6199 יש לרשות הדואר שרות שניתן ללא עלות לנושא המיקוד ושמו "השתלת מיקוד וקוד חלוקה" .

          מצ"ב הסכם השתלת מיקוד וקוד חלוקה יש לחתום ולשלוח למייל0_1536174986118_כתב הסכמה השתלה וקוד חלוקה 2013.pdf לאחר מכן יש לשלוח את הקובץ להשתלת מיקוד למייל mikudsupport@postil.com .

          וצריך לקוות שהדואר ייעשה את זה תוך 36 ימי עסקים ....

          תגובה 1 תגובה אחרונה
          3
          • by6199B by6199

            @www אמר בהוספת מיקוד אוטומטי בקובץ אקסל:

            @by6199 זה קצת מסבובך.
            אם זה היה הפוך, יותר קל.

            אבל כאן יכול להיות הרבה שגיאות הקלדה.

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

            A מנותק
            A מנותק
            Avi_av
            כתב ב נערך לאחרונה על ידי
            #6

            @by6199 אמר בהוספת מיקוד אוטומטי בקובץ אקסל:

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

            אז את אלו שלא יזהו אוטומטית - תמלא ידנית..
            את העבודה הקשה חסכת.

            בכל מקרה, api חיצוני אמור להתאים.
            אשכול בפרוג על קוד vba לעניין

            avi_av at hi2.in

            by6199B תגובה 1 תגובה אחרונה
            0
            • A Avi_av

              @by6199 אמר בהוספת מיקוד אוטומטי בקובץ אקסל:

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

              אז את אלו שלא יזהו אוטומטית - תמלא ידנית..
              את העבודה הקשה חסכת.

              בכל מקרה, api חיצוני אמור להתאים.
              אשכול בפרוג על קוד vba לעניין

              by6199B מנותק
              by6199B מנותק
              by6199
              כתב ב נערך לאחרונה על ידי
              #7

              @avi_av אמר בהוספת מיקוד אוטומטי בקובץ אקסל:

              @by6199 אמר בהוספת מיקוד אוטומטי בקובץ אקסל:

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

              אז את אלו שלא יזהו אוטומטית - תמלא ידנית..
              את העבודה הקשה חסכת.

              בכל מקרה, api חיצוני אמור להתאים.
              אשכול בפרוג על קוד vba לעניין

              ראיתי, לא יודע איך להגדיר בקובץ, האקסס שם לא תקין ובנוסף זה אחד אחד את זה גם ניתן לעשות באתר הדואר

              Y תגובה 1 תגובה אחרונה
              0
              • by6199B by6199

                @avi_av אמר בהוספת מיקוד אוטומטי בקובץ אקסל:

                @by6199 אמר בהוספת מיקוד אוטומטי בקובץ אקסל:

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

                אז את אלו שלא יזהו אוטומטית - תמלא ידנית..
                את העבודה הקשה חסכת.

                בכל מקרה, api חיצוני אמור להתאים.
                אשכול בפרוג על קוד vba לעניין

                ראיתי, לא יודע איך להגדיר בקובץ, האקסס שם לא תקין ובנוסף זה אחד אחד את זה גם ניתן לעשות באתר הדואר

                Y מנותק
                Y מנותק
                yits
                כתב ב נערך לאחרונה על ידי yits
                #8

                @by6199

                אם אתה עדיין צריך קוד, מצאתי משהו שעשיתי עם הקוד שפורסם בפרוג.
                Module1.bas

                אתה צריך להכניס את הקובץ לתוך הפרוייקט שלף באקסס,
                הפונקציה הראשונה פותחת שאילתה של טבלת "נתונים" ובודקת אם השדה "מיקוד" הוא ריק,
                במקרה שהתשובה חיובית, הוא לוקח את הפרמטרים הבאים "רחוב,עיר,בית,כניסה" מתוך הטבלה ויוצר URL, התשובה שמתקבלת מתעדכנת ישירות בטבלת נתונים.

                ' השורה הראשונה עבור אקסס בלבד
                Option Compare Database
                Option Explicit
                
                Sub Demo()
                
                    Dim rs As DAO.Recordset
                    Dim strUrl As String
                
                    Set rs = CurrentDb.OpenRecordset("נתונים")
                
                    With rs
                        .MoveFirst
                        Do Until rs.EOF
                      
                            If Nz(!מיקוד) = "" Then
                
                                strUrl = "http://www.israelpost.co.il/zip_data1.nsf/SearchZip?OpenAgent"
                                strUrl = strUrl & "&Location=" & UnicodeEncode(!עיר)
                                strUrl = strUrl & "&POB="
                                strUrl = strUrl & "&Street=" & UnicodeEncode(!רחוב)
                                strUrl = strUrl & "&House=" & UnicodeEncode(!בית)
                                strUrl = strUrl & "&Entrance=" & UnicodeEncode(!כניסה)
                            
                                .Edit
                                !מיקוד = GetZipCode(strUrl, False)
                                .Update
                                If !מיקוד <> 0 Then
                                    Debug.Print !עיר & vbTab & !רחוב & vbTab & !בית & vbTab & !מיקוד
                                End If
                            End If
                           
                            .MoveNext
                             
                        Loop
                    End With
                
                End Sub
                
                Public Function UnicodeEncode(str) As String
                    If IsNull(str) Then Exit Function
                    Dim i, a
                    For i = 1 To Len(str)
                        a = AscW(Mid(str, i, 1))
                        If a > -1 And a < 127 Then
                            UnicodeEncode = UnicodeEncode & "%" & String(2 - Len(Hex(a)), "0") & Hex(a)
                        ElseIf a > -1 Or a < 65535 Then
                            UnicodeEncode = UnicodeEncode & "%u" & String(4 - Len(Hex(a)), "0") & Hex(a)
                        End If
                    Next
                End Function
                
                Function GetZipCode(strUrl As String, Optional blnAlert As Boolean = True) As Long
                
                    Dim oHttpRequest As Object
                    Dim strResult As String
                
                    Set oHttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
                    oHttpRequest.Open "GET", strUrl
                
                    ' שליחת בקשה '
                    oHttpRequest.Send
                
                    ' נקבל תוצאה זו '
                    strResult = oHttpRequest.ResponseText
                
                    ' הוצאת המיקוד 7 ספרות '
                    If InStr(1, strResult, "ישוב או רחוב לא קיים") > 0 Then
                        GetZipCode = 0
                    ElseIf InStr(1, strResult, "לא נמצא מיקוד") > 0 Then
                        GetZipCode = 0
                    ElseIf InStr(1, strResult, "למבנה קיימות מס' כניסות – לקבלת המיקוד המדויק לכניסה - נא לבחור כניסה") > 0 Then
                        GetZipCode = Mid(strResult, InStr(1, strResult, "</body>") - 78, 7)
                        If blnAlert Then MsgBox "למבנה קיימות מס' כניסות – לקבלת המיקוד המדויק לכניסה - נא לבחור כניסה.", vbMsgBoxRight + vbMsgBoxRtlReading + vbInformation
                    Else
                        GetZipCode = Mid(strResult, InStr(1, strResult, "</body>") - 8, 7)
                    End If
                
                    Set oHttpRequest = Nothing
                
                End Function
                
                Function GetRate(strUrl As String) As Double
                
                    Dim oHttpRequest As Object
                    Dim strResult As String
                
                    Set oHttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
                    oHttpRequest.Open "GET", strUrl
                
                    ' שליחת בקשה '
                    oHttpRequest.Send
                
                    ' נקבל תוצאה זו '
                    strResult = oHttpRequest.ResponseText
                
                ''<ERROR1>
                    GetRate = Mid(strResult, _
                        InStr(1, strResult, "<RATE>") + 6, _
                        InStr(1, strResult, "</RATE>") - InStr(1, strResult, "<RATE>") - 6)
                
                    Set oHttpRequest = Nothing
                
                End Function
                
                
                
                

                לקניה והנחות ב KSP כנסו מכאן.
                למוצרים עם הנחה מכאן.

                by6199B מוטי מןמ 2 תגובות תגובה אחרונה
                2
                • Y yits

                  @by6199

                  אם אתה עדיין צריך קוד, מצאתי משהו שעשיתי עם הקוד שפורסם בפרוג.
                  Module1.bas

                  אתה צריך להכניס את הקובץ לתוך הפרוייקט שלף באקסס,
                  הפונקציה הראשונה פותחת שאילתה של טבלת "נתונים" ובודקת אם השדה "מיקוד" הוא ריק,
                  במקרה שהתשובה חיובית, הוא לוקח את הפרמטרים הבאים "רחוב,עיר,בית,כניסה" מתוך הטבלה ויוצר URL, התשובה שמתקבלת מתעדכנת ישירות בטבלת נתונים.

                  ' השורה הראשונה עבור אקסס בלבד
                  Option Compare Database
                  Option Explicit
                  
                  Sub Demo()
                  
                      Dim rs As DAO.Recordset
                      Dim strUrl As String
                  
                      Set rs = CurrentDb.OpenRecordset("נתונים")
                  
                      With rs
                          .MoveFirst
                          Do Until rs.EOF
                        
                              If Nz(!מיקוד) = "" Then
                  
                                  strUrl = "http://www.israelpost.co.il/zip_data1.nsf/SearchZip?OpenAgent"
                                  strUrl = strUrl & "&Location=" & UnicodeEncode(!עיר)
                                  strUrl = strUrl & "&POB="
                                  strUrl = strUrl & "&Street=" & UnicodeEncode(!רחוב)
                                  strUrl = strUrl & "&House=" & UnicodeEncode(!בית)
                                  strUrl = strUrl & "&Entrance=" & UnicodeEncode(!כניסה)
                              
                                  .Edit
                                  !מיקוד = GetZipCode(strUrl, False)
                                  .Update
                                  If !מיקוד <> 0 Then
                                      Debug.Print !עיר & vbTab & !רחוב & vbTab & !בית & vbTab & !מיקוד
                                  End If
                              End If
                             
                              .MoveNext
                               
                          Loop
                      End With
                  
                  End Sub
                  
                  Public Function UnicodeEncode(str) As String
                      If IsNull(str) Then Exit Function
                      Dim i, a
                      For i = 1 To Len(str)
                          a = AscW(Mid(str, i, 1))
                          If a > -1 And a < 127 Then
                              UnicodeEncode = UnicodeEncode & "%" & String(2 - Len(Hex(a)), "0") & Hex(a)
                          ElseIf a > -1 Or a < 65535 Then
                              UnicodeEncode = UnicodeEncode & "%u" & String(4 - Len(Hex(a)), "0") & Hex(a)
                          End If
                      Next
                  End Function
                  
                  Function GetZipCode(strUrl As String, Optional blnAlert As Boolean = True) As Long
                  
                      Dim oHttpRequest As Object
                      Dim strResult As String
                  
                      Set oHttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
                      oHttpRequest.Open "GET", strUrl
                  
                      ' שליחת בקשה '
                      oHttpRequest.Send
                  
                      ' נקבל תוצאה זו '
                      strResult = oHttpRequest.ResponseText
                  
                      ' הוצאת המיקוד 7 ספרות '
                      If InStr(1, strResult, "ישוב או רחוב לא קיים") > 0 Then
                          GetZipCode = 0
                      ElseIf InStr(1, strResult, "לא נמצא מיקוד") > 0 Then
                          GetZipCode = 0
                      ElseIf InStr(1, strResult, "למבנה קיימות מס' כניסות – לקבלת המיקוד המדויק לכניסה - נא לבחור כניסה") > 0 Then
                          GetZipCode = Mid(strResult, InStr(1, strResult, "</body>") - 78, 7)
                          If blnAlert Then MsgBox "למבנה קיימות מס' כניסות – לקבלת המיקוד המדויק לכניסה - נא לבחור כניסה.", vbMsgBoxRight + vbMsgBoxRtlReading + vbInformation
                      Else
                          GetZipCode = Mid(strResult, InStr(1, strResult, "</body>") - 8, 7)
                      End If
                  
                      Set oHttpRequest = Nothing
                  
                  End Function
                  
                  Function GetRate(strUrl As String) As Double
                  
                      Dim oHttpRequest As Object
                      Dim strResult As String
                  
                      Set oHttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
                      oHttpRequest.Open "GET", strUrl
                  
                      ' שליחת בקשה '
                      oHttpRequest.Send
                  
                      ' נקבל תוצאה זו '
                      strResult = oHttpRequest.ResponseText
                  
                  ''<ERROR1>
                      GetRate = Mid(strResult, _
                          InStr(1, strResult, "<RATE>") + 6, _
                          InStr(1, strResult, "</RATE>") - InStr(1, strResult, "<RATE>") - 6)
                  
                      Set oHttpRequest = Nothing
                  
                  End Function
                  
                  
                  
                  
                  by6199B מנותק
                  by6199B מנותק
                  by6199
                  כתב ב נערך לאחרונה על ידי
                  #9

                  @yits לצערי מעולם לא התעסקתי לבד באקסס, וזה נשמע לי גדול קצת...

                  Y תגובה 1 תגובה אחרונה
                  1
                  • by6199B by6199

                    @yits לצערי מעולם לא התעסקתי לבד באקסס, וזה נשמע לי גדול קצת...

                    Y מנותק
                    Y מנותק
                    yits
                    כתב ב נערך לאחרונה על ידי
                    #10

                    @by6199

                    מה אתה רוצה לעשות לעדכן פריט יחיד או טבלה שלמה?

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

                    לקניה והנחות ב KSP כנסו מכאן.
                    למוצרים עם הנחה מכאן.

                    by6199B תגובה 1 תגובה אחרונה
                    1
                    • Y yits

                      @by6199

                      מה אתה רוצה לעשות לעדכן פריט יחיד או טבלה שלמה?

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

                      by6199B מנותק
                      by6199B מנותק
                      by6199
                      כתב ב נערך לאחרונה על ידי
                      #11

                      @yits אמר בהוספת מיקוד אוטומטי בקובץ אקסל:

                      @by6199

                      מה אתה רוצה לעשות לעדכן פריט יחיד או טבלה שלמה?

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

                      לעדכן טבלה.

                      בודד כבר הייתי מעתיק מהדואר

                      תגובה 1 תגובה אחרונה
                      0
                      • Y מנותק
                        Y מנותק
                        yits
                        כתב ב נערך לאחרונה על ידי
                        #12

                        @by6199
                        אני התכוונתי לשאול האם אתה רוצה שבהוספת איש קשר אוטמטי יתווסף לו מיקוד
                        או פעם ב... תפעיל שאילתה של הוספת/ עדכון מיקוד לכולם.

                        בכל אופן מה שאני השתמשתי זה האופציה השניה (מכיון שרציתי להריץ את זה חד פעמי,
                        וכרגיל אני לוקח מתוך קובץ מקומי של מיקוד).

                        לקניה והנחות ב KSP כנסו מכאן.
                        למוצרים עם הנחה מכאן.

                        תגובה 1 תגובה אחרונה
                        0
                        • י מנותק
                          י מנותק
                          ימהר
                          כתב ב נערך לאחרונה על ידי
                          #13

                          @by6199
                          קח קובץ אקסס שיעשה לך את זה.
                          תדביק את הנתונים שלך בטבלה, והפעל את הלחצן
                          0_1536705537649_קבלת מיקוד.accdb

                          תגובה 1 תגובה אחרונה
                          5
                          • shloymiS מנותק
                            shloymiS מנותק
                            shloymi
                            כתב ב נערך לאחרונה על ידי
                            #14

                            @ימהר ניסיתי לעבוד עם הקובץ אך הוא מחזיר תשובה של בעיה בשרת.
                            האם מישהו יודע מה הבעיה בקוד שלכן הוא לא מאפשר את קבלת המיקוד?

                            תגובה 1 תגובה אחרונה
                            0
                            • Y yits

                              @by6199

                              אם אתה עדיין צריך קוד, מצאתי משהו שעשיתי עם הקוד שפורסם בפרוג.
                              Module1.bas

                              אתה צריך להכניס את הקובץ לתוך הפרוייקט שלף באקסס,
                              הפונקציה הראשונה פותחת שאילתה של טבלת "נתונים" ובודקת אם השדה "מיקוד" הוא ריק,
                              במקרה שהתשובה חיובית, הוא לוקח את הפרמטרים הבאים "רחוב,עיר,בית,כניסה" מתוך הטבלה ויוצר URL, התשובה שמתקבלת מתעדכנת ישירות בטבלת נתונים.

                              ' השורה הראשונה עבור אקסס בלבד
                              Option Compare Database
                              Option Explicit
                              
                              Sub Demo()
                              
                                  Dim rs As DAO.Recordset
                                  Dim strUrl As String
                              
                                  Set rs = CurrentDb.OpenRecordset("נתונים")
                              
                                  With rs
                                      .MoveFirst
                                      Do Until rs.EOF
                                    
                                          If Nz(!מיקוד) = "" Then
                              
                                              strUrl = "http://www.israelpost.co.il/zip_data1.nsf/SearchZip?OpenAgent"
                                              strUrl = strUrl & "&Location=" & UnicodeEncode(!עיר)
                                              strUrl = strUrl & "&POB="
                                              strUrl = strUrl & "&Street=" & UnicodeEncode(!רחוב)
                                              strUrl = strUrl & "&House=" & UnicodeEncode(!בית)
                                              strUrl = strUrl & "&Entrance=" & UnicodeEncode(!כניסה)
                                          
                                              .Edit
                                              !מיקוד = GetZipCode(strUrl, False)
                                              .Update
                                              If !מיקוד <> 0 Then
                                                  Debug.Print !עיר & vbTab & !רחוב & vbTab & !בית & vbTab & !מיקוד
                                              End If
                                          End If
                                         
                                          .MoveNext
                                           
                                      Loop
                                  End With
                              
                              End Sub
                              
                              Public Function UnicodeEncode(str) As String
                                  If IsNull(str) Then Exit Function
                                  Dim i, a
                                  For i = 1 To Len(str)
                                      a = AscW(Mid(str, i, 1))
                                      If a > -1 And a < 127 Then
                                          UnicodeEncode = UnicodeEncode & "%" & String(2 - Len(Hex(a)), "0") & Hex(a)
                                      ElseIf a > -1 Or a < 65535 Then
                                          UnicodeEncode = UnicodeEncode & "%u" & String(4 - Len(Hex(a)), "0") & Hex(a)
                                      End If
                                  Next
                              End Function
                              
                              Function GetZipCode(strUrl As String, Optional blnAlert As Boolean = True) As Long
                              
                                  Dim oHttpRequest As Object
                                  Dim strResult As String
                              
                                  Set oHttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
                                  oHttpRequest.Open "GET", strUrl
                              
                                  ' שליחת בקשה '
                                  oHttpRequest.Send
                              
                                  ' נקבל תוצאה זו '
                                  strResult = oHttpRequest.ResponseText
                              
                                  ' הוצאת המיקוד 7 ספרות '
                                  If InStr(1, strResult, "ישוב או רחוב לא קיים") > 0 Then
                                      GetZipCode = 0
                                  ElseIf InStr(1, strResult, "לא נמצא מיקוד") > 0 Then
                                      GetZipCode = 0
                                  ElseIf InStr(1, strResult, "למבנה קיימות מס' כניסות – לקבלת המיקוד המדויק לכניסה - נא לבחור כניסה") > 0 Then
                                      GetZipCode = Mid(strResult, InStr(1, strResult, "</body>") - 78, 7)
                                      If blnAlert Then MsgBox "למבנה קיימות מס' כניסות – לקבלת המיקוד המדויק לכניסה - נא לבחור כניסה.", vbMsgBoxRight + vbMsgBoxRtlReading + vbInformation
                                  Else
                                      GetZipCode = Mid(strResult, InStr(1, strResult, "</body>") - 8, 7)
                                  End If
                              
                                  Set oHttpRequest = Nothing
                              
                              End Function
                              
                              Function GetRate(strUrl As String) As Double
                              
                                  Dim oHttpRequest As Object
                                  Dim strResult As String
                              
                                  Set oHttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
                                  oHttpRequest.Open "GET", strUrl
                              
                                  ' שליחת בקשה '
                                  oHttpRequest.Send
                              
                                  ' נקבל תוצאה זו '
                                  strResult = oHttpRequest.ResponseText
                              
                              ''<ERROR1>
                                  GetRate = Mid(strResult, _
                                      InStr(1, strResult, "<RATE>") + 6, _
                                      InStr(1, strResult, "</RATE>") - InStr(1, strResult, "<RATE>") - 6)
                              
                                  Set oHttpRequest = Nothing
                              
                              End Function
                              
                              
                              
                              
                              מוטי מןמ מנותק
                              מוטי מןמ מנותק
                              מוטי מן
                              כתב ב נערך לאחרונה על ידי
                              #15
                              פוסט זה נמחק!
                              תגובה 1 תגובה אחרונה
                              0
                              • Y מנותק
                                Y מנותק
                                yossidror
                                כתב ב נערך לאחרונה על ידי
                                #16
                                פוסט זה נמחק!
                                תגובה 1 תגובה אחרונה
                                0
                                תגובה
                                • תגובה כנושא
                                התחברו כדי לפרסם תגובה
                                • מהישן לחדש
                                • מהחדש לישן
                                • הכי הרבה הצבעות


                                בא תתחבר לדף היומי!
                                • התחברות

                                • אין לך חשבון עדיין? הרשמה

                                • התחברו או הירשמו כדי לחפש.
                                • פוסט ראשון
                                  פוסט אחרון
                                0
                                • דף הבית
                                • קטגוריות
                                • פוסטים אחרונים
                                • משתמשים
                                • חיפוש
                                • חוקי הפורום