תחומים - פורום חרדי מקצועי

טוב אז מצאתי לגמרי במקרה נתקלתי בקוד הזה תוך כדי חיפוש של נושא אחר לגמרי. יכול לעזור לכל עם ישראל.

Public Function UnicodeEncode(str) As String
    If IsNull(str) Then Exit Function
    Dim i, j, aL1, aL2, c, p

    aL1 = Array(&H22, &H5C, &H2F, &H8, &HC, &HA, &HD, &H9)
    aL2 = Array(&H22, &H5C, &H2F, &H62, &H66, &H6E, &H72, &H74)
    For i = 1 To Len(str)
        p = True
        c = Mid(str, i, 1)
        For j = 0 To 7
            If c = Chr(aL1(j)) Then
                UnicodeEncode = UnicodeEncode & "%" & Chr(aL2(j))
                p = False
                Exit For
            End If
        Next

        If p Then
            Dim a
            a = AscW(c)
            If a > 31 And a < 127 Then
                UnicodeEncode = UnicodeEncode & c
            ElseIf a > -1 Or a < 65535 Then
                UnicodeEncode = UnicodeEncode & "%u" & String(4 - Len(Hex(a)), "0") & Hex(a)
            End If
        End If
    Next
End Function

פורסם במקור בפורום CODE613 ב11/08/2013 00:54 (+03:00)

שלום, בעבר נשאלה כאן שאלה אודות קידוד URL והובא קוד מוצלח על ידי דוד ל.ט.

כעת יש לי שאלה דומה לגבי קידוד של יוניקוד לתווי יוניקוד, כלומר אם אני מכניס "א" אני אמור לקבל "%u05D0" יש איזה אתר כאן שמראה את המפה, וכאן הוא מראה את הפירוט של האות "א" בעברית.

השאלה היא, איזו היא דרך נקייה וקלה בקוד לקבל את הקידוד.

אם תשאלו מה לי ולצרה הזאת? התשובה פשוטה, באמצעות אתר דואר ישראל אפשר לקבל מיקוד לפי כתובת, ממש תענוג, אבל רק חסר לי את הקידוד.

הנה למשל הלינק הזה:

"http://www.israelpost.co.il/zip_data1.nsf/SearchZip?OpenAgent&Location=%u05D1%u05E0%u05D9 %u05D1%u05E8%u05E7&POB=&Street=%u05D7%u05D6%u05D5%u05DF %u05D0%u05D9%u05E9&House=1&Entrance=
"
נותן לנו את המיקוד של רחוב חזון איש 1 בבני ברק (למעט 4 התווים הראשונים, שמשמשים לזיהוי התשובה).

זה נכס שכדאי לאמץ אותו בשביל כל מי שעוסק ב IT.

אודה על כל עזרה.

פורסם במקור בפורום CODE613 ב09/08/2013 15:09 (+03:00)

אם WPF זה פרה, שיהיה פרה

לעניין רשות המיסים, אם אתה עובד בחברה, זה נקרא שהחברה בעצמה יצרה לעצמה את התוכנה, ולכן אין צורך ברישום, אבל אם אתה ספק תוכנה חיצוני, אתה צריך לרשום את התוכנה שלך ברשות המיסים וזה דורש גם הכנת קובץ אחיד וכולי.

פורסם במקור בפורום CODE613 ב11/08/2013 18:24 (+03:00)

תראה, לא נראה לי שזה כלכלי להתקוטט עם WPF בשביל מסמכים ודוחו"ת. יש כלים חזקים וטובים של מייקרוסופט שמתמחים בתחום, למשל וורד, פובלישייר, וכיוצא בזה מכלי אופיס כל אחד והתמחותו, כדאי לך ללמוד את ה API שלהם לעשות אקטיבאיקס וכדומה, (אני לא יודע מה המטרות שלך בדיוק אולי יהיה לך כדאי אפילו ללמוד על הקידוד של PDF, או לנסות ולבנות מסמך HTML שבזה למשל יהיה לך ים של חומר מוכן באינטרנט לכל מטרה ובדוט נט יש לך שפע של מחלקות שמטפלות יפה מאוד במסמכי HTML) בקיצור על תחומים שבהם כבר ישנם כלים מתמחים בעולם, נראה לי שכדאי יותר לנצל אותם. להשתמש ב WPF בשביל המטרה הזאת, זה כמו להתחיל לאסוף מולקולות במעבדה כדי לייצר חלב, עדיף כבר לתפוס איזה פרה טובה, לחלוב אותה, ונגמר הסיפור.

