Function fGetZip(strResponse As String) As String
With CreateObject("VBScript.RegExp")
.Pattern = "RES[0-9]+"
If .Test(strResponse) Then
fGetZip = Right(.Execute(strResponse)(0), 7)
End If
End With
End Function
Dim objHttpRequest As Object
Dim strResponse As String
Set objHttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
objHttpRequest.Open "GET", strUrl
objHttpRequest.Send
strResponse = oHttpRequest.responseText
Set objHttpRequest = Nothing
חד משמעית, כן. מהסיבות שכתבתי.נכתב ע"י סבתא111;2057876:2. לגבי הערה 6, שאלה: בקוד ארוך, שמשתמשים בו עם עשרות משתנים, ובתחילת הקוד יש תנאי שברוב המקרים משמש ליציאה מהקוד. האם כדאי להצהיר על המשתנים רק אחרי התנאי? או שעדיין הכלל הוא "הצהרה בראש הקוד"?
זה רק הוכחה שהקוד שלך לא פועל כראוינכתב ע"י סבתא111;2057876:3. לגבי השדה כניסה: בניסיונות שעשיתי הוא החזיר מיקוד לא נכון, ולכן השמטתי אותו.
גוגל...נכתב ע"י סבתא111;2057876:4. הפונקציה fGetZip שהבאת ממש מדהימה. היכן ניתן לקרוא על הפונקציות השונות של VBScript.RegExp?
כנ"ל.נכתב ע"י סבתא111;2057876:. את כולנו מעניין ללמוד יותר, למשל בפונקציה CreateObject בתגובה שלך יצרת שני אובייקטים מעניינים. האם יש למישהו חומר למידה על הפונקציות השונות, בעיקר הנעלמות? כמו"כ, יש הרבה קודים שמשתמשים עם הספריות kernel32 ו- user32, היכן ניתן ללמוד על הפונקציות שבהם?
נכתב ע"י סבתא111;2057876:אההםםם, עוד משהו, אולי מתאים לפתוח בשבילו אשכול חדש... האם יש דרך לשלוח פקודות API בטכנולוגיית POST ע"י VBA?
בודאי!
נושא חדש, אשכול חדש...נכתב ע"י סבתא111;2058282:2. לגבי הAPI, תוכל להעלות דוגמא? כשיתאפשר לך.
כדאי מאוד מאוד מאוד (ושוב פעם מאוד) להקפיד על הזחה (indentation בלע"ז) מתאימה לקוד. ההזחה מקילה על הקריאה וההבנה ומונעת הרבה מאוד שגיאות תחביר ובאגים.יש כלי נפלא להזחה אוטומטית, ניתן להוריד אותו כאן. בגירסאות האחרונות ההתקנה שלו טיפה מסובכת (תשאל כאן בפורום אם צריך ) אבל הוא שוה את זה. כשתתרגל לא תבין איך הסתדרת בלעדיו.
תודה רבה!
סליחה על ההקפצה,בהחלט דיון פורה ומעשיר את הידע.
מצו"ב קובץ משודרג, עם פונקציה שפועלת בשאילתות, וכן באקסל!
איזה קובץ לא פעיל?הקובץ הנ"ל כנראה לא פעיל.
יש למישהו דבר כזה?
לוח לימודים
מסלולי לימוד שאפשר לההצטרף
אליהם ממש עכשיו:
4.06
כ"ז אייר
סילבוס חדש ל-2024!
קורס פיתוח ובניית אתרים
קריירה מתקדמת, ביקוש עצום, וממוצע משכורות גבוה במיוחד!
מלגות גבוהות ומשתלמות!
2.06
כ"ה אייר
פתיחת מסלול
קורס עריכת וידאו
מלגות והנחות משמעותיות!
4.06
כ"ז אייר
#רקבפרוג
הרצאה מרתקת:
הכירו את טווינמושן
עם גל אקסלרוד
עולם מטורף משל הדמיות! ממשק חדשני שמאפשר לבצע הדמיה כמעט כמו משחק מחשב
לתלמידים ובוגרים בלבד!
27.06
כ"א סיוון
פתיחת מסלול
עיצוב ואדריכלות פנים
מלגות גבוהות!
27.06
כ"א סיוון
השקה חגיגית!
עיצוב גרפי ודיגיטל - בסילבוס חדש ומטורף!
מלגות גבוהות!
תהילים פרק קמט
א הַלְלוּיָהּ שִׁירוּ לַיהוָה שִׁיר חָדָשׁ תְּהִלָּתוֹ בִּקְהַל חֲסִידִים:ב יִשְׂמַח יִשְׂרָאֵל בְּעֹשָׂיו בְּנֵי צִיּוֹן יָגִילוּ בְמַלְכָּם:ג יְהַלְלוּ שְׁמוֹ בְמָחוֹל בְּתֹף וְכִנּוֹר יְזַמְּרוּ לוֹ:ד כִּי רוֹצֶה יְהוָה בְּעַמּוֹ יְפָאֵר עֲנָוִים בִּישׁוּעָה:ה יַעְלְזוּ חֲסִידִים בְּכָבוֹד יְרַנְּנוּ עַל מִשְׁכְּבוֹתָם:ו רוֹמְמוֹת אֵל בִּגְרוֹנָם וְחֶרֶב פִּיפִיּוֹת בְּיָדָם:ז לַעֲשׂוֹת נְקָמָה בַּגּוֹיִם תּוֹכֵחֹת בַּלְאֻמִּים:ח לֶאְסֹר מַלְכֵיהֶם בְּזִקִּים וְנִכְבְּדֵיהֶם בְּכַבְלֵי בַרְזֶל:ט לַעֲשׂוֹת בָּהֶם מִשְׁפָּט כָּתוּב הָדָר הוּא לְכָל חֲסִידָיו הַלְלוּיָהּ: