הפסקת קריאה באמצע השדה

hubhcbh

בהמשך למיקוד, באתי לבדוק בפועל את הטבלה, שוד ושבר.. בשדה כתובת, יש מלא בלאגן, והנה לדוגמה כמה שורות משם
שלום סיון 12 דירה 3
בן נריה 8 א'
רשב"ם 10 מקור ברוך
זוננפלד 17**/2**
בהתייעצות עם CLICKONE במייל, קיבלתי הוראה מפורשת לא להתייאש!...

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

מה שCLICKONE הציע, וז"ל:
הייתי מחלק קודם את המשפט עם split
ואח"כ בודק מילה מילה ומתקדם עד המספר.
אח"כ בודק אם יש סימן / במספר וגם אותו מחלק לדירה ובניין
אח"כ בודק אם יש מילה "דירה" ואז המילה הבאה במערך זה המספר דירה.
ובסוף הכניסה.
עכ"ל.

פורסם במקור בפורום CODE613 ב14/05/2015 13:21 (+03:00)

dovid

אני מנחש שאתה לא עושה את העצה של ClickOne כי זה גדול עליך.
אז לאט לאט.

הוסף למודול VB מתודה ריקה ופונקציה ככה:

Sub TestSkill()
   MsgBox ClickOneImplation("כתובת קלאסית לבדיקה 5/2 ב'")
End Sub

Function ClickOneImplation(unput As String)
    
    
    ClickOneImplation = "פה בסוף תתן את הפלט"
End Function

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

פורסם במקור בפורום CODE613 ב14/05/2015 17:31 (+03:00)

hubhcbh

@דוד ל.ט.

אני מנחש שאתה לא עושה את העצה של ClickOne כי זה גדול עליך.
אז לאט לאט.

הוסף למודול VB מתודה ריקה ופונקציה ככה:
Sub TestSkill()
   MsgBox ClickOneImplation("כתובת קלאסית לבדיקה 5/2 ב'")
End Sub

Function ClickOneImplation(unput As String)
    
    
    ClickOneImplation = "פה בסוף תתן את הפלט"
End Function
כנס עם הסמן למתודה הנקראת TestSkill והקש F5.
לאט לאט נסה להבין מה ואיך ולבצע צעד אחר צעד את הרעיון של ClickOne. כשההודעה תביא את הטקסט הרצוי, תעתיק את הרעיון ללולאה שעוברת על כל הרשומות.

תודה רבה,
אשתדל לנסות בתחילת שבוע,
אין לי עכבר, הלך לתיקון..
:oops:

פורסם במקור בפורום CODE613 ב15/05/2015 13:51 (+03:00)

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

הפסקת קריאה באמצע השדה