ועוד שאלה ב-וי בי

[דוקטור VB]

ועוד שאלה ב-וי בי

שאלה ב-ויבי איך אני מושך מילים מתיבת טקסט,ז"א שאני רוצה לקרוא כמה מילים מתיבת טקסט ולשמור כל מילה במשתנה סטרינג,לדוגמא: אם בתיבת טקסט כתוב hello world thats me אני רוצה לדעת מה זאת המילה הראשונה , השנייה וכן הלאה תודה מראש

 

[רון קליין]

בשביל זה יש פונקציות..

כמו InStr, שבודקת אם קיים התו/תת מחרוזת A בתוך מחרוזת B, ומחזירה אינדקס בהתאם. תוכל גם להשתמש בפונקציה Mid ששולפת תת מחרוזת ממחרוזת נתונה. גם Len יכולה להיות שימושית. בדוק תיעוד מלא ב- MSDN או באתרי VB למיניהם (כולל אתר מייקרוסופט). בהצלחה, רון

 

[mitke]

הנה דוגמה

בשביל להפעיל את הקוד, שים על הטופס TextBox בשם txtFullStr וCommandButton בשם cmdGO.

 

[דוקטור VB]

תודה רבה רבה ועוד משהו קטן

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

 

[mitke]

תשובה

אם ראית בקוד, הכנסתי את המחרוזת למשתנה ואחרי כל מילה ששלפתי, מחקתי אותה מהמחרוזת. כשמתקיימת השורה trim$(FullStr) = 0, נגמרו המילים. אז תעשה לולאה: While trim$(FullStr) > 0 ... ... ... Wend