תודיע לי מה יצא לך בסוף כי גם אני התחבטתי בזה בזמנו, והחלטתי שאחרי שהמציאו את הגלגל, אין לנו אלא לרכב עליו.

בהצלחה

פורסם במקור בפורום CODE613 ב09/08/2013 11:31 (+03:00)

שלום

כשאני רוצה להוריד את MSSQL Express מכאן אני רואה הרבה אופציות, מה משמעותן???? והאם יש "הטוב ביותר"....
בנוסף, כאשר אני מתחבר עם ODBC האם צריך שיהיה מנוע SQL מותקן על השרת, והאם SSMS בכלל דורש התקנה גם על השרת, או שאפשר להתקין רק על אחד המחשבים ולנהל דרכו את הדאטה בייס, ואילו בשרת מספיק לי מנוע SQL בלבד. וכן לגבי תאימות גירסאות, בין 2008 ל 2012 הבנתי פעם שיש 2 נושאים יש את המנוע ויש את הסטודיו, בכל אופן האם אפשר להתקין על גבי בלי להסיר את הקודם????
אני יודע שזה טפשי לשאול, הרי את כל זה אפשר לנסות לבד, אבל מדובר בנתוני אמת, מותקן שם כבר על השרת בארגון SSMS 2008 ואני חושש לעשות שום דבר לפני שאני בטוח, כדי שלא יוציאו אותי להורג
תודה על כל עזרה.

פורסם במקור בפורום CODE613 ב04/08/2013 16:17 (+03:00)

אז תקרא שורה שורה בקובץ הטקסט, ותלכוד את המשתנים כל שפה לפי כלליה ופרטותיה ודקדוקיה והסודות הגדולים היוצאים ממנה........ להגיד שיש משהו מוכן? הלואי אם כן אז זכית בלוטו.

פורסם במקור בפורום CODE613 ב02/08/2013 12:38 (+03:00)

אתה מדבר בוודאי על VBA???
להערכתי סיכוי קלוש שהמידע הזה זמין בכלל, תנסה לשאול בהצפת מחסנית. אבל לא הייתי מאמין שיש אפשרות, אלא אם כן אתה מתכנת בשפות שאינן מתקמפלות שאתה יכול פשוט לקרוא את קבצי הטקסט.

פורסם במקור בפורום CODE613 ב02/08/2013 02:20 (+03:00)

@magicode

@דוד ל.ט.
אם לא היה מדובר בVBA, זה שורת קוד אחת בC#.

אני הבאתי את האלגוריתם שעושה את זה בלי פונקציה הבאתי את זה בjs בגלל שאני על לינוקס ואני לא יכול לכתוב בvba והשפה שהכי קל לכתוב בה אוןלין זה js.

אשריך רבי אלגוריתם.........

פורסם במקור בפורום CODE613 ב04/08/2013 16:10 (+03:00)

חיפשתי ולא מצאתי את הקידוד שנעשה בURL עבור עברית (כל מה שיש נותן תוצאות לא טובות בכלל, כנראה בנוי על שפות אחרות), ועל כן החלטתי לכתוב לבד קוד, שאיננו מבוסס על אלגוריתם, אלא על מידע סטטי בלבד

הנה הקוד, אם יש למישהו הערות אשמח לשמוע, נראה לי שלא כיסיתי את כל התווים, כמו"כ אם מישהו מכיר את האלגוריתם אולי כדאי להכיר אותו.
קרדיט לאתר שדרכו ידעתי את החומר

