קישור (URL) להעלאת קבצים
-
-
@MGM-IVR אני חובבן... ולא מפתח מקצועי....
אז איך באמת מקצוען כמוך יגדיר מהיכן לקחת את הנתונים?
מותר לי להטריח שתביא לי דוגמא של קוד קטן?? -
@יב כתב בקישור (URL) להעלאת קבצים:
ולשאלתי, האם אני צריך להוריד את הספרייה, או אם כבר מוגדר בVBA של הקובץ, זה יגיע תמיד עם הקובץ?
אני לא יודע לכתוב vba כמעט
-
@יב כתב בקישור (URL) להעלאת קבצים:
@MGM-IVR אני חובבן... ולא מפתח מקצועי....
כתבת בקטגוריה של מפתחים, אז הנחתי שאתה מפתח.
אז איך באמת מקצוען כמוך יגדיר מהיכן לקחת את הנתונים?
מותר לי להטריח שתביא לי דוגמא של קוד קטן??אני לא יודע לכתוב vba כמעט,
אבל אני חושב שבקובץ אקסס יש לך דוגמא חיה שעובדת, תנסה להגיע לקוד מקור שם, (לא מסובך), תבודד את הפונקציה של העלאת הקבצים, ותבדוק. -
@יב כתב בקישור (URL) להעלאת קבצים:
אז איך באמת מקצוען כמוך יגדיר מהיכן לקחת את הנתונים?
זה לא ההגדרה הנכונה, כשאתה כותב לינק אתה לא לוקח נתונים ממקום כלשהו, אלא להיפך, אתה יוזם בקשה לשרת של ימות עם פרטים מסוימים, כמו טוקן, נתיב וכו' ואחד מהפרטים הללו הוא התוכן של הקובץ שאתה רוצה להעלות (או ביותר פשוט, אתה לא מגדיר מאיפה לקחת, אלא קודם לוקח ואז שולח את הבקשה עם זה )
לגופו של עניין, אני לא ממש הבנתי למה אתה רוצה את זה, ללינק שתריץ בדפדפן כמו הדוגמאות של הדברים האחרים? א"כ זה לא אפשרי בדיוק אבל יש את זה https://www.call2all.co.il/ym/api_upload_test.php שמופיע בתיעוד API.
או שאתה רוצה להכניס את זה כחלק מפיתוח מסויים, VBA כמו שאפשר להבין מההודעות הקודמות אם מתאמצים קצת... כי יש לי כל מיני מודולי העלאה לימות בכל מיני שפות וסביבות, רק אני לא ממש הבנתי מה יתאים לך...
-
@אביי-ורבא קלעת למטרה...
יש לי טבלה באקסל, וכתבתי קוד vba ששומרת את הטבלה בתור רשימות uft-8 - מוכן ומזומן להעלות לאתר.
עכשיו אני רוצה להוסיף בקוד, שבמידה והוא מחובר לאינטרנט, הוא יעלה ישירות את הקובץ לאתר.
כך, שאני צריך קוד ב vba. -
@MGM-IVR כתב בקישור (URL) להעלאת קבצים:
כתבת בקטגוריה של מפתחים, אז הנחתי שאתה מפתח.
כי רציתי את העזרה של המפתחים...
אני חושב שבקובץ אקסס יש לך דוגמא חיה שעובדת, תנסה להגיע לקוד מקור שם, (לא מסובך), תבודד את הפונקציה של העלאת הקבצים, ותבדוק.
ניסיתי, קצת לבדוק, והבנתי שכל קוד משולב עם כמה פונקציות (שכל פונקציה יש בו כמה תנאים וכו'), כך, שהתייאשתי...
-
@יב רק שאבין, מה בדיוק הנתונים שאתה רוצה להעלות? זה קובץ שמע או טקסט? כי לטקסט זה הרבה יותר פשוט...
-
@אביי-ורבא טקסט.
קובץ ini -
@יב עדיף לך להשתמש בכלל בזה
https://f2.freeivr.co.il/post/32056בזה אפשר באמת להשתמש בGET אבל זה יהיהה מוגבל לבקשות באורך של עד 2048 תווים, ליותר מזה (וסתם ככה מומלץ) להשתמש בפוסט, אני אשתדל עוד מעט להביא דוגמה בVBA(אם יהיה לי זמן..)
-
@אביי-ורבא מה אני כותב ב contents?
-
@יב כתב בקישור (URL) להעלאת קבצים:
@אביי-ורבא מה אני כותב ב contents?
את הטקסט עצמו
סבתא בישלה דייסה וכו'
-
@אביי-ורבא כמובן...
אבל איך אני מפסיק ביניהם לשורות? -
@יב כשאתה שולח באופן הזה (ורק באופן הזה) לירידת שורה תכתוב
%0A
-
הקדמה: כאמור אני לא מקצועי, ואני לא יכול לקחת אחריות, אם יש בעיה בקוד חלקי שלפנינו.
עם זאת אני התחלתי לכתוב קוד בvba, אבל אבקש את עזרתכם להשלמת הקוד.
רקע; אני כתבתי את הקוד, כדי לייבא קובץIdListMessage.ini
, ששם אמור להיות: טלפון, ומה להשמיע, טקסט או קובץ, ולכן, עשיתי נוסחה בעמודה AA, שלוקח את הפרטים משאר עמודות, עם תוספת t. או f. כפי המתבקש...
על כל פנים, אני צריך לייבא רק את עמודה AA, ולהגדיר בקוד, שכל שורה באקסל, חייבת להיות גם שורה חדשה בקובץ.
Sub UploadTextToWebsite() Dim ws As Worksheet Dim lastRow As Long Dim Text As String Dim url As String 'מגדיר את את שם הגיליון Set ws = ThisWorkbook.Sheets("שם הגיליון") 'תמצא את השורה אחרונה שבעמודה 'AA lastRow = ws.Cells(ws.Rows.Count, "AA").End(xlUp).row 'תעבור בלולאה בכל שורה מעמודה 'AA 'ושרשרו את הטקסט, במשתנה 'text For i = 1 To lastRow Text = Text & ws.Range("AA" & i).Value & vbCrLf &"%0A" Next i 'תבנה את כתובת האתר url = "https://www.call2all.co.il/ym/api/UploadTextFile? token=077*******:1234&what=ivr2:/99/9/IdListMessage.ini&contents= & Text End Sub
אז מה הבעיה בקוד הזה?
על פניו הוא לוקח את כל השורות שבעמודה AA, ומוסיף את הסימון כדי לרדת שורה, ומכניס את הכל לכתובת האתר.
אבל...
איך אני יודע אם הוא לא משבש את האותיות העבריות לסימנים נוספים, (וכמו כן, אולי צריך להגדיר שיהיה מקודד ל uft-8).
והעיקר חסר מן הספר: איך אני לוקח את הקוד הזה שהוא קיבל במשתנהurl
, ומעלה את זה לאתר?
וכמו כן, כאמור, הואיל שאני לא מקצוען, ייתכן שחסר כאן הרבה...ולכן את אחיי אנכי מבקש, אנא את עזרתכם!!! - תודה!!!