C
מה ההבדל בין פונקיציית ()IsNothing לבין השוואה עם שני אופרטורים Is Nothing
אם תפתח ברפלקטור תראה שאכן אין הבדל. אם כי יש שמספרים שיותר נוח Is Nothing בגלל השלילה Not.
התשובה מתייחסת לדוטנט (אם כי יכול להיות שגם בVBA זה נכון, אבל שם באמת יש פונקצייה מאחורה, ולא סתם בדיקה של Is Nothing)
מקור התשובה כאן
פורסם במקור בפורום CODE613 ב07/01/2014 00:18 (+02:00)
בנוגע לשינויים של קליק וואן, אל תשכח שיש גם ערכי תאריכים אפשריים, וכן ערכי אותיות למה לא? שמת לב שלא הגדרתי טיפוס לערך. אז מה שעלול לעמוד לנו לרועץ זה רק ערכים ריקים, כי הפונקציה הזו נועדה בכל מקרה להחזיר ערך כלשהו ככל הניתן (השירות שהפונקציה הזאת נותנת הוא למקרים בהם יש לך 1 מתוך 2 שדות, ופעמים הרבה שאחד השדות ריקים והלא רוצים אנו בפונקציה)
אתה צודק, בטעות הסתכלתי על הקוד שרחמים העלה ושם הייתה החזרה של ערך: (As Integer)
Public Shared Function Min(ByVal val1 As Integer, ByVal val2 As Integer) As Integer
פורסם במקור בפורום CODE613 ב07/01/2014 00:10 (+02:00)
If value1 > value2 Or IsNull(value1) Or IsMissing(value1) Or value1 = Empty Then
יש אגב פונקצייה מאד נפוצה שתפקידה להחזיר ערך בוליאני אם הערך ריק או NULL. היא מתמודדת יפה עם כל טיפוסי המשתנים הרגילים.
קוראים לה IsNothing, ואני מצרף אותה לתועלת מי שלא מכיר.
בדוטנט באחת הגירסאות הם הכניסו אותה פנימה (לפחות בVB)
Public Function IsNothing(varToTest As Variant) As Integer
' Tests for a "logical" nothing based on data type
' Empty and Null = Nothing
' Number = 0 is Nothing
' Zero length string is Nothing
' Date/Time is never Nothing
IsNothing = True
Select Case VarType(varToTest)
Case vbEmpty
Exit Function
Case vbNull
Exit Function
Case vbBoolean
If varToTest Then IsNothing = False
Case vbByte, vbInteger, vbLong, vbSingle, vbDouble, vbCurrency
If varToTest <> 0 Then IsNothing = False
Case vbDate
IsNothing = False
Case vbString
If (Len(varToTest) <> 0 And varToTest <> " ") Then IsNothing = False
End Select
End Function
פורסם במקור בפורום CODE613 ב07/01/2014 00:06 (+02:00)
דבר שבאמת הייתי משנה בגלל הטענה שלך זה:
במקום:
If value1 > value2
הייתי כותב:
If value1 >= value2
אבל זה באמת תלוי בארכיטקט.
האם ידוע למישהו אם יש פונקציה מובנית ב vb6 שמחזירה ערך נמוך מבין שניים??? כמו Math.Min בדוט נט....
הפיתרון הגאוני שלי הוא בינתים ככה:Function GetMinValue(value1, value2) If value1 > value2 Or IsNull(value1) Or IsMissing(value1) Or value1 = Empty Then GetMinValue = value2 Else GetMinValue = value1 End If End Function
הייתי משנה את:
Or IsNull(value1) Or IsMissing(value1) Or value1 = Empty
ב:
Not IsNumeric(value1)
הפונקצייה IsNumeric מחזירה לך בוליאני אם הערך הוא מספר (מכל סוג), וגם אם לא הגדרת סוג בvalue1 ובטעות נכנס טקסט, זה יחזיר false משא"כ הפונקצייה שלך.
פורסם במקור בפורום CODE613 ב06/01/2014 23:55 (+02:00)
תלוי מה המטרה של הפנקציה.
אם המטרה שלך לדעת אם זה שווה או גדול או קטן, ובכל מקרה אתה מבצע משהו אחר, אז באמת אתה צודק.
כאן, אתה רואה לפי הטיפוס שהפונקצייה שארכיטקט כתב שזה המספר, ובהמשך הפונקצייה אתה רואה שהוא מחזיר את הערך הקטן הממשי,ולא 0 או 1 או -1.
משמע, שהוא רוצה לדעת מי יותר קטן ופשוט לעבוד עם המספר הזה "מהקופסא". בכזה מקרה לא רלוונטי אם זה שווה, כי המטרה של הפונקצייה זו התוצאה ללא קשר לדרך.
פורסם במקור בפורום CODE613 ב06/01/2014 23:50 (+02:00)
לא נראה לי הפונקציה שלך כל כך טובה,
כי היא יכולה להחזיר רק אחת משני אפשריות - אמת או שקר, אבל באמת כאשר משווים בין שני דברים יש שלוש אפשרויות - או שהים שווים או הראשון גדול או השני גדול, ולכן בפונקציית COMPARE בדוטנט יש החזרה של 0 או 1 או -1.
הפונצייה של ארכיטקט מצויינת!
שים לב שהוא לא ניסה בפונקצייה לקבל בוליאני אם הראשון גדול מהשני, אבל לקבל את המספר היותר קטן.
במקרה הגרועששניהם שווים, הוא יחזיר את אחד מהשניים... וזה ממש לא משנה איזה!
פורסם במקור בפורום CODE613 ב06/01/2014 23:33 (+02:00)
בעזרת ה' אני מתכנן היום להעלות לפורום את מפת הדרכים לתוכנית (המשמעותית) הראשונה שלי בWPF [בזכות דוד ל.ט, ארכיטקט, רחמים ואחרים כאן בפורום :lol: :lol: :lol: )
שם ככל הנראה תהיה אפשרות גם של יצירת קובץ מס"ב, וגם ריטיינר להו"ק אשראי.
כמובן שהתוכנה תהיה בלמידה כאן בפורום (לא איך עושים מס"ב, אלא איך מממשים את מה שאני יודע לעשות באקסס - בWPF), ולכן אני משער שיהיה מעניין.
מה שמסתמן עכשיו זה שיהיו שם גם שליחת מיילים, SMS וVMS [הודעות קוליות אוטומטיות].....
ClickOne
פורסם במקור בפורום CODE613 ב19/01/2014 21:01 (+02:00)
@דוד ל.ט.
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)