אולם לצערי הרב יש שם באג מוזר שהוא איננו מזהה אותיות סופיות בעברית, כלומר הוא מחזיר לאות "מ" ולאות "ם" את אותו ערך.

אני יודע שככה SQL מתנהג אבל VB???? מי נתן לו רשות להבין בשבילי את האותיות העבריות???

האם יש למישהו הסבר לזה????

הנה הקוד

Function EncodeOneCharToURL(char As String)
Dim Encode As String
Select Case char
Case "א"
 Encode = "%D7%90"
Case "ב"
 Encode = "%D7%91"
Case "ג"
 Encode = "%D7%92"
Case "ד"
 Encode = "%D7%93"
Case "ה"
 Encode = "%D7%94"
Case "ו"
 Encode = "%D7%95"
Case "ז"
 Encode = "%D7%96"
Case "ח"
 Encode = "%D7%97"
Case "ט"
 Encode = "%D7%98"
Case "י"
 Encode = "%D7%99"
Case "כ"
 Encode = "%D7%9B"
Case "ך"
 Encode = "%D7%9A"
Case "ל"
 Encode = "%D7%9C"
Case "מ"
 Encode = "%D7%9E"
Case "ם"
 Encode = "%D7%9D"
Case "נ"
 Encode = "%D7%A0"
Case "ן"
 Encode = "%D7%9F"
Case "ס"
 Encode = "%D7%A1"
Case "ע"
 Encode = "%D7%A2"
Case "פ"
 Encode = "%D7%A4"
Case "ף"
 Encode = "%D7%A3"
Case "צ"
 Encode = "%D7%A6"
Case "ץ"
 Encode = "%D7%A5"
Case "ק"
 Encode = "%D7%A7"
Case "ר"
 Encode = "%D7%A8"
Case "ש"
 Encode = "%D7%A9"
Case "ת"
 Encode = "%D7%AA"
Case " "
Encode = "+"
Case """"
Encode = "%22"
Case "'"
Encode = "%27"
Case Else
Encode = char

End Select

EncodeOneCharToURL = Encode
End Function

Public Function URLEncode(ByVal StringToEncode As String) As String
Dim currentCar As String, Result As String
For i = 1 To Len(StringToEncode)
currentCar = Mid(StringToEncode, i, 1)
Result = Result & EncodeOneCharToURL(currentCar)
Next
URLEncode = Result

End Function

פורסם במקור בפורום CODE613 ב29/07/2013 01:46 (+03:00)

טוב אז ברור שהתפקיד של אקסס זה לא להיות "תוכנה" אלא לטפל במידע שעובר את היכולות של אקסל. ואת זה מי שיודע את העבודה יכול לעשות בקלי קלות.

לגבי המגבלות של עד כך וכך רשומות ועד כך וכך משתשמים, יש מקום שכתוב מספרים במקום "כך וכך"????

פורסם במקור בפורום CODE613 ב22/08/2013 15:30 (+03:00)

מאוד משמח אותי, עכשיו שווה לי להשקיע 2-3 שעות בטסטים אמיתיים. אם יש כאן פריצת דרך, אפשר להוזיל מאוד עלויות של פיתוח לארגונים בינוניים אם הם רוצים משהו זול ופשוט אבל רב נתונים.......

פורסם במקור בפורום CODE613 ב04/08/2013 15:53 (+03:00)

האם יש מצב לכמת את האיטיות???? מדובר בשרת מקומי ולא מרוחק, כדרכי בקדש הרבה מאוד נתונים שמורים כ int או שדות דלילים שונים (כגון תאריך וכדומה) אם יש טסטים של החיבור לעומת חיבור לאקסס, אשמח לראות.

פורסם במקור בפורום CODE613 ב02/08/2013 02:15 (+03:00)

יכול להיות שזה אידיאלי, אבל כפי שכתבתי יש אילוצים כלכליים בתמונה. והפיתוח באקסס בענייני IT פשוטים, לוקח בערך עשירית זמן מאשר בפלטפורמות אחרות לצערנו מייקרוסופט לא השכילו לשלב את נוחות הפיתוח של אקסס במערכות המתקדמות שלהם, ואם הם עושים את זה זה בעצלתיים.

פורסם במקור בפורום CODE613 ב29/07/2013 10:55 (+03:00)

שלום לכולם

יש לי פרוייקט שמבחינה כלכלית ומצד הלחץ של הלקוח, עלי לעשות את הצד הלוגי באקסס, וזה באמת אפשרי ועונה על הדרישות, אולם הדאטה בייס מוכרח שיהיה ב Sql Server כי אקסס קורס להם כל שני וחמישי מרוב משתמשים ושימושים, הוא נשחת ויש צורך לדחוס ולתקן אותו תדירות.

לצורך כך יש חיבור שנקרא ODBC השרת איננו מרוחק, אלא מקומי, וכל המחשבים מחוברים אליו בחוט פיזי, כך שמבחינת מהירות אין בעיה.

השאלה היא אם יש למישהו ידע או ניסיון על טסטים ברכיב הזה, אם נניח 30 פקידות בו זמנית עובדים מול הדטה בייס, ובאקסס, שדרך מגונה לו למשוך את כל הדאטה כדי לעשות שאילתה, האם העבודה תהיה סבירה או לא.

מדובר על פחות מ 100,000 רשומות בטבלה בשלב זה.

פורסם במקור בפורום CODE613 ב27/07/2013 21:31 (+03:00)

ראה כאן העלינו קוד שעובד מעולה ומחזיר DataTable.

פורסם במקור בפורום CODE613 ב25/11/2014 12:08 (+02:00)

תכלס' המחלקה הכי מוצלחת בגלקסיה שלנו היא זאת לבינתיים ממנה אפשר לדעת בדיוק הכל בכל מכל כל.

פורסם במקור בפורום CODE613 ב23/07/2014 18:32 (+03:00)

@דוד ל.ט.

אתה לא אמור להוציא לפי מיקום.
אם זה תמיד במיקום מסויים, אז זה בהכרח גם במבנה זהה, ואתה יכול להוציא לפי מבנה. לדוגמה הפסקה החמישית.

אם זה לא כטקסט אלא כפיקסלים אתה צריך להוציא אכן לפי מיקום.

אני מבין וחשבתי ע"ז יש שם מידע שהמחלקה של אייטקסט לא מזהה אותו וכנראה צריך OCR למזלי זה מידע של ספרות כך שאין צורך ב OCR עברי. חבל שאני לא יכול להעלות את הקובץ, מדובר במידע שמגיע ממשרדי ממשלה ונוגע לפרטיות של אנשים.... (לערוך את הקובץ PDF כדי לטשטש את המידע האישי צריך תוכנה, ואין לי את התוכנה לעריכת PDF זה צריך להגיע אלי בדואר רשום ממקסיקו עוד מאתיים שנה :lol: :lol: :lol: :lol: )

פורסם במקור בפורום CODE613 ב23/07/2014 17:41 (+03:00)

סליחה שאני כותב עוד לפני שקראתי הכל ובדקתי לעומק, אבל כדי לא לבזבז זמן אשאל את המנוסים כבר, אפשר לחלץ בעיקרון טקסט לפי מיקום מדוייק של קווי X-Y כלומר יש לי ריבוע שקבוע נמצא שם תעודת זהות, האם אני יכול פשוט לגשת לריבוע לפי מיקום פיזי במסמך.
תודה.

פורסם במקור בפורום CODE613 ב22/07/2014 20:54 (+03:00)

אשמח לדעת איך שולחים תודה על רשומה לא מצאתי עדיין את הדרך.

אני מתכוון לבדוק את התשובה מיידית באותה רשומה.

ואגב למנהל הפורום, מה משמעות השם HRDM???

פורסם במקור בפורום CODE613 ב25/07/2013 19:06 (+03:00)

יש בזה משהו, אבל זה כבר לא פור איצ' הקריאה לכל אייטם אחר כך היא יותר מסורבלת בכל אופן עשיתי קומבינה אחרת

תודה על העזרה.

פורסם במקור בפורום CODE613 ב25/07/2013 18:56 (+03:00)