קריאת קובץ TEXT

[oferusa]

קריאת קובץ TEXT

שלום יש לי קובץ TXT וריציתי לשאול איך אני קורא אותו שורה שורה? תודה

 

[MaD-d0g]

או דרך FSO או דרך Open

ל FSO יש דוגמאות באינטרנט... ל OPEN יש דוגמא באתר של הפורום או ב FAQ

 

[oferusa]

איך אני עובר שורה

השתמש בדרך שך FSO והנה הקוד Private Sub Form_Load() Dim fso Set fso = CreateObject("Scripting.FileSystemObject") Const ForReading = 1 Set ts = fspenTextFile("c:\gg.txt", ForReading) s = ts.ReadLine Text1.Text = s ts.Close End Sub וזה מדפיס לי רק את השורה הראשונה.. אין אני עובר שורה? או מוחק את הראשנה ועובר אל הבאה אחריה? תודה

 

[אביטלתל]

ReadLine

ReadLine עושה בדיוק מה שהוא אומר - קורא שורה אחת אתה צריך להשתמש בלולאה עד שאתה מגיע לסוף הקובץ יש ב fso דגל (נדמה לי EOF) שאומר מתי מגיעים לסוף הקובץ

 

[oferusa]

אבך אי אני עובר שורה?

אוקי קראתי שורה.. איך אני עובר להבא? ואיך הןלך הסינטקס של ה EOF בזה?

 

[אביטלתל]

מעבר שורה

אם אני לא טועה אז הקריאה הבאה לפקודה ReadLine קוראת את השורה הבאה לגבי ה EOF - זה פשוט משתנה בוליאני כדאי להשתמש בלולאות Do-While כדי לקרוא את הקובץ

 

[oferusa]

הצליח תודה