רוטר - שאלה בVB6

יומן פעילות	לוח שנה	מבזקי חדשות	תקנון	RSS	כותרות	כותרות לפי תגובה	ניקוי קוקיז	IP	להורדת אפליקציה
eBay	AliExpress	GearBest	Amazon	Booking	Kiwi	SkyScanner	Trip Advisor

"שאלה בVB6"

גירסת הדפסה

קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #6535	מנהל סגן המנהל מפקח Winner צל"ש מומחה

אשכול מספר 6535

Static
חבר מתאריך 1.7.02
1329 הודעות

16:06 12.07.03

שאלה בVB6

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

תודה לעוזרים

שתף

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

האשכול	מחבר	תאריך כתיבה	מספר
תראה, ככה אני הייתי עושה את זה:	kobituashi	12.07.03 18:41	1
והינה פונקיה אונברסלית :	AndreyT	12.07.03 19:07	2
אתה יכול להשתמש ב- Split שהמפריד הוא CR	מיצבשת	21.07.03 10:11	3

kobituashi

חבר מתאריך 18.3.02
6186 הודעות, 1 פידבק

18:41 12.07.03

1. תראה, ככה אני הייתי עושה את זה:
בתגובה להודעה מספר 0

1) בזמן שהתוכנית עולה, פותח את קובץ הטקסט, וקורא שורה אחרי שורה למערך של מחרוזות.
כמובן שבסוף הקריאה אני אדע כמה מחרוזות יש לי. השלב הבא הוא להגריל מספר בין 1 למספר המחרוזות שיש לי בזיכרון. אחרי שהגרלתי, אני מציג את המחרוזת עם האינדקס שהוגרל.
נגיד:
a(1)="hello
a(2)="goodbye
a(3)="see ya
X = מספר רנדומלי בין 1 ל-3
ומציג

a(x)

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

AndreyT

19:07 12.07.03

2. והינה פונקיה אונברסלית :
בתגובה להודעה מספר 0

Private Function GetLine(Text As String, line As Integer) As String
Dim i As Integer, tmptxt As String, cline As Integer
For i = 1 To Len(Text)
If Mid(Text, i, 1) = vbCr Then
cline = cline + 1
i = i + 1
ElseIf cline = line - 1 Then
tmptxt = tmptxt & Mid(Text, i, 1)
End If
Next
GetLine = tmptxt
End Function

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

מיצבשת

10:11 21.07.03

3. אתה יכול להשתמש ב- Split שהמפריד הוא CR
בתגובה להודעה מספר 2

במקום לרוץ על הטקסט כדי למצוא את השורות אפשר לעבוד עם מערך:
redim arrData(len(text1.text)) 'Inisilise arrey
arrdata=split(text1.text,vbCR)
getData=arrData(iLineNumber) 'iLineNumber parameter 4 line number

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

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד