כלומר יש לי קובץ כזה :
a
ba
abc
שהוא יקרא כל אחד מהם לתוך משתנה ... לא צריך לכל שורה משתנה אלא משתנה יחיד שכל שורה שתעבור בו תמחק את הקודמת
ראשי > תיכנות > ויבי קריאת קובץ
כלומר יש לי קובץ כזה :
a
ba
abc
שהוא יקרא כל אחד מהם לתוך משתנה ... לא צריך לכל שורה משתנה אלא משתנה יחיד שכל שורה שתעבור בו תמחק את הקודמת
a
ba
abc
מה אתה רוצה שיכנס למשתנה?
a
ba
abc
ויש לי משתנה Z
הוא קודם מכניס Z=a
אחרי זה מכניס Z=ba
ואחר כך מכניס Z=abc
Dim Z as String
עכשיו נקרא לקובץ (בAddress נשים את הקובץ שאנחנו רוצים לקרוא)- ונפתח אותו במצב "קלט" ונסמן אותו כ"#1"
Open "Address" for input as #1
נתחיל בלולאה שתפסיק רק כשהקובץ יגיע לשורה אחרונה (ע"י Net Eof הEof זה End of file)
(1)Do While not eof
כאן אנחנו קוראים מידע מ#1 ,ומכניסים אותו לz
Line input #1,z
נחזור לראש הלולאה:
Loop
ובסוף- נסגור את הקובץ כדי שלא יפריע לנו:
close #1
זה הקוד:
Dim Z as String
Open "Address" for input as #1
(1)Do While not eof
Line input #1,z
Loop
close #1
מקווה שזה יעזור.
אגב, שים לב שאתה תקבל בסוף רק את השורה האחרונה, בגלל שכל שורה שנכנסת למשתנה "דורסת" את המידע הקודם שהיה בו.
(ולפי מה שהבנתי זה מה שרצית, תקן אותי אם אני טועה).
[נערך על-ידי cp77fk4r בתאריך 2004/07/02 18:01]
את (1)Do While not eof
אפשר להחליף גם ב
Do until eof(1)
אממ וציפי אני חושב שהוא רצה את בתור מערך שכל איבר שלו יכיל שורה אחרת...