C
@דוד ל.ט.
ClickOne, כלל יהיה נקוט בידך: בVB.NET ובC#, כל קוד VBA יורד ב70-90%. קוד משפה אחרת גם מקבל ירידה משמעותית אבל לא בשיעור זה.
חלק בגלל תחביר משופר והרבה בגלל ספרייה רחבה בהיקף של דוט נט.
לא אמרתי שלא. רק אמרתי שאפשר להמיר VBA לדוטנט בצורה חלקה (וגם בזבזנית בקוד) -אבל זה יעבוד.
פורסם במקור בפורום CODE613 ב07/01/2014 16:22 (+02:00)
נתחיל לאט.
קודם כל הקוד הזה: כדי להפוך את השם של המשלם מהסוף להתחלה. (בגלל בDOS הופך את העברית, אני שולח אותה הפוך ואז מקבל את זה ישר.)
public string InverseText(ref string sText)
{
int i = 0;
string S2 = null;
for (i = Strings.Len(sText); i >= 1; i += -1) {
S2 = S2 + Strings.Mid(sText, i, 1);
}
return S2;
}
או בVB:
Public Function InverseText(ByRef sText As String) As String
Dim i As Integer
Dim S2 As String
For i = Len(sText) To 1 Step -1
S2 = S2 & Mid(sText, i, 1)
Next
InverseText = S2
End Function
אני מקווה להספיק בעז"ה להעלות הערב גם את הפונקצייה המרכזית של השירשור קובץ מסב.
תהנו!
פורסם במקור בפורום CODE613 ב07/01/2014 00:23 (+02:00)
@ארכיטקט
יש גם אתר שנקרא מסבית שמעתי זה יוצר קובץ מסב חינם אין כסף.בפרוג יש גם תוכנה קטנה באקסס ליצירת קובץ מסב
הנקודה היא שאני צריך לשתול א"ז בתוכנה עם קוד C#
הייתי מנסה לקחת את מה שיש שם, ולהדביק כאן (אתר שנותן לך להמיר מVB.NET לC# ולהפך)
לפני זה קח את הקוד של הVBA באקסס מפרוג, ותדביק אותו בתוך מודול של VB.NET, תגלה כמה פשוט ההעברה, רובב הדברים ישוכתבו לדוטנט, (לדוגמא: Variant יהפוך לObject), אח"כ תכנס לממיר ומיר אותו לC#. (או פשוט תשתמש בקלאס של VB בC# - נראה לי שזה אפשרי)
אם יהיה לי זמן, אני ישתדל בעז"ה לקחת את הקוד שלי ולהמיר לך אותו. אם כי אני יצטרך להעיף משם את כל הבדיקות הפנימיות של התוכנה שלי.
פורסם במקור בפורום CODE613 ב06/01/2014 23:02 (+02:00)
מיליון איש בונים יצירת קובץ מסב למה אין API אחד ויחסוך עבודה לכמיליארד איש. ובכלל כל מערכת הבנקאות בארץ ובעולם עובדת לפי תקנים של שנות השבעים, עוד עדות לכך שאסור לתת למבוגרים לנהל את העולם. יש גם אתר שנקרא מסבית שמעתי זה יוצר קובץ מסב חינם אין כסף.
יתרה מכך, למה א"א לשדר קובץ מס"ב דרך WEB SERVICE כמו באשראי?? לסגור את הקובץ לשמור אותו, לפתוח את מסב, להכניס את הקובץ, לבדוק, לבחור תאריך ערך, לאשר, לבצע, לשדר, לשים שם משתמש וסיסמא, וסגור 4 מסכים נפרדים... (מספיק ארוך התהליך???)
אגב, בקשר לתהליך הארוך, אני מצרף קובץ הוראות של אחד התומכים הבכירים במס"ב לשידור אוטומטי של הקובץ שיצרתם.
לינק לקובץ כי א"א לצרף כאן קובץ DOC
פורסם במקור בפורום CODE613 ב06/01/2014 22:56 (+02:00)
מדהים... דווקא הזיכויים ללא סיסמא.
שים לב!
הכי חשוב בכל הסיפור זה לסגור את הקובץ בקידוד הנכון, (דוס הישן) אחרת הקובץ יוצא שגוי.
וכמו כן לשים לב מאד שלא יהיו יותר/פחות מ128 תווים בשורה.
בנושא של הקידוד, בתקופה האחרונה מייקרוסופט כנראה שינו משהו באאוטלוק עם הקידוד של הקבצים המצורפים, כי לקוח שלי שהיה שולח כל קובץ את הקובץ המוכן דרך אאוטלוק, התלונן שיש שגיאה בקובץ, ורק אחרי שעה ארוכה (ערב סוכות 3 שעות לפני כניסת החג), החלטתי לבדוק את הקובץ מול תוכנת מס"ב של לקוח אחר שלי, ושם הוא עבר פיקס. אז הבנתי שהבעייה זה הקידוד.
מאז הלקוח שולח את המסב מכווץ בזיפ וזה הפיתרון היחיד שם לעת עתה.
פורסם במקור בפורום CODE613 ב06/01/2014 22:49 (+02:00)
מפרט בניית חיובים
מפרט קובץ זיכויים
אם זה מבקש סיסמא אז הסיסמא היא: MASAV25 (עידכון: בדקתי כעת, והם כנראה שינו את הסיסמא, אני ינסה כבר לבדוק אם יש לי את הקובץ הישן עם הסיסמא הנ"ל)
אני יודע שביקשת קוד מוכן, אבל זה די זריז, והרבה תלוי בהגדרות פנימיות שלך.
פשוט שירשור של 128 תווים כל שורה.
הייתי מציע לך לראות גם את בדיקת חוקיות חשבון
פורסם במקור בפורום CODE613 ב06/01/2014 22:38 (+02:00)
לצערי, זה מה שאני מקבל 
Screenshot 2014-01-06 00.25.49.png
פורסם במקור בפורום CODE613 ב06/01/2014 00:26 (+02:00)
@דוד ל.ט.
web בלי שרת, זה לא שווה כלום.
איך תקרא את תוכן הפקדים?
איך תאזין לאירועי הדף/JS?
הפיתרון המסורבל הוא להשתמש בקבצים שזה זבל של עבודה.בקיצור אם אתה פוזל למקומות אחרים (אני מעודד) נסה שוב, תכנות לווב לגמרי או WPF (מומלץ בחום!!).
אני מציע שתקרא שוב את ההודעה הראשונה בשירשור, ותוריד את הדוגמא.
לא התכוונתי ח"ו לפקד WEB אמיתי, אלא דימוי של WEB בצורה שבה זה נראה ומתנהג.
פורסם במקור בפורום CODE613 ב08/01/2014 11:25 (+02:00)
למה כילאים?
אני מבין שיש לך חסכים מאיפה שאתה עומד.. :mrgreen:
ממש לא! כמו שאתה (ומיסטר ר') מתנגדים להביא את עולם הטפסים כי א"א לעשות כלאיים....
@ארכיטקט
אני נגד לכתוב פקדי web באקסס.
מי שכבר עובר ל web שיעבור עד הסוף, מי שעובד עם אקסס שיבין שאלו הם יכולותיו, זה לא שווה את התחזוקה.
השאלה האם אובייקט אקורדיון שווה ערך לWEB, וזה חיקוי, או שכמו שיש תיבת טקסט ומשולבת בWEB, אין התנגדות שיהיה אובייקט אקורדיון באקסס.
פורסם במקור בפורום CODE613 ב08/01/2014 09:48 (+02:00)
רציתי להתייעץ ולשמוע את דעתכם.
........אשמח לשמוע גם ממי שלא באקסס (וכמובן ממי שבאקסס), האם ראוי בכלל לנסות לכתוב פקדי WEB או להביא ממשק WEB לטפסי חלון, או שזה סתם עירבוב מעצבן בין התחומים.
[size=150:bgsuz69e]מעניין שעל זה אף אחד לא ענה.[/size:bgsuz69e]
מה אתם אומרים, ראוי בכלל לנסות לכתוב פקדי WEB או להביא ממשק דמוי WEB לטפסי חלון, או שזה סתם עירבוב מעצבן בין התחומים.
אתם מתחברים לממשק כזה? או הייתם מעדיפים טפסים פשוטים?
דעתכם חשובה לי!!
פורסם במקור בפורום CODE613 ב07/01/2014 23:20 (+02:00)
תראה הטריק הוא יפה, אבל זה ממש לא נייד, כל פעם שתרצה להעביר את זה למקום אחר עם נתונים טיפה שונים אתה תצטרך לחשוב טוב טוב מה לשנות והיכן וזה עלול להביא לשגיאות, בקיצור זה לא פקד גנארי
אולי עדיף לכתוב DLL חיצוני בדוטנט שיהיה בו תיבת דו שיח וכשצריך תציג את התיבת דו שיח הזו, ובה יהיה את האוקורדיון.
אני חושב שראיתי שאפשר ליצור פקדי אקטיבי X וליבא אותם לאקסס.
ממש לא!
אני שומר לי טופס אחד של אב טיפוס, ופשוט מעתיק אותו לשם חדש כל פעם שאני צריך להשתמש בזה, אין שם שום נתונים ושומכלום :lol:
ובקוד כזה קטראין מקום לשגיאות אם שומרים על המבנה....
ועוד משהו זה לא תיבת דו שיח! זה אמור להיות טופס עבודה עם נתונים.
נכון שהייתי מעדיף אובייקט מוכן בDLL ואז כל שינוי שהייתי עושה שם זה היה מתבטא בכל מקום בתוכנית, אבל אין הצר שווה בנזק המלך....
פורסם במקור בפורום CODE613 ב06/01/2014 09:17 (+02:00)
הייתי אולי ממליץ להעביר בפונקציה מיערך עם כותרת + תוכן. ככה שאתה עושה לופ לפי גודל המערך ולא שרירותי.
בגלל שזה לא WEB, והממשק לא מבקש מAJAX לספר לשרת מה הID שהוא קיבל ואיזה HTML להחזיר (וגם זה שכשהתוכן יישלח עם הSUBMIT הוא לא חוזר לשרת), אז זה לא כ"כ שייך. (הרי לא מדובר בטפסים בזמן ריצה.- הלוואי...).
הכל מעוצב בתוך הטופס עצמו מראש.
בעיקרון, זו השיטה הרווחת בWINFORM ודומיה, (אפילו בWPF ובASPX) - וממש בעיקרון, אפילו בPHP. תקן אותי אם אני טועה. (אני לא טוען ח"ו שא"א לבצע טפסים דינמיים בשלל השפות שהזכרתי, אלא שהמתכנת בד"כ מעצב את הטופס מראש...)
פורסם במקור בפורום CODE613 ב06/01/2014 00:22 (+02:00)
אחד הדברים המעצבנים באקסס, זה שא"א ליצור פקדים על המסך תוך כדי ריצה.
כתבתי כבר את הסיבה.
בכל מקרה זה לא 9 עמודות , (אא"כ אתה מתכוון לטאב קונטרול). תפתח את האקסס (תעשה לפני זה ריסט מהARCH-LINUX לחלזונות), ותראה מה התכוונתי.
אני מצרף גם תמונה.
Screenshot 2014-01-06 00.13.25.png
פורסם במקור בפורום CODE613 ב06/01/2014 00:16 (+02:00)
רציתי להתייעץ ולשמוע את דעתכם.
מכירים את האקורדיון בWEB?
מישהו הציע לי לממש אובייקט דומה באקסס, במיוחד במסכים עתירי נתונים, או מסכים עם שלבים שצריך סדר ברור בין שלב לשלב. (כיום כשצריך ללכת שלב אחרי שלב אני נוהג להשתמש עם TabControl).
אני מצרף את האובייקט שבניתי, שזה בעצם מסך עם 9 כפתורים. (אחד הדברים המעצבנים באקסס, זה שא"א ליצור פקדים על המסך תוך כדי ריצה.) + אובייקט טאב עם 9 עמודים.
כמובן שאפשר לממש את זה עם כל מספר עמודים שתרצו וכן כל מספר כפתורים, רק שימו לב שאתם יוצרים מספר עמודים שווה למספר הכפתורים, וכן שימו לב שאתם קוראים לכפתורים בשם C + המספר הסידורי שלו.
הקוד:
Public Function setCmd(icmd As Integer)
' מטרת הפונקצייה לסדר את האקורדיון
' משתנה עבור גובה כולל
Dim AllH As Long
' הכפתור הראשון בגובה 0
c1.Top = 0
' מעבר בפור על כל הכפתורים
For i = 1 To 9
'הגובה של הכפתור הוא הגובה הכולל + 20
Me("c" & i).Top = AllH + 20
' שינוי הערך של הגובה הכולל
AllH = AllH + Me("c" & i).Height + 20
' בדיקה אם הכפתור הוא הכפתור שנלחץ (לפי המספר שבר בפרמטר) ואם כן, להציב שם את הטאב
If icmd = i Then
' הצבת הטאב
Me!TabCtl.Top = AllH + 20
' הגובה של הכל עד עכשיו
AllH = AllH + TabCtl.Height + 20
End If
' מעבר לכפתור הבא
Next
' הערך של הטאב הנוכחי הוא מספר הכפתור פחות אחד, כי האינדקס בטאב קונטרול מתחיל מ0
Me!TabCtl.Value = icmd - 1
End Function
להורדת הדוגמא:
Accordion.zip
[size=150:2qf5zpm2]הקובץ + קוד המקור פתוח לשימוש ושינוי חופשי![/size:2qf5zpm2]
אשמח לשמוע גם ממי שלא באקסס (וכמובן ממי שבאקסס), האם ראוי בכלל לנסות לכתוב פקדי WEB או להביא ממשק WEB לטפסי חלון, או שזה סתם עירבוב מעצבן בין התחומים.
פורסם במקור בפורום CODE613 ב05/01/2014 23:45 (+02:00)
מאוד מדאיג אותי הדיון הזה. אתם אפילו לא מבינים את האסון של השימוש בפקודה הזאת (גם לא משתמשים איתה לפי מספר שורה, אלא לפי איזור בקוד).
כתוב שם:
אם אנחנו ממש רוצים שמשהו יקרה, כדאי לשים אותו בתוך פונקציה ולא להתחיל לשוטט ברחבי הקוד עם goto
וגם:
goto נחשבת לטכניקת תכנות גרועה – כיון שאם משתמשים בה זה עלול לגרום לקוד להיות לא קריא
להזכירך, בדוגמא שנתן ארכיטקט מדברים רק על מקום אחד, ואחד בלבד, שבו משתמשים בזה, וגם שם במידה ובמשורה, וזה פשוט שווה ערך לContinue For.
לפי מה שאתה טוען, גם בContinue For אסור להשתמש, כי הקוד יהיה לא קריא וכו' וכו', וצריך להשתמש עם פונקצייה... ולא נראה לי שאתה באמת חושב כך.
פורסם במקור בפורום CODE613 ב06/01/2014 09:13 (+02:00)
