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 בלע"ז) מתאימה לקוד. ההזחה מקילה על הקריאה וההבנה ומונעת הרבה מאוד שגיאות תחביר ובאגים.יש כלי נפלא להזחה אוטומטית, ניתן להוריד אותו כאן. בגירסאות האחרונות ההתקנה שלו טיפה מסובכת (תשאל כאן בפורום אם צריך ) אבל הוא שוה את זה. כשתתרגל לא תבין איך הסתדרת בלעדיו.
תודה רבה!
סליחה על ההקפצה,בהחלט דיון פורה ומעשיר את הידע.
מצו"ב קובץ משודרג, עם פונקציה שפועלת בשאילתות, וכן באקסל!
איזה קובץ לא פעיל?הקובץ הנ"ל כנראה לא פעיל.
יש למישהו דבר כזה?
אל תחמיצו!!!
מנוי פרימיום באתר פרוג, יקפיץ את המוניטין שלך לקהל גדול שאסור לך להחמיץ!
ועכשיו בהזדמנות, מבצע פסח 10% הנחה ברכישת מנוי שנתי!
לוח לימודים
מסלולי לימוד שאפשר לההצטרף
אליהם ממש עכשיו:
2.04
כ"ג אדר ב'
השקה חגיגית
חדש בפרוג
קורס חדשנות AI ובינה מלאכותית
14 שיעורים מפוצצים תוכן על כלי הAI השונים ליצירת תמונות וויז'ואל, עריכת וידאו ומושן, כתיבה ורעיונות, אפיון ועיצוב אתרים ועוד המון!
ההרשמה נפתחה!
20.03
י' אדר ב'
פתיחת מסלול
עיצוב ואדריכלות פנים
מלגות גבוהות!
26.03
טז' אדר ב'
פתיחת מסלול
מאסטר בשיווק דיגיטלי
מלגות גבוהות!
8.05
ל' ניסן
פתיחת מסלול
אוטומציות עסקיות, בוטים והטמעת מערכות מידע
מלגות גבוהות!
9.05
א' אייר
ירושלמי?
יש לנו מלגה מטורפת עבורך! קורס במימון כמעט מלא!!
אוטומציות עסקיות, בוטים והטמעת מערכות מידע
ההרשמה בעיצומה
28.05
כ' אייר
פתיחת מסלול מורחב:
פיתוח ובניית אתרים
מלגות גבוהות!
תהילים פרק קכג
א שִׁיר הַמַּעֲלוֹת אֵלֶיךָ נָשָׂאתִי אֶת עֵינַי הַיֹּשְׁבִי בַּשָּׁמָיִם:ב הִנֵּה כְעֵינֵי עֲבָדִים אֶל יַד אֲדוֹנֵיהֶם כְּעֵינֵי שִׁפְחָה אֶל יַד גְּבִרְתָּהּ כֵּן עֵינֵינוּ אֶל יְהוָה אֱלֹהֵינוּ עַד שֶׁיְּחָנֵּנוּ:ג חָנֵּנוּ יְהוָה חָנֵּנוּ כִּי רַב שָׂבַעְנוּ בוּז:ד רַבַּת שָׂבְעָה לָּהּ נַפְשֵׁנוּ הַלַּעַג הַשַּׁאֲנַנִּים הַבּוּז לִגְאֵיוֹנִים